diff options
| author | Chong Yidong | 2010-02-21 16:12:46 -0500 |
|---|---|---|
| committer | Chong Yidong | 2010-02-21 16:12:46 -0500 |
| commit | 50c58e2725507648d8d58ec6b2415e7f6d34862d (patch) | |
| tree | d762e301f3cbf26e390a7e5ce80c020f30b7879a | |
| parent | b660eb70f1e73146a769f81530ea262e90179d7b (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/files.el | 13 |
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 @@ | |||
| 1 | 2010-02-21 Chong Yidong <cyd@stupidchicken.com> | 1 | 2010-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. |
| 5608 | The default value is designed to recognize dates and times | 5611 | The default value is designed to recognize dates and times |
| 5609 | regardless of the language.") | 5612 | regardless of the language.") |