Mercurial > emacs

changeset 20383:3a76b48c399d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Joel N. Weber II <devnull@gnu.org>
date Sat, 29 Nov 1997 05:21:18 +0000
parents dbad9367d232
children 931b472be076
files lisp/dired.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Fri Nov 28 14:53:09 1997 +0000
+++ b/lisp/dired.el	Sat Nov 29 05:21:18 1997 +0000
@@ -1352,13 +1352,18 @@
 
 (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))