Mercurial > emacs
changeset 93327:f6aa1bf031f5
(vc-hg-state, vc-hg-dir-state): Deal with 'missing
files.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 27 Mar 2008 22:18:10 +0000 |
| parents | e430e106fa7b |
| children | 15b0834c93df |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 27 22:15:54 2008 +0000 +++ b/lisp/ChangeLog Thu Mar 27 22:18:10 2008 +0000 @@ -1,5 +1,8 @@ 2008-03-27 Dan Nicolaescu <dann@ics.uci.edu> + * vc-hg.el (vc-hg-state, vc-hg-dir-state): Deal with 'missing + files. + * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Fix predicate. 2008-03-27 Stefan Monnier <monnier@iro.umontreal.ca>
--- a/lisp/vc-hg.el Thu Mar 27 22:15:54 2008 +0000 +++ b/lisp/vc-hg.el Thu Mar 27 22:18:10 2008 +0000 @@ -177,6 +177,7 @@ ((eq state ?M) 'edited) ((eq state ?I) 'ignored) ((eq state ?R) 'removed) + ((eq state ?!) 'missing) ((eq state ??) 'unregistered) ((eq state ?C) 'up-to-date) ;; Older mercurials use this (t 'up-to-date))))))) @@ -222,7 +223,8 @@ (vc-file-setprop file 'vc-backend 'none) (vc-file-setprop file 'vc-state 'unregistered)) ((eq status-char ?!) - nil) + (vc-file-setprop file 'vc-backend 'Hg) + (vc-file-setprop file 'vc-state 'missing)) (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)))