Mercurial > emacs
changeset 93175:7b2ec9fec56e
(vc-cvs-after-dir-status, vc-cvs-parse-status): Detect
removed files.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 24 Mar 2008 08:36:22 +0000 |
| parents | b7cb59b2c42d |
| children | c985261aee9c |
| files | lisp/ChangeLog lisp/vc-cvs.el |
| diffstat | 2 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Mar 24 08:35:33 2008 +0000 +++ b/lisp/ChangeLog Mon Mar 24 08:36:22 2008 +0000 @@ -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.
--- a/lisp/vc-cvs.el Mon Mar 24 08:35:33 2008 +0000 +++ b/lisp/vc-cvs.el Mon Mar 24 08:36:22 2008 +0000 @@ -855,6 +855,7 @@ ((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 @@ ((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))))))