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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 585d64cd2ea58fa761f48025aa21f860b71feed7..09919ee76e67c56000c35e355511c039b7aee92a 100644 (file)
--- 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 6970ed72ccf3c7e7bbe6a163bc5bb94bfe301bc2..dd8cccb724b3659b6ceeb9a2b518ed6b4e262c61 100644 (file)
--- 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)))))