Show More
@@ -718,7 +718,11 b' code by typing `M-x find-library mercuri' | |||||
718 | (goto-char pos) |
|
718 | (goto-char pos) | |
719 | (end-of-line 1) |
|
719 | (end-of-line 1) | |
720 | (delete-region pos (point))) |
|
720 | (delete-region pos (point))) | |
721 |
( |
|
721 | (let ((hg-root-dir (hg-root))) | |
|
722 | (if (not hg-root-dir) | |||
|
723 | (error "error: %s: directory is not part of a Mercurial repository." | |||
|
724 | default-directory) | |||
|
725 | (cd (hg-root)))))) | |||
722 |
|
726 | |||
723 | (defun hg-add (path) |
|
727 | (defun hg-add (path) | |
724 | "Add PATH to the Mercurial repository on the next commit. |
|
728 | "Add PATH to the Mercurial repository on the next commit. |
General Comments 0
You need to be logged in to leave comments.
Login now