Mercurial > emacs
changeset 16216:3c6aaa4f236a
(vc-find-cvs-master): Fixed handling of "locally added" files.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Mon, 16 Sep 1996 14:44:22 +0000 |
| parents | 2c91cd1a660a |
| children | bf9ff58e9518 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Mon Sep 16 14:43:29 1996 +0000 +++ b/lisp/vc-hooks.el Mon Sep 16 14:44:22 1996 +0000 @@ -785,6 +785,7 @@ ;; case-sensitively (setq case-fold-search nil) (cond + ;; normal entry ((re-search-forward (concat "^/" (regexp-quote basename) "/\\([^/]*\\)/[^ /]* \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) \\([0-9]*\\):\\([0-9]*\\):\\([0-9]*\\) \\([0-9]*\\)") @@ -814,6 +815,13 @@ (vc-file-setprop file 'vc-checkout-time mtime) (vc-file-setprop file 'vc-checkout-time 0))) (throw 'found (cons (concat dirname "CVS/Entries") 'CVS))) + ;; entry for a "locally added" file (not yet committed) + ((re-search-forward + (concat "^/" (regexp-quote basename) "/0/Initial ") nil t) + (setq case-fold-search fold) ;; restore the old value + (vc-file-setprop file 'vc-checkout-time 0) + (vc-file-setprop file 'vc-workfile-version "0") + (throw 'found (cons (concat dirname "CVS/Entries") 'CVS))) (t (setq case-fold-search fold) ;; restore the old value nil))) (kill-buffer buffer)))))