Commit 874f31a6 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

removed files.
parent d6f47dff
2008-03-24 Dan Nicolaescu <> 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.el (vc-status-printer): Use a different face for missing files.
(vc-status-hide-up-to-date): Rename from (vc-status-hide-up-to-date): Rename from
vc-status-remove-up-to-date. Update all callers. vc-status-remove-up-to-date. Update all callers.
...@@ -855,6 +855,7 @@ state." ...@@ -855,6 +855,7 @@ state."
((string-match "Needs Merge" status) 'needs-merge) ((string-match "Needs Merge" status) 'needs-merge)
((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch) ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)
((string-match "Locally Added" status) 'added) ((string-match "Locally Added" status) 'added)
((string-match "Locally Removed" status) 'removed)
(t 'edited)))))))) (t 'edited))))))))
(defun vc-cvs-dir-state-heuristic (dir) (defun vc-cvs-dir-state-heuristic (dir)
...@@ -916,6 +917,7 @@ state." ...@@ -916,6 +917,7 @@ state."
((string-match "Needs \\(Checkout\\|Patch\\)" status-str) ((string-match "Needs \\(Checkout\\|Patch\\)" status-str)
'needs-patch) 'needs-patch)
((string-match "Locally Added" status-str) 'added) ((string-match "Locally Added" status-str) 'added)
((string-match "Locally Removed" status-str) 'removed)
(t 'edited))) (t 'edited)))
(unless (eq status 'up-to-date) (unless (eq status 'up-to-date)
(push (cons file status) result)))))) (push (cons file status) result))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment