Mercurial > emacs
changeset 54280:bfa320f698d6
(cvs-fileinfo->backup-file): Use a more constraining
regexp to distinguish .#ChangeLog.9.1.400 and .#ChangeLog.1.400.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 04 Mar 2004 22:44:23 +0000 |
| parents | 41d93a97701d |
| children | 7b3add67c42a |
| files | lisp/pcvs-info.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs-info.el Thu Mar 04 20:02:52 2004 +0000 +++ b/lisp/pcvs-info.el Thu Mar 04 22:44:23 2004 +0000 @@ -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 @@ (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)