* vc-hg.el (vc-hg-registered): Make it work for non-existent

files.

2 files changed, 2 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65556e2eb65..5d9d50e7a64 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,6 @@
 2008-01-20  Dan Nicolaescu  <dann@ics.uci.edu>
 
+        * vc-hg.el (vc-hg-registered):
         * vc-svn.el (vc-svn-registered): Make it work for non-existent
         files.
 
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index c3c3b5577f3..7b7ca3b7f6d 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -149,7 +149,7 @@
   (when (vc-hg-root file)           ; short cut
     (let ((state (vc-hg-state file)))  ; expensive
       (vc-file-setprop file 'vc-state state)
-      (not (memq state '(ignored unregistered))))))
+      (and state (not (memq state '(ignored unregistered)))))))
 
 (defun vc-hg-state (file)
   "Hg-specific version of `vc-state'."