Mercurial > emacs
diff lisp/pcvs-info.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | cce1c0ee76ee |
line wrap: on
line diff
--- a/lisp/pcvs-info.el Thu Apr 15 01:08:34 2004 +0000 +++ b/lisp/pcvs-info.el Fri Apr 16 12:51:06 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 @@ -129,7 +130,7 @@ "The prefix that CVS prepends to files when rcsmerge'ing.") (easy-mmode-defmap cvs-status-map - '(([(mouse-2)] . cvs-mouse-toggle-mark)) + '(([(mouse-2)] . cvs-mode-toggle-mark)) "Local keymap for text properties of status") ;; Constructor: @@ -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) @@ -470,4 +471,5 @@ (provide 'pcvs-info) +;;; arch-tag: d85dde07-bdc2-400a-882f-92f398c7b0ba ;;; pcvs-info.el ends here