From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 4 Jan 2008 07:59:25 +0000 (+0000)
Subject: * vc-git.el (vc-git-dir-state):
X-Git-Tag: emacs-pretest-22.1.90~185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5378843c2327d5bd08f7c20e9e4f6c21ba888b75;p=emacs.git

* 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 2ee492aff86..58420d8483b 100644
--- 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 be5bbcfe43e..4d68624ad8e 100644
--- 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 a7c10eeb027..7f1074abdcc 100644
--- 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)