From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 21 Feb 2010 21:12:46 +0000 (-0500)
Subject: * files.el (directory-listing-before-filename-regexp): Use
X-Git-Tag: emacs-pretest-23.1.93~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50c58e2725507648d8d58ec6b2415e7f6d34862d;p=emacs.git

* files.el (directory-listing-before-filename-regexp): Use
stricter matching for iso-style dates, to avoid false matches with
date-like filenames (Bug#5597).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40683a9c769..c33598f6e24 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-02-21  Chong Yidong  <cyd@stupidchicken.com>
 
+	* files.el (directory-listing-before-filename-regexp): Use
+	stricter matching for iso-style dates, to avoid false matches with
+	date-like filenames (Bug#5597).
+
 	* htmlfontify.el (htmlfontify): Doc fix.
 
 	* eshell/eshell.el (eshell): Doc fix.
diff --git a/lisp/files.el b/lisp/files.el
index 41cddcd4f62..ee03c115cf8 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5592,8 +5592,10 @@ program specified by `directory-free-space-program' if that is non-nil."
 	 ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README
 
 	 ;; The "[BkKMGTPEZY]?" below supports "ls -alh" output.
-	 ;; The ".*" below finds the last match if there are multiple matches.
-	 ;; This avoids recognizing `jservice  10  1024' as a date in the line:
+
+	 ;; For non-iso date formats, we add the ".*" in order to find
+	 ;; the last possible match.  This avoids recognizing
+	 ;; `jservice 10 1024' as a date in the line:
 	 ;; drwxr-xr-x  3 jservice  10  1024 Jul  2  1997 esg-host
 
          ;; vc dired listings provide the state or blanks between file
@@ -5601,9 +5603,10 @@ program specified by `directory-free-space-program' if that is non-nil."
          ;; parantheses:
          ;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el
          ;; This is not supported yet.
-    (purecopy (concat ".*[0-9][BkKMGTPEZY]?" s
-	    "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)"
-	    s "+")))
+    (purecopy (concat "\\([0-9][BkKMGTPEZY]? " iso
+		      "\\|.*[0-9][BkKMGTPEZY]? "
+		      "\\(" western "\\|" western-comma "\\|" east-asian "\\)"
+		      "\\) +")))
   "Regular expression to match up to the file name in a directory listing.
 The default value is designed to recognize dates and times
 regardless of the language.")