Mercurial > emacs
changeset 44104:985526b08270
(vc-cvs-registered, vc-cvs-dir-state-heuristic):
Don't consider cvs-removed files as under VC control.
VC wouldn't handle them properly anyway and it confuses
vc-file-not-found-hook.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 22 Mar 2002 23:10:01 +0000 |
| parents | f93538d76117 |
| children | 70f755b6a5c9 |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-cvs.el Fri Mar 22 23:05:26 2002 +0000 +++ b/lisp/vc-cvs.el Fri Mar 22 23:10:01 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-cvs.el,v 1.35 2002/03/05 13:30:50 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.36 2002/03/18 17:19:45 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -163,7 +163,8 @@ (goto-char (point-min)) (cond ((re-search-forward - (concat "^/" (regexp-quote basename) "/") nil t) + ;; CVS-removed files are not taken under VC control. + (concat "^/" (regexp-quote basename) "/[^/-]") nil t) (beginning-of-line) (vc-cvs-parse-entry file) t) @@ -778,7 +779,8 @@ (vc-insert-file (expand-file-name "CVS/Entries" dir)) (goto-char (point-min)) (while (not (eobp)) - (when (looking-at "/\\([^/]*\\)/") + ;; CVS-removed files are not taken under VC control. + (when (looking-at "/\\([^/]*\\)/[^/-]") (let ((file (expand-file-name (match-string 1) dir))) (unless (vc-file-getprop file 'vc-state) (vc-cvs-parse-entry file t)))) @@ -871,7 +873,7 @@ "\\(.\\|\\)" ;Sticky tag type (date or tag name, could be empty) "\\(.*\\)")) ;Sticky tag (vc-file-setprop file 'vc-workfile-version (match-string 1)) - (vc-file-setprop file 'vc-cvs-sticky-tag + (vc-file-setprop file 'vc-cvs-sticky-tag (vc-cvs-parse-sticky-tag (match-string 5) (match-string 6))) ;; compare checkout time and modification time (let ((mtime (nth 5 (file-attributes file)))