# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861671088 0
# Node ID 1518eb71378d46eac4c404b3edccc3ca0dfa40d7
# Parent  2f06477dce5da4d6391a2750099dacece574e8fb
(vc-find-cvs-master): Handle a "New file!" entry.
(vc-fetch-master-properties): Match "New file!".

diff -r 2f06477dce5d -r 1518eb71378d lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Mon Apr 21 23:48:34 1997 +0000
+++ b/lisp/vc-hooks.el	Tue Apr 22 01:04:48 1997 +0000
@@ -356,6 +356,7 @@
                                                           '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 @@
 		(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)))))