(vc-bzr-state): Return 'removed for removed files and

'unregistered for unregistered files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7353cbebdfac5b8ad232b458d1354515c3e8ffb..b64aa9a09f452eb08f6107f0c88255b1bc14e456 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-bzr.el (vc-bzr-state): Return 'removed for removed files and
+       'unregistered for unregistered files.
+
        * vc-hg.el (vc-hg-state): Return 'removed for removed files.
 
        * bindings.el (standard-mode-line-modes): Avoid duplicating a string.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 93ffed16c48be41b5ee367e2f82320a0ee28301c..f44670e7bc356cf1047cd0420a6689765a2fc353 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -227,9 +227,9 @@ If any error occurred in running `bzr status', then return nil."
                    (kindchanged . edited)
                    (renamed . edited)
                    (modified . edited)
-                   (removed . edited)
-                   (ignored . nil)
-                   (unknown . nil)
+                   (removed . removed)
+                   (ignored . unregistered)
+                   (unknown . unregistered)
                    (unchanged . up-to-date)))))))
 
 (defun vc-bzr-resolve-when-done ()