mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(vc-fetch-master-properties): Count cvs status "Needs Patch" as

Browse source 
`needs-checkout'.
(vc-after-save): Clear the cvs status.
This commit is contained in:
André Spiegel 1995-08-25 18:35:32 +00:00
parent b0c9bc8c21
commit d270fe6e2d
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/vc-hooks.el
View file

@ -332,9 +332,11 @@ value of this flag.")
(cond
((string-match "Locally Modified" status) 'locally-modified)
((string-match "Needs Merge" status) 'needs-merge)
((string-match "Needs Checkout" status) 'needs-checkout)
((string-match "Needs \\(Checkout\\|Patch\\)" status)
'needs-checkout)
((string-match "Unresolved Conflict" status) 'unresolved-conflict)
((string-match "Locally Added" status) 'locally-added)
(t 'unknown)
))))))))
(if (get-buffer "*vc-info*")
(kill-buffer (get-buffer "*vc-info*")))))
@ -804,7 +806,10 @@ of the buffer. With prefix argument, ask for version number."
(not (vc-locking-user file))
(eq (vc-checkout-model file) 'implicit)
(vc-file-setprop file 'vc-locking-user (user-login-name))
(vc-mode-line file))))
(progn
(and (eq (vc-backend file) 'CVS)
(vc-file-setprop file 'vc-cvs-status nil))
(vc-mode-line file)))))
(defun vc-mode-line (file &optional label)
"Set `vc-mode' to display type of version control for FILE.