From d270fe6e2d55e44dd901be80cbb484a24eb36bcb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Fri, 25 Aug 1995 18:35:32 +0000 Subject: [PATCH] (vc-fetch-master-properties): Count cvs status "Needs Patch" as `needs-checkout'. (vc-after-save): Clear the cvs status. --- lisp/vc-hooks.el | 9 +++++++-- 1 file 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. -- 2.39.2