diff lisp/vc-hg.el @ 79687:2fe98820fa48

* vc-git.el (vc-git-dir-state): * vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 04 Jan 2008 07:59:25 +0000
parents 27f00e50116a
children 73661ddc7ac7
line wrap: on
line diff
--- a/lisp/vc-hg.el	Fri Jan 04 05:47:53 2008 +0000
+++ b/lisp/vc-hg.el	Fri Jan 04 07:59:25 2008 +0000
@@ -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)