(vc-find-cvs-master): Handle a "New file!" entry.

(vc-fetch-master-properties): Match "New file!".

1 files changed, 8 insertions, 0 deletions

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)))))