diff options
| author | Paul Eggert <eggert@twinsun.com> | 1997-11-07 23:32:50 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1997-11-07 23:32:50 +0000 |
| commit | 620bca4973b76ecde2cbeedc7ac06afcc712f8f3 (patch) | |
| tree | a3c6f551488e74963c24e1dcdee0044763504eb7 /lisp/ange-ftp.el | |
| parent | 1f97e2fcc20393310b4ec34d7fd205bc4cb1f841 (diff) | |
| download | emacs-620bca4973b76ecde2cbeedc7ac06afcc712f8f3.tar.gz | |
(ange-ftp-date-regexp): Handle Japanese-format dates.
In Western dates, accept month name and day-of-month in either order.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 6ca24f9df87..25469af9d74 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -2510,9 +2510,16 @@ away in the internal cache." ;;;; ------------------------------------------------------------ (defconst ange-ftp-date-regexp - " [A-Za-z\xa0-\xff][A-Za-z\xa0-\xff][A-Za-z\xa0-\xff] [0-3 ][0-9] " + (let* ((l "[A-Za-z\xa0-\xff]") + (k "[^\x00-\xff]") + (s " ") + (mm "[ 0-1][0-9]") + (dd "[ 0-3][0-9]") + (western (concat "\\(" l l l s dd "\\|" dd s l l l "\\)")) + (japanese (concat mm k s dd k))) + (concat s "\\(" western "\\|" japanese "\\)" s)) "Regular expression to recognize the date in a directory listing. -This regular expression is designed to recognize month names +This regular expression is designed to recognize dates regardless of the language.") (defvar ange-ftp-add-file-entry-alist nil |