martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(vc-find-cvs-master): Accept ...+ in a normal entry.

Browse Source
This commit is contained in:
Richard M. Stallman
1997-05-04 06:49:53 +00:00
parent 5dd0cad075
commit 9f49ec7384
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/vc-hooks.el
View File

@@ -786,7 +786,7 @@ For CVS, the full name of CVS/Entries is returned."
;; 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]*\\)")
"/\\([^/]*\\)/\\([^/+]*\\+\\)?[^ /]* \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) \\([0-9]*\\):\\([0-9]*\\):\\([0-9]*\\) \\([0-9]*\\)")
nil t)
(setq case-fold-search fold) ;; restore the old value
;; We found it. Store away version number now that we
@@ -797,16 +797,16 @@ For CVS, the full name of CVS/Entries is returned."
;; If the file hasn't been modified since checkout,
;; store the checkout-time.
(let ((mtime (nth 5 (file-attributes file)))
(second (string-to-number (match-string 6)))
(minute (string-to-number (match-string 5)))
(hour (string-to-number (match-string 4)))
(day (string-to-number (match-string 3)))
(year (string-to-number (match-string 7))))
(second (string-to-number (match-string 7)))
(minute (string-to-number (match-string 6)))
(hour (string-to-number (match-string 5)))
(day (string-to-number (match-string 4)))
(year (string-to-number (match-string 8))))
(if (equal mtime
(encode-time
second minute hour day
(/ (string-match
(match-string 2)
(match-string 3)
"xxxJanFebMarAprMayJunJulAugSepOctNovDec")
3)
year 0))