From: Paul Eggert <eggert@twinsun.com>
Date: Mon, 17 Nov 1997 18:55:46 +0000 (+0000)
Subject: (dired-move-to-filename-regexp):
X-Git-Tag: emacs-20.3~2802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32184bdb2623f5a5bee18b18b1c488502269c7b1;p=emacs.git

(dired-move-to-filename-regexp):
Allow month names of length 2 and up,
with varying white space afterwards; e.g. Solaris 2.6 "es" locale
uses "ab" for April and "fbro" for February.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index ddda0169ef8..a1c2eba046b 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1351,17 +1351,17 @@ DIR must be a directory name, not a file name."
 ;;; Functions for finding the file name in a dired buffer line.
 
 (defvar dired-move-to-filename-regexp
-   (let* ((l "[A-Za-z\xa0-\xff]")
- 	 (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 l s dd "\\|" dd s l l l "\\)"
+  (let* ((l "[A-Za-z\xa0-\xff]")
+	 (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 "+ *" "\\)"
 			  s "\\(" HH:MM "\\|" s yyyy "\\)"))
- 	 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
-     (concat s "\\(" western "\\|" japanese "\\)" s))
+	 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
+    (concat s "\\(" western "\\|" japanese "\\)" s))
   "Regular expression to match a date and time in a directory listing.
 The default value is designed to recognize dates and times
 regardless of the language.")