Mercurial > emacs
changeset 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 | 06c5a50f7aa2 |
| children | f82034083629 |
| files | lisp/ChangeLog lisp/vc-git.el lisp/vc-hg.el |
| diffstat | 3 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jan 04 05:47:53 2008 +0000 +++ b/lisp/ChangeLog Fri Jan 04 07:59:25 2008 +0000 @@ -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.
--- a/lisp/vc-git.el Fri Jan 04 05:47:53 2008 +0000 +++ b/lisp/vc-git.el Fri Jan 04 07:59:25 2008 +0000 @@ -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)
--- 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)