From 33165c240f2f2aa1dcaca840cdc2f383bd688726 Mon Sep 17 00:00:00 2001 From: "Joel N. Weber II" Date: Sat, 29 Nov 1997 05:21:18 +0000 Subject: [PATCH] 1997-11-27 Richard M. Stallman * dired.el (dired-move-to-filename-regexp): Make regexp fussier about amount of whitespace after month name. --- lisp/dired.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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)) -- 2.39.2