(ange-ftp-date-regexp): Make l pattern match any non-ASCII char.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index c00737bee153d0a699e3d0801a045db03d3f5ef5..ebbf28f94fc544ddb14a1226e83629559e1f8c8b 100644 (file)
--- 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]")