Commit d270fe6e authored by André Spiegel's avatar André Spiegel
Browse files

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

`needs-checkout'.
(vc-after-save): Clear the cvs status.
parent b0c9bc8c
......@@ -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.
......
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