Mercurial > emacs

changeset 87865:1a3c90d4d8fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-hg.el (vc-hg-registered): Make it work for non-existent files.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sun, 20 Jan 2008 20:01:24 +0000
parents 54863df609a3
children 886827d2b42f
files lisp/ChangeLog lisp/vc-hg.el
diffstat 2 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
 
--- 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'."