From: Stefan Monnier Date: Fri, 22 Mar 2002 23:10:01 +0000 (+0000) Subject: (vc-cvs-registered, vc-cvs-dir-state-heuristic): X-Git-Tag: ttn-vms-21-2-B4~16015 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=839daccae74b7dd5c96dacfc93018a8d6cea6e79;p=emacs.git (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. --- diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index fd50ce757d9..450a433a897 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $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 @@ See also variable `vc-cvs-sticky-date-format-string'." (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 @@ essential information." (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 @@ is non-nil." "\\(.\\|\\)" ;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)))