mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(vc-fetch-master-properties): Match "New file!".
This commit is contained in:
Richard M. Stallman 1997-04-22 01:04:48 +00:00
parent d83cce6dda
commit 70b760ed2d
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc-hooks.el
View file

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