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

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

* vc-git.el (vc-git-dir-state):
* vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
5378843c · Dan Nicolaescu · 78379264 · 5378843c · 5378843c · 5378843c
Commit 5378843c authored Jan 04, 2008 by Dan Nicolaescu
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/vc-git.el lisp/vc-git.el +3 -0

lisp/vc-hg.el lisp/vc-hg.el +2 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.
--- 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)

--- 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)