diff options
| author | Paul Eggert <eggert@twinsun.com> | 1997-11-17 18:55:46 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1997-11-17 18:55:46 +0000 |
| commit | 32184bdb2623f5a5bee18b18b1c488502269c7b1 (patch) | |
| tree | db06f063cc4ac101e8eaa576825a34fa5348686f /lisp/dired.el | |
| parent | 3ababa6033df9862b5bc656a68774d3931d473b8 (diff) | |
| download | emacs-32184bdb2623f5a5bee18b18b1c488502269c7b1.tar.gz | |
(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.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 20 |
1 files changed, 10 insertions, 10 deletions
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.") |