Commit dd713b75 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(timezone-parse-date): Treat unknown month name

like any other unrecognized format.
parent 7aec540f
...@@ -200,11 +200,14 @@ Understands the following styles: ...@@ -200,11 +200,14 @@ Understands the following styles:
(substring date (substring date
(match-beginning month) (match-beginning month)
(+ (match-beginning month) 2)) (+ (match-beginning month) 2))
(let ((string (substring date (let* ((string (substring date
(match-beginning month) (match-beginning month)
(+ (match-beginning month) 3)))) (+ (match-beginning month) 3)))
(int-to-string (monthnum
(cdr (assoc (upcase string) timezone-months-assoc)))))) (cdr (assoc (upcase string) timezone-months-assoc))))
(if monthnum
(int-to-string monthnum)
nil))))
(setq day (setq day
(substring date (match-beginning day) (match-end day))) (substring date (match-beginning day) (match-end day)))
(setq time (setq time
...@@ -213,7 +216,7 @@ Understands the following styles: ...@@ -213,7 +216,7 @@ Understands the following styles:
(setq zone (setq zone
(substring date (match-beginning zone) (match-end zone)))) (substring date (match-beginning zone) (match-end zone))))
;; Return a vector. ;; Return a vector.
(if year (if (and year month)
(vector year month day time zone) (vector year month day time zone)
(vector "0" "0" "0" "0" nil)) (vector "0" "0" "0" "0" nil))
)) ))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment