From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jan 1998 01:41:23 +0000 (+0000)
Subject: (ange-ftp-date-regexp): Make l pattern match any non-ASCII char.
X-Git-Tag: emacs-20.3~2382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8c86f8d742404997a27530b236be905d480394b;p=emacs.git

(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 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]")