From: Dan Nicolaescu Date: Sat, 29 Dec 2007 23:00:36 +0000 (+0000) Subject: (vc-hg-dir-state): Set the vc-backend property. X-Git-Tag: emacs-pretest-23.0.90~8771 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03da37df7563649c2e4d18f87dbfe5ca03ed682f;p=emacs.git (vc-hg-dir-state): Set the vc-backend property. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 585d64cd2ea..09919ee76e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-12-29 Dan Nicolaescu + + * vc-hg.el (vc-hg-dir-state): Set the vc-backend property. + 2007-12-29 Eric S. Raymond * vc-svn.el (vc-svn-parse-status): Recognize 'unregistered, diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 6970ed72ccf..dd8cccb724b 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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)))))