# HG changeset patch # User Chong Yidong # Date 1266786766 18000 # Node ID 8554c569b8fdda69f39e03327bbfd8dad0022eb3 # Parent f9121af0ebc9e196657e10bef1431d574734ba30 * 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 -r f9121af0ebc9 -r 8554c569b8fd lisp/ChangeLog --- a/lisp/ChangeLog Sun Feb 21 16:05:13 2010 -0500 +++ b/lisp/ChangeLog Sun Feb 21 16:12:46 2010 -0500 @@ -1,5 +1,9 @@ 2010-02-21 Chong Yidong + * 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 -r f9121af0ebc9 -r 8554c569b8fd lisp/files.el --- a/lisp/files.el Sun Feb 21 16:05:13 2010 -0500 +++ b/lisp/files.el Sun Feb 21 16:12:46 2010 -0500 @@ -5592,8 +5592,10 @@ ;; -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 @@ ;; 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.")