diff options
| author | Richard M. Stallman | 1998-01-21 01:41:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-21 01:41:23 +0000 |
| commit | e8c86f8d742404997a27530b236be905d480394b (patch) | |
| tree | a887083bcff680598ca5cb9227b7c9f6b351b937 /lisp | |
| parent | d7760ca97f7c98eb97e10be4b3ff8c6cef01e0cf (diff) | |
| download | emacs-e8c86f8d742404997a27530b236be905d480394b.tar.gz emacs-e8c86f8d742404997a27530b236be905d480394b.zip | |
(ange-ftp-date-regexp): Make l pattern match any non-ASCII char.
Diffstat (limited to 'lisp')
| -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." | |||
| 2517 | ;;;; ------------------------------------------------------------ | 2517 | ;;;; ------------------------------------------------------------ |
| 2518 | 2518 | ||
| 2519 | (defconst ange-ftp-date-regexp | 2519 | (defconst ange-ftp-date-regexp |
| 2520 | (let* ((l "[A-Za-z\xa0-\xff]") | 2520 | (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
| 2521 | ;; In some locales, month abbreviations are as short as 2 letters, | 2521 | ;; In some locales, month abbreviations are as short as 2 letters, |
| 2522 | ;; and they can be padded on the right with spaces. | 2522 | ;; and they can be padded on the right with spaces. |
| 2523 | (month (concat l l "+ *")) | 2523 | (month (concat l l "+ *")) |
| 2524 | ;; Recognize any non-ISO-8859 character. | 2524 | ;; Recognize any non-ASCII character. |
| 2525 | ;; The purpose is to match a Kanji character. | 2525 | ;; The purpose is to match a Kanji character. |
| 2526 | (k "[^\x00-\xff]") | 2526 | (k "[^\0-\177]") |
| 2527 | (s " ") | 2527 | (s " ") |
| 2528 | (mm "[ 0-1][0-9]") | 2528 | (mm "[ 0-1][0-9]") |
| 2529 | (dd "[ 0-3][0-9]") | 2529 | (dd "[ 0-3][0-9]") |