(vc-hg-registered): Do not set vc-state.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3db04a91c1cbb0b620280b9c997aa221f731038f..1548dae4d580b5a165799eb35c97ed4187527519 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-07-05  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-hg.el (vc-hg-registered): Do not set vc-state.
+
        * vc-annotate.el (vc-annotate-mode-menu): Add separator.
 
 2008-07-05  Nick Roberts  <nickrob@snap.net.nz>

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 2b3e8db2cae3690e3962f838f705ed791d64296b..c1ca8c5ff7b5c3764f279aea35113081010a585a 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -143,7 +143,6 @@
   "Return non-nil if FILE is registered with hg."
   (when (vc-hg-root file)           ; short cut
     (let ((state (vc-hg-state file)))  ; expensive
-      (vc-file-setprop file 'vc-state state)
       (and state (not (memq state '(ignored unregistered)))))))
 
 (defun vc-hg-state (file)