(vc-hg-dir-state): Set the vc-backend property.

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 585d64cd2ea..09919ee76e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-29  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
+
 2007-12-29  Eric S. Raymond  <esr@snark.thyrsus.com>
 
         * vc-svn.el (vc-svn-parse-status): Recognize 'unregistered,
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 6970ed72ccf..dd8cccb724b 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -200,15 +200,20 @@
          ;; should not show up in vc-dired, so don't deal with them
          ;; here.
          ((eq status-char ?C)
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-state 'up-to-date))
          ((eq status-char ?A)
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-working-revision "0")
           (vc-file-setprop file 'vc-state 'added))
          ((eq status-char ?R)
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-state 'removed))
          ((eq status-char ?M)
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-state 'edited))
          ((eq status-char ?I)
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-state 'ignored))
          ((eq status-char ??)
           (vc-file-setprop file 'vc-backend 'none)
@@ -216,6 +221,7 @@
          ((eq status-char ?!)
           nil)
          (t     ;; Presently C, might change to = in 0.9.6
+          (vc-file-setprop file 'vc-backend 'Hg)
           (vc-file-setprop file 'vc-state 'up-to-date)))
         (forward-line)))))