# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206506802 0
# Node ID 3d37b67e5a015f3be4ca0c513021d198a5729559
# Parent  a2947a0dab5608df591af0747c3bd0faa7722369
(vc-default-mode-line-string): Deal with 'removed
and 'missing files.

diff -r a2947a0dab56 -r 3d37b67e5a01 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 26 03:43:43 2008 +0000
+++ b/lisp/ChangeLog	Wed Mar 26 04:46:42 2008 +0000
@@ -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 -r a2947a0dab56 -r 3d37b67e5a01 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Mar 26 03:43:43 2008 +0000
+++ b/lisp/vc-hooks.el	Wed Mar 26 04:46:42 2008 +0000
@@ -862,6 +862,12 @@
            ((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