diff options
author | André Spiegel <spiegel@gnu.org> | 2002-11-03 14:55:58 +0000 |
---|---|---|
committer | André Spiegel <spiegel@gnu.org> | 2002-11-03 14:55:58 +0000 |
commit | 52cbdf4d87104af44696379562b809e897ca60b1 (patch) | |
tree | 5e07124604a51a40c3df6613b9a4bc09b02ece4b | |
parent | d052ee5ba57b9dd7460ea0b3cae914f095401532 (diff) | |
download | emacs-52cbdf4d87104af44696379562b809e897ca60b1.tar.gz |
(vc-dired-mode): Adapt dired-move-to-filename-regexp to its current
version in dired.el.
-rw-r--r-- | lisp/vc.el | 49 |
1 files changed, 29 insertions, 20 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index eff4417656e..30261f3a6ee 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.311.4.6 2002/07/20 17:37:45 spiegel Exp $ +;; $Id: vc.el,v 1.311.4.7 2002/10/15 18:48:46 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -2108,25 +2108,34 @@ There is a special command, `*l', to mark all files currently locked." ;; The following is slightly modified from dired.el, ;; because file lines look a bit different in vc-dired-mode. (set (make-local-variable 'dired-move-to-filename-regexp) - (let* - ((l "\\([A-Za-z]\\|[^\0-\177]\\)") - ;; In some locales, month abbreviations are as short as 2 letters, - ;; and they can be padded on the right with spaces. - (month (concat l l "+ *")) - ;; Recognize any non-ASCII character. - ;; The purpose is to match a Kanji character. - (k "[^\0-\177]") - ;; (k "[^\x00-\x7f\x80-\xff]") - (s " ") - (yyyy "[0-9][0-9][0-9][0-9]") - (mm "[ 0-1][0-9]") - (dd "[ 0-3][0-9]") - (HH:MM "[ 0-2][0-9]:[0-5][0-9]") - (western (concat "\\(" month s dd "\\|" dd s month "\\)" - s "\\(" HH:MM "\\|" s yyyy"\\|" yyyy s "\\)")) - (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) - ;; the .* below ensures that we find the last match on a line - (concat ".*" s "\\(" western "\\|" japanese "\\)" s))) + (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") + ;; In some locales, month abbreviations are as short as 2 letters, + ;; and they can be followed by ".". + (month (concat l l "+\\.?")) + (s " ") + (yyyy "[0-9][0-9][0-9][0-9]") + (dd "[ 0-3][0-9]") + (HH:MM "[ 0-2][0-9]:[0-5][0-9]") + (seconds "[0-6][0-9]\\([.,][0-9]+\\)?") + (zone "[-+][0-2][0-9][0-5][0-9]") + (iso-mm-dd "[01][0-9]-[0-3][0-9]") + (iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?")) + (iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time + "\\|" yyyy "-" iso-mm-dd "\\)")) + (western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)" + s "+" + "\\(" HH:MM "\\|" yyyy "\\)")) + (western-comma (concat month s "+" dd "," s "+" yyyy)) + ;; Japanese MS-Windows ls-lisp has one-digit months, and + ;; omits the Kanji characters after month and day-of-month. + (mm "[ 0-1]?[0-9]") + (japanese + (concat mm l "?" s dd l "?" s "+" + "\\(" HH:MM "\\|" yyyy l "?" "\\)"))) + ;; the .* below ensures that we find the last match on a line + (concat ".*" s + "\\(" western "\\|" western-comma "\\|" japanese "\\|" iso "\\)" + s "+"))) (and (boundp 'vc-dired-switches) vc-dired-switches (set (make-local-variable 'dired-actual-switches) |