aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2010-02-21 16:12:46 -0500
committerChong Yidong2010-02-21 16:12:46 -0500
commit50c58e2725507648d8d58ec6b2415e7f6d34862d (patch)
treed762e301f3cbf26e390a7e5ce80c020f30b7879a
parentb660eb70f1e73146a769f81530ea262e90179d7b (diff)
downloademacs-50c58e2725507648d8d58ec6b2415e7f6d34862d.tar.gz
emacs-50c58e2725507648d8d58ec6b2415e7f6d34862d.zip
* files.el (directory-listing-before-filename-regexp): Use
stricter matching for iso-style dates, to avoid false matches with date-like filenames (Bug#5597).
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/files.el13
2 files changed, 12 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40683a9c769..c33598f6e24 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
12010-02-21 Chong Yidong <cyd@stupidchicken.com> 12010-02-21 Chong Yidong <cyd@stupidchicken.com>
2 2
3 * files.el (directory-listing-before-filename-regexp): Use
4 stricter matching for iso-style dates, to avoid false matches with
5 date-like filenames (Bug#5597).
6
3 * htmlfontify.el (htmlfontify): Doc fix. 7 * htmlfontify.el (htmlfontify): Doc fix.
4 8
5 * eshell/eshell.el (eshell): Doc fix. 9 * 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."
5592 ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README 5592 ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README
5593 5593
5594 ;; The "[BkKMGTPEZY]?" below supports "ls -alh" output. 5594 ;; The "[BkKMGTPEZY]?" below supports "ls -alh" output.
5595 ;; The ".*" below finds the last match if there are multiple matches. 5595
5596 ;; This avoids recognizing `jservice 10 1024' as a date in the line: 5596 ;; For non-iso date formats, we add the ".*" in order to find
5597 ;; the last possible match. This avoids recognizing
5598 ;; `jservice 10 1024' as a date in the line:
5597 ;; drwxr-xr-x 3 jservice 10 1024 Jul 2 1997 esg-host 5599 ;; drwxr-xr-x 3 jservice 10 1024 Jul 2 1997 esg-host
5598 5600
5599 ;; vc dired listings provide the state or blanks between file 5601 ;; 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."
5601 ;; parantheses: 5603 ;; parantheses:
5602 ;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el 5604 ;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el
5603 ;; This is not supported yet. 5605 ;; This is not supported yet.
5604 (purecopy (concat ".*[0-9][BkKMGTPEZY]?" s 5606 (purecopy (concat "\\([0-9][BkKMGTPEZY]? " iso
5605 "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)" 5607 "\\|.*[0-9][BkKMGTPEZY]? "
5606 s "+"))) 5608 "\\(" western "\\|" western-comma "\\|" east-asian "\\)"
5609 "\\) +")))
5607 "Regular expression to match up to the file name in a directory listing. 5610 "Regular expression to match up to the file name in a directory listing.
5608The default value is designed to recognize dates and times 5611The default value is designed to recognize dates and times
5609regardless of the language.") 5612regardless of the language.")