From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 30 Jul 2007 17:12:10 +0000 (+0000)
Subject: * vc-hg.el (vc-hg-registered): Set the vc-state property.
X-Git-Tag: emacs-pretest-22.1.90~1145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=791869eb88a410f5cb8a176c081e7a675a7f2c5e;p=emacs.git

* vc-hg.el (vc-hg-registered): Set the vc-state property.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfa662b791c..4d5f051cf33 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,6 +9,7 @@
 	* vc.el (vc-directory-exclusion-list): Add .git and .hg.
 
 	* vc-hg.el (vc-hg-revision-completion-table): Re-enable.
+	(vc-hg-registered): Set the vc-state property.
 
 	* diff-mode.el (diff-mode-menu): New entries.
 
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 972adeed675..c9a69a7e5ea 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -138,7 +138,7 @@
 (defun vc-hg-registered (file)
   "Return non-nil if FILE is registered with hg."
   (when (vc-hg-root file)           ; short cut
-    (vc-hg-state file)))            ; expensive
+    (vc-file-setprop file 'vc-state (vc-hg-state file)))) ; expensive
 
 (defun vc-hg-state (file)
   "Hg-specific version of `vc-state'."