Mercurial > hg
changeset 2737:a5c43944e1ee
avoid calling (cd ...) with `nil' as a directory name
When (hg-root) cannot determine the current Mercurial root, print an
error message instead of trying to evaluate (cd nil).
| author | Giorgos Keramidas <keramida@ceid.upatras.gr> |
|---|---|
| date | Sun, 30 Jul 2006 09:37:08 +0300 |
| parents | eb1bde9560bc |
| children | 400a4a502001 |
| files | contrib/mercurial.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/mercurial.el Sat Jul 29 18:15:08 2006 +0200 +++ b/contrib/mercurial.el Sun Jul 30 09:37:08 2006 +0300 @@ -718,7 +718,11 @@ (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.