diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-01-21 01:41:23 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-01-21 01:41:23 +0000 |
commit | c3909077f2d81b1e08f4edb71d93b4a9b2d061f3 (patch) | |
tree | aed811c58612fc0ff5f090070934f5538ce83b98 /lisp/ange-ftp.el | |
parent | fc4da76f8347a0d1f9f08311f1d9d1ab29f2049b (diff) | |
download | emacs-c3909077f2d81b1e08f4edb71d93b4a9b2d061f3.tar.gz |
(ange-ftp-date-regexp): Make l pattern match any non-ASCII char.
Diffstat (limited to 'lisp/ange-ftp.el')
-rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index c00737bee15..ebbf28f94fc 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -2517,13 +2517,13 @@ away in the internal cache." ;;;; ------------------------------------------------------------ (defconst ange-ftp-date-regexp - (let* ((l "[A-Za-z\xa0-\xff]") + (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 "+ *")) - ;; Recognize any non-ISO-8859 character. + ;; Recognize any non-ASCII character. ;; The purpose is to match a Kanji character. - (k "[^\x00-\xff]") + (k "[^\0-\177]") (s " ") (mm "[ 0-1][0-9]") (dd "[ 0-3][0-9]") |