mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(vc-hg-dir-state): Set the vc-backend property.

Browse Source
This commit is contained in:
Dan Nicolaescu 2007-12-29 23:00:36 +00:00
parent 1da8a03154
commit 03da37df75
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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,

6
lisp/vc-hg.el
View File

@ -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)))))