Show More
@@ -740,7 +740,7 b' With a prefix argument, prompt for the p' | |||||
740 | (hg-view-output (hg-output-buffer-name) |
|
740 | (hg-view-output (hg-output-buffer-name) | |
741 | (apply 'call-process (hg-binary) nil t nil (list "add" path)) |
|
741 | (apply 'call-process (hg-binary) nil t nil (list "add" path)) | |
742 | (hg-fix-paths) |
|
742 | (hg-fix-paths) | |
743 |
(goto-char |
|
743 | (goto-char (point-min)) | |
744 | (cd (hg-root path))) |
|
744 | (cd (hg-root path))) | |
745 | (when update |
|
745 | (when update | |
746 | (unless vc-make-backup-files |
|
746 | (unless vc-make-backup-files | |
@@ -980,7 +980,7 b' With a prefix argument, prompt for the p' | |||||
980 | (apply 'call-process (hg-binary) nil t nil (list "forget" path)) |
|
980 | (apply 'call-process (hg-binary) nil t nil (list "forget" path)) | |
981 | ;; "hg forget" shows pathes relative NOT TO ROOT BUT TO REPOSITORY |
|
981 | ;; "hg forget" shows pathes relative NOT TO ROOT BUT TO REPOSITORY | |
982 | (hg-fix-paths) |
|
982 | (hg-fix-paths) | |
983 |
(goto-char |
|
983 | (goto-char (point-min)) | |
984 | (cd (hg-root path))) |
|
984 | (cd (hg-root path))) | |
985 | (when update |
|
985 | (when update | |
986 | (with-current-buffer buf |
|
986 | (with-current-buffer buf |
General Comments 0
You need to be logged in to leave comments.
Login now