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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfa662b791cab7bae9d022abcb1511c36dbf05ee..4d5f051cf33a7ccb6e822b174e96a868cd7f632c 100644 (file)
--- 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 972adeed675ba790ae43d5e62739593a338111ad..c9a69a7e5eaa070a6385d2cb3b3bf705b31f7e59 100644 (file)
--- 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'."