Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
874f31a6
Commit
874f31a6
authored
Mar 24, 2008
by
Dan Nicolaescu
Browse files
(vc-cvs-after-dir-status, vc-cvs-parse-status): Detect
removed files.
parent
d6f47dff
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
0 deletions
+5
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/vc-cvs.el
lisp/vc-cvs.el
+2
-0
No files found.
lisp/ChangeLog
View file @
874f31a6
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.
...
...
lisp/vc-cvs.el
View file @
874f31a6
...
...
@@ -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))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment