# HG changeset patch
# User Joel N. Weber II <devnull@gnu.org>
# Date 880780878 0
# Node ID 3a76b48c399d5b37cc785e23ecf708a800bdef06
# Parent  dbad9367d2321da049585246d44b753d4e521510
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.

diff -r dbad9367d232 -r 3a76b48c399d lisp/dired.el
--- 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))