From: Stefan Monnier Date: Thu, 4 Mar 2004 22:44:23 +0000 (+0000) Subject: (cvs-fileinfo->backup-file): Use a more constraining X-Git-Tag: ttn-vms-21-2-B4~7343 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=449b6104e1b2feabfb66d9cfb7b145a5dc541989;p=emacs.git (cvs-fileinfo->backup-file): Use a more constraining regexp to distinguish .#ChangeLog.9.1.400 and .#ChangeLog.1.400. --- 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)