diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-22 01:04:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-22 01:04:48 +0000 |
| commit | 70b760ed2da29f1b5a8f90047ce70066da868cd5 (patch) | |
| tree | 7841800571a47c292a22ca176ca21564d12ba214 /lisp/vc-hooks.el | |
| parent | d83cce6dda49e4ea7b356d4d789cfb78b1d4be65 (diff) | |
| download | emacs-70b760ed2da29f1b5a8f90047ce70066da868cd5.tar.gz | |
(vc-find-cvs-master): Handle a "New file!" entry.
(vc-fetch-master-properties): Match "New file!".
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 8 |
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))))) |