diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-04 07:59:25 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-04 07:59:25 +0000 |
| commit | 5378843c2327d5bd08f7c20e9e4f6c21ba888b75 (patch) | |
| tree | 3e6da02b7aec73c6ffe1b1464e48989038c88d53 | |
| parent | 78379264fb8fb2c6172a68211d6e6a448a2b0e23 (diff) | |
| download | emacs-5378843c2327d5bd08f7c20e9e4f6c21ba888b75.tar.gz | |
* vc-git.el (vc-git-dir-state):
* vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-git.el | 3 | ||||
| -rw-r--r-- | lisp/vc-hg.el | 2 |
3 files changed, 10 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ee492aff86..58420d8483b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/vc-git.el b/lisp/vc-git.el index be5bbcfe43e..4d68624ad8e 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -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) diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index a7c10eeb027..7f1074abdcc 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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) |