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).
--- 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.