changeset 2736 | a5c43944e1ee |
parent 2668 | 7a32b7e6c563 |
child 2876 | 0ffca0cb9f4b |
--- a/contrib/mercurial.el +++ b/contrib/mercurial.el @@ -718,7 +718,11 @@ code by typing `M-x find-library mercuri (goto-char pos) (end-of-line 1) (delete-region pos (point))) - (cd (hg-root)))) + (let ((hg-root-dir (hg-root))) + (if (not hg-root-dir) + (error "error: %s: directory is not part of a Mercurial repository." + default-directory) + (cd (hg-root)))))) (defun hg-add (path) "Add PATH to the Mercurial repository on the next commit.