comparison lisp/ange-ftp.el @ 20692:8af33d2de7b2

(ange-ftp-date-regexp): Make l pattern match any non-ASCII char.

20691:cf1919e207ef

;;;; ------------------------------------------------------------
;;;; Directory information caching support.
;;;; ------------------------------------------------------------

(defconst ange-ftp-date-regexp
  (let* ((l "[A-Za-z\xa0-\xff]")
	 ;; 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.  
	 ;; The purpose is to match a Kanji character.
	 (k "[^\x00-\xff]")
	 (s " ")
	 (mm "[ 0-1][0-9]")
	 (dd "[ 0-3][0-9]")
	 (western (concat "\\(" month s dd "\\|" dd s month "\\)"))
	 (japanese (concat mm k s dd k)))

20692:8af33d2de7b2

;;;; ------------------------------------------------------------
;;;; Directory information caching support.
;;;; ------------------------------------------------------------

(defconst ange-ftp-date-regexp
  (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-ASCII character.  
	 ;; The purpose is to match a Kanji character.
	 (k "[^\0-\177]")
	 (s " ")
	 (mm "[ 0-1][0-9]")
	 (dd "[ 0-3][0-9]")
	 (western (concat "\\(" month s dd "\\|" dd s month "\\)"))
	 (japanese (concat mm k s dd k)))