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 | d270fe6e2d55e44dd901be80cbb484a24eb36bcb (patch) | |
| tree | 147af4e07ab3f087cdf2f512f6ca22dcca008f40 /lisp/vc-hooks.el | |
| parent | b0c9bc8c219872ae1533934ddd62c38e8a4d37b0 (diff) | |
| download | emacs-d270fe6e2d55e44dd901be80cbb484a24eb36bcb.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. |