comparison lisp/ange-ftp.el @ 25807:b245d837503b

(ange-ftp-date-regexp): Make it work for LANG=de_DE.iso88591 on HPUX 11.0.

25806:7ed67319c5aa

(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)))
	 ;; Require the previous column to end in a digit.
	 ;; This avoids recognizing `1 may 1997' as a date in the line:
	 ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README

25807:b245d837503b

(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.
	 ;; weiand: changed: month ends with . or , or .,
;;old	 (month (concat l l "+ *"))
	 (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]")
	 ;; weiand: changed: day ends with .
;;old	 (dd "[ 0-3][0-9]")
	 (dd "[ 0-3][0-9][.]?")
	 (western (concat "\\(" month s dd "\\|" dd s month "\\)"))
	 (japanese (concat mm k s dd k)))
	 ;; Require the previous column to end in a digit.
	 ;; This avoids recognizing `1 may 1997' as a date in the line:
	 ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README