From f1e22adaab1610a6b4805ab69aebfb98c29d1916 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 20 Jan 2008 20:01:24 +0000 Subject: [PATCH] * vc-hg.el (vc-hg-registered): Make it work for non-existent files. --- lisp/ChangeLog | 1 + lisp/vc-hg.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 + * 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'." -- 2.39.2