From: Joel N. Weber II Date: Sat, 29 Nov 1997 05:21:18 +0000 (+0000) Subject: 1997-11-27 Richard M. Stallman X-Git-Tag: emacs-20.3~2690 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33165c240f2f2aa1dcaca840cdc2f383bd688726;p=emacs.git 1997-11-27 Richard M. Stallman * dired.el (dired-move-to-filename-regexp): Make regexp fussier about amount of whitespace after month name. --- diff --git a/lisp/dired.el b/lisp/dired.el index a1c2eba046b..c8d97f1dd01 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1352,13 +1352,18 @@ DIR must be a directory name, not a file name." (defvar dired-move-to-filename-regexp (let* ((l "[A-Za-z\xa0-\xff]") + ;; Letter or space. + (ls "[ A-Za-z\xa0-\xff]") + (month (concat l l "\\(" ls "\\|" l l "\\)")) + ;; Recognize any non-ASCII character. + ;; The purpose is to match a Kanji character. (k "[^\x00-\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 "\\(" l l "+ +" dd "\\|" dd s l l "+ *" "\\)" + (western (concat "\\(" month s dd "\\|" dd s month "\\)" s "\\(" HH:MM "\\|" s yyyy "\\)")) (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) (concat s "\\(" western "\\|" japanese "\\)" s))