procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cvs-fileinfo->backup-file): Use a more constraining

Browse source 
regexp to distinguish .#ChangeLog.9.1.400 and .#ChangeLog.1.400.
This commit is contained in:
Stefan Monnier 2004-03-04 22:44:23 +00:00
parent 31df2900a4
commit 449b6104e1
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/pcvs-info.el
View file

@ -1,6 +1,7 @@
;;; pcvs-info.el --- internal representation of a fileinfo entry
;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2004
;; Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
@ -219,8 +220,8 @@ to confuse some users sometimes."
(file (cvs-fileinfo->file fileinfo))
(default-directory (file-name-as-directory (expand-file-name dir)))
(files (directory-files "." nil
(concat "^" (regexp-quote cvs-bakprefix)
(regexp-quote file) "\\.")))
(concat "\\`" (regexp-quote cvs-bakprefix)
(regexp-quote file) "\\(\\.[0-9]+\\.[0-9]+\\)+\\'")))
bf)
(dolist (f files bf)
(when (and (file-readable-p f)