Mercurial > emacs
changeset 25808:86273069818a
(dired-move-to-filename-regexp): Make it work
for LANG=de_DE.iso88591 on HPUX 11.0.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 24 Sep 1999 12:57:21 +0000 |
parents | b245d837503b |
children | 89230444d638 |
files | lisp/dired.el |
diffstat | 1 files changed, 15 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Fri Sep 24 12:57:17 1999 +0000 +++ b/lisp/dired.el Fri Sep 24 12:57:21 1999 +0000 @@ -1358,7 +1358,9 @@ (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") ;; In some locales, month abbreviations are as short as 2 letters, ;; and they can be padded on the right with spaces. - (month (concat l l "+ *")) + ;; weiand: changed: month ends potentially with . or , or ., +;;old (month (concat l l "+ *")) + (month (concat l l "+[.]?,? *")) ;; Recognize any non-ASCII character. ;; The purpose is to match a Kanji character. (k "[^\0-\177]") @@ -1366,16 +1368,23 @@ (s " ") (yyyy "[0-9][0-9][0-9][0-9]") (mm "[ 0-1][0-9]") - (dd "[ 0-3][0-9]") +;;old (dd "[ 0-3][0-9]") + (dd "[ 0-3][0-9][.]?") (HH:MM "[ 0-2][0-9]:[0-5][0-9]") (western (concat "\\(" month s dd "\\|" dd s month "\\)" - s "\\(" HH:MM "\\|" s yyyy "\\|" yyyy s "\\)")) + ;; weiand: changed: year potentially unaligned +;;old s "\\(" HH:MM "\\|" s yyyy "\\|" yyyy s "\\)")) + s "\\(" HH:MM "\\|" s "?" yyyy "\\|" yyyy s +"\\)")) (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) - ;; The "[0-9]" below requires the previous column to end in a digit. + ;; The "[0-9]" below requires the previous column to end in a +digit. ;; This avoids recognizing `1 may 1997' as a date in the line: ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README - ;; The ".*" below finds the last match if there are multiple matches. - ;; This avoids recognizing `jservice 10 1024' as a date in the line: + ;; The ".*" below finds the last match if there are multiple +matches. + ;; This avoids recognizing `jservice 10 1024' as a date in the +line: ;; drwxr-xr-x 3 jservice 10 1024 Jul 2 1997 esg-host (concat ".*[0-9]" s "\\(" western "\\|" japanese "\\)" s)) "Regular expression to match up to the file name in a directory listing.