Mercurial > emacs
changeset 87480:be64fe15280d
(vc-hg-dir-state): Set the vc-backend property.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 29 Dec 2007 23:00:36 +0000 |
| parents | 2e49e580bc28 |
| children | bed1912c8752 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Dec 29 19:20:36 2007 +0000 +++ b/lisp/ChangeLog Sat Dec 29 23:00:36 2007 +0000 @@ -1,3 +1,7 @@ +2007-12-29 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-hg.el (vc-hg-dir-state): Set the vc-backend property. + 2007-12-29 Eric S. Raymond <esr@snark.thyrsus.com> * vc-svn.el (vc-svn-parse-status): Recognize 'unregistered,
--- a/lisp/vc-hg.el Sat Dec 29 19:20:36 2007 +0000 +++ b/lisp/vc-hg.el Sat Dec 29 23:00:36 2007 +0000 @@ -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)))))