Mercurial > emacs
changeset 25807:b245d837503b
(ange-ftp-date-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:17 +0000 |
| parents | 7ed67319c5aa |
| children | 86273069818a |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Fri Sep 24 10:05:01 1999 +0000 +++ b/lisp/ange-ftp.el Fri Sep 24 12:57:17 1999 +0000 @@ -2529,13 +2529,17 @@ (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 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]") (s " ") (mm "[ 0-1][0-9]") - (dd "[ 0-3][0-9]") + ;; weiand: changed: day ends with . +;;old (dd "[ 0-3][0-9]") + (dd "[ 0-3][0-9][.]?") (western (concat "\\(" month s dd "\\|" dd s month "\\)")) (japanese (concat mm k s dd k))) ;; Require the previous column to end in a digit.