From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 24 Mar 2008 08:36:22 +0000 (+0000)
Subject: (vc-cvs-after-dir-status, vc-cvs-parse-status): Detect
X-Git-Tag: emacs-pretest-23.0.90~6963
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=874f31a6f0b3ef12bcf7ea25accb6e0e6c196164;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d9e0ec760b..05a5904e2ec 100644
--- 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 a3a8b198956..a338b5115b8 100644
--- 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))))))