diff options
| -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." | |||
| 2510 | ;;;; ------------------------------------------------------------ | 2510 | ;;;; ------------------------------------------------------------ |
| 2511 | 2511 | ||
| 2512 | (defconst ange-ftp-date-regexp | 2512 | (defconst ange-ftp-date-regexp |
| 2513 | " [A-Za-z\xa0-\xff][A-Za-z\xa0-\xff][A-Za-z\xa0-\xff] [0-3 ][0-9] " | 2513 | (let* ((l "[A-Za-z\xa0-\xff]") |
| 2514 | (k "[^\x00-\xff]") | ||
| 2515 | (s " ") | ||
| 2516 | (mm "[ 0-1][0-9]") | ||
| 2517 | (dd "[ 0-3][0-9]") | ||
| 2518 | (western (concat "\\(" l l l s dd "\\|" dd s l l l "\\)")) | ||
| 2519 | (japanese (concat mm k s dd k))) | ||
| 2520 | (concat s "\\(" western "\\|" japanese "\\)" s)) | ||
| 2514 | "Regular expression to recognize the date in a directory listing. | 2521 | "Regular expression to recognize the date in a directory listing. |
| 2515 | This regular expression is designed to recognize month names | 2522 | This regular expression is designed to recognize dates |
| 2516 | regardless of the language.") | 2523 | regardless of the language.") |
| 2517 | 2524 | ||
| 2518 | (defvar ange-ftp-add-file-entry-alist nil | 2525 | (defvar ange-ftp-add-file-entry-alist nil |