diff options
| author | André Spiegel <spiegel@gnu.org> | 1995-08-25 18:35:32 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 1995-08-25 18:35:32 +0000 |
| commit | 5b33b92c1499a63de705988df04e433dad53f996 (patch) | |
| tree | 6c16843c9b5351afca3887e56cadf18424b71f2e /lisp/vc-hooks.el | |
| parent | 68bf07837124906545a88cde726862d895e57868 (diff) | |
| download | emacs-5b33b92c1499a63de705988df04e433dad53f996.tar.gz | |
(vc-fetch-master-properties): Count cvs status "Needs Patch" as
`needs-checkout'.
(vc-after-save): Clear the cvs status.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index eb251b096ec..24ab7e6345b 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -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. |