mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(ange-ftp-date-regexp): Handle Japanese-format dates.

Browse source 
In Western dates, accept month name and day-of-month in either order.
This commit is contained in:
Paul Eggert 1997-11-07 23:32:50 +00:00
parent 1f97e2fcc2
commit 620bca4973
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/ange-ftp.el
View file

@ -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