From 70b760ed2da29f1b5a8f90047ce70066da868cd5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Apr 1997 01:04:48 +0000 Subject: [PATCH] (vc-find-cvs-master): Handle a "New file!" entry. (vc-fetch-master-properties): Match "New file!". --- lisp/vc-hooks.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index ffcb5930de7..6ddba1a4a3b 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -356,6 +356,7 @@ See also variable `vc-consult-headers'.") 'needs-checkout) ((string-match "Unresolved Conflict" status) 'unresolved-conflict) ((string-match "Locally Added" status) 'locally-added) + ((string-match "New file!" status) 'locally-added) (t 'unknown) )))))))) (if (get-buffer "*vc-info*") @@ -818,6 +819,13 @@ For CVS, the full name of CVS/Entries is returned." (vc-file-setprop file 'vc-checkout-time 0) (vc-file-setprop file 'vc-workfile-version "0") (throw 'found (cons (concat dirname "CVS/Entries") 'CVS))) + ((re-search-forward + (concat "^/" (regexp-quote basename) + "/\\([^/]*\\)/Initial") nil t) + (setq case-fold-search fold) ;; restore the old value + (vc-file-setprop file 'vc-workfile-version "0") + (vc-file-setprop file 'vc-checkout-time 0) + (throw 'found (cons (concat dirname "CVS/Entries") 'CVS))) (t (setq case-fold-search fold) ;; restore the old value nil))) (kill-buffer buffer))))) -- 2.39.5