Mercurial > emacs

changeset 17528:1518eb71378d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-find-cvs-master): Handle a "New file!" entry. (vc-fetch-master-properties): Match "New file!".
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Apr 1997 01:04:48 +0000
parents 2f06477dce5d
children d74be66ca177
files lisp/vc-hooks.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))))