(vc-default-mode-line-string): Deal with 'removed

and 'missing files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd16a81ea9a2c8a6acbac5d05a63b6a8467b63e1..bad5c7052bd15fb24b985701cf8d64880cae5718 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-26  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-hooks.el (vc-default-mode-line-string): Deal with 'removed
+       and 'missing files.
+
 2008-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * calendar/holidays.el (list-holidays): Make Y2 optional.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 7b5e065fa59b32862a07106ee12bc3609f5605d5..06cdbef34e87eaeb38b4f9a2d99d98b7514cf395 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -862,6 +862,12 @@ This function assumes that the file is registered."
            ((eq state 'added)
             (setq state-echo "Locally added file")
             (concat backend "@" rev))
+           ((eq state 'removed)
+            (setq state-echo "File removed from the VC system")
+            (concat backend "!" rev))
+           ((eq state 'missing)
+            (setq state-echo "File tracked by the VC system, but missing from the file system")
+            (concat backend "^" rev))
           (t
            ;; Not just for the 'edited state, but also a fallback
            ;; for all other states.  Think about different symbols