(vc-cvs-after-dir-status, vc-cvs-parse-status): Detect

removed files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d9e0ec760bd8c678ca504c6035b292fe5a5836b..05a5904e2ecc065ea8e14d616818583db6ddd940 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-24  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-cvs.el (vc-cvs-after-dir-status, vc-cvs-parse-status): Detect
+       removed files.
+
        * vc.el (vc-status-printer): Use a different face for missing files.
        (vc-status-hide-up-to-date): Rename from
        vc-status-remove-up-to-date.  Update all callers.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index a3a8b198956f438e50711f6edf5c7ce80faf6676..a338b5115b8ea32b5b012fe9ab28fa3865b63f37 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -855,6 +855,7 @@ state."
             ((string-match "Needs Merge" status)                  'needs-merge)
             ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)
             ((string-match "Locally Added" status)                'added)
+            ((string-match "Locally Removed" status)              'removed)
             (t 'edited))))))))
 
 (defun vc-cvs-dir-state-heuristic (dir)
@@ -916,6 +917,7 @@ state."
                   ((string-match "Needs \\(Checkout\\|Patch\\)" status-str)
                    'needs-patch)
                   ((string-match "Locally Added" status-str) 'added)
+                  ((string-match "Locally Removed" status-str) 'removed)
                   (t 'edited)))
            (unless (eq status 'up-to-date)
              (push (cons file status) result))))))