From 874f31a6f0b3ef12bcf7ea25accb6e0e6c196164 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 24 Mar 2008 08:36:22 +0000 Subject: [PATCH] (vc-cvs-after-dir-status, vc-cvs-parse-status): Detect removed files. --- lisp/ChangeLog | 3 +++ lisp/vc-cvs.el | 2 ++ 2 files changed, 5 insertions(+) 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 + * 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)))))) -- 2.39.2