diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-04 22:44:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-04 22:44:23 +0000 |
| commit | 449b6104e1b2feabfb66d9cfb7b145a5dc541989 (patch) | |
| tree | c9f95812cd9b43f834a86651cae22de74bccccaf /lisp/pcvs-info.el | |
| parent | 31df2900a4eff83b897549f093abb5a01ec3c91c (diff) | |
| download | emacs-449b6104e1b2feabfb66d9cfb7b145a5dc541989.tar.gz | |
(cvs-fileinfo->backup-file): Use a more constraining
regexp to distinguish .#ChangeLog.9.1.400 and .#ChangeLog.1.400.
Diffstat (limited to 'lisp/pcvs-info.el')
| -rw-r--r-- | lisp/pcvs-info.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el index 6fa47b9e97c..52989e4c9c6 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -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) |