From e6b6d5c10328d66ce1819a8d9a77e30f02e60e6a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 24 Sep 1999 12:57:17 +0000 Subject: [PATCH] (ange-ftp-date-regexp): Make it work for LANG=de_DE.iso88591 on HPUX 11.0. --- lisp/ange-ftp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 43bdd2e306a..e8f9b35511e 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -2529,13 +2529,17 @@ away in the internal cache." (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. -- 2.39.5