diff options
| author | Joel N. Weber II <devnull@gnu.org> | 1997-11-29 05:21:18 +0000 |
|---|---|---|
| committer | Joel N. Weber II <devnull@gnu.org> | 1997-11-29 05:21:18 +0000 |
| commit | 33165c240f2f2aa1dcaca840cdc2f383bd688726 (patch) | |
| tree | 6dcaf48470be047d52af30545a4c774928e93c36 | |
| parent | 6b53bb85631d8a4d6ef86b6f1b038321bd713f43 (diff) | |
| download | emacs-33165c240f2f2aa1dcaca840cdc2f383bd688726.tar.gz | |
1997-11-27 Richard M. Stallman <rms@sucrose.ai.mit.edu>
* dired.el (dired-move-to-filename-regexp): Make regexp fussier
about amount of whitespace after month name.
| -rw-r--r-- | lisp/dired.el | 7 |
1 files changed, 6 insertions, 1 deletions
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)) |