[Emacs-diffs] Changes to emacs/lisp/vc-hg.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/12/29 23:00:38

Index: vc-hg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- vc-hg.el    29 Dec 2007 13:20:48 -0000      1.37
+++ vc-hg.el    29 Dec 2007 23:00:36 -0000      1.38
@@ -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)))))