Commit 33165c24 authored by Joel N. Weber II's avatar Joel N. Weber II
Browse files

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.
parent 6b53bb85
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment