From 449b6104e1b2feabfb66d9cfb7b145a5dc541989 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Mar 2004 22:44:23 +0000 Subject: [PATCH] (cvs-fileinfo->backup-file): Use a more constraining regexp to distinguish .#ChangeLog.9.1.400 and .#ChangeLog.1.400. --- lisp/pcvs-info.el | 7 ++++--- 1 file 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 ;; 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) -- 2.39.5