# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1200859284 0
# Node ID 1a3c90d4d8fa2e6f3342d03620d92a719817f069
# Parent  54863df609a34e602f585145e34054e8ba9dbf4a
* vc-hg.el (vc-hg-registered): Make it work for non-existent
files.

diff -r 54863df609a3 -r 1a3c90d4d8fa lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 20 19:56:43 2008 +0000
+++ b/lisp/ChangeLog	Sun Jan 20 20:01:24 2008 +0000
@@ -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 -r 54863df609a3 -r 1a3c90d4d8fa lisp/vc-hg.el
--- a/lisp/vc-hg.el	Sun Jan 20 19:56:43 2008 +0000
+++ b/lisp/vc-hg.el	Sun Jan 20 20:01:24 2008 +0000
@@ -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'."