# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1185815530 0
# Node ID 9b9e30a9b135d23db23c25a84a8745460d649474
# Parent  655e2c8d2f5fc7c7b9dac63260ef8817ad7d040a
* vc-hg.el (vc-hg-registered): Set the vc-state property.

diff -r 655e2c8d2f5f -r 9b9e30a9b135 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 30 05:36:46 2007 +0000
+++ b/lisp/ChangeLog	Mon Jul 30 17:12:10 2007 +0000
@@ -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 -r 655e2c8d2f5f -r 9b9e30a9b135 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Mon Jul 30 05:36:46 2007 +0000
+++ b/lisp/vc-hg.el	Mon Jul 30 17:12:10 2007 +0000
@@ -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'."