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

files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65556e2eb65773dd5fce28a17873c632c6a2b0c9..5d9d50e7a642545cef9fcf5e9e895787c9907eab 100644 (file)
--- 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 c3c3b5577f3ec39bd5a83d772ca5933bd326b751..7b7ca3b7f6d7e139649233ea1d6c3c8a6b57fbfd 100644 (file)
--- 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'."