* vc-git.el (vc-git-dir-state):

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ee492aff865c72dd978c369397a0b2f27340b91..58420d8483bca9046311ba6b851078602f54fe19 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-git.el (vc-git-dir-state):
+       * vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
+
 2008-01-04  Richard Stallman  <rms@gnu.org>
 
        * delsel.el (delete-selection-mode): Doc fix.

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index be5bbcfe43ef2f21de1addcc3d5a1df2d7fd1231..4d68624ad8e60726d4b0b6d958194e04fe756039 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -167,10 +167,13 @@
         ;; should not show up in vc-dired, so don't deal with them
         ;; here.
         ((eq status-char ?H)
+         (vc-file-setprop file 'vc-backend 'Git)
          (vc-file-setprop file 'vc-state 'up-to-date))
         ((eq status-char ?M)
+         (vc-file-setprop file 'vc-backend 'Git)
          (vc-file-setprop file 'vc-state 'edited))
         ((eq status-char ?C)
+         (vc-file-setprop file 'vc-backend 'Git)
          (vc-file-setprop file 'vc-state 'edited))
         ((eq status-char ??)
          (vc-file-setprop file 'vc-backend 'none)

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index a7c10eeb0272ee847cbdaf5e64c8e45618e40789..7f1074abdcc2ae033726f3d5febc4a59ba9f4752 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -188,9 +188,11 @@
         ;; should not show up in vc-dired, so don't deal with them
         ;; here.
         ((eq status-char ?A)
+         (vc-file-setprop file 'vc-backend 'Hg)
          (vc-file-setprop file 'vc-workfile-version "0")
          (vc-file-setprop file 'vc-state 'edited))
         ((eq status-char ?M)
+         (vc-file-setprop file 'vc-backend 'Hg)
          (vc-file-setprop file 'vc-state 'edited))
         ((eq status-char ??)
          (vc-file-setprop file 'vc-backend 'none)