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 | b7cf6628f9ddc9db9568c2ad569ef123d5e7699f (patch) | |
| tree | 3dc7a8293af0acfc89426cd357577b4b4ec647ed /lisp/dired.el | |
| parent | 6c17fbd65fb18fb2af3078971b62c6e4782e47c9 (diff) | |
| download | emacs-b7cf6628f9ddc9db9568c2ad569ef123d5e7699f.tar.gz | |
1997-11-27 Richard Stallman <rms@sucrose.ai.mit.edu>
* dired.el (dired-move-to-filename-regexp): Make regexp fussier
about amount of whitespace after month name.
Diffstat (limited to 'lisp/dired.el')
| -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)) |