mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
like any other unrecognized format.
This commit is contained in:
Richard M. Stallman 1997-01-27 05:23:31 +00:00
parent 7aec540f0c
commit dd713b759c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/timezone.el
View File

@ -200,11 +200,14 @@ Understands the following styles:
(substring date
(match-beginning month)
(+ (match-beginning month) 2))
(let ((string (substring date
(match-beginning month)
(+ (match-beginning month) 3))))
(int-to-string
(cdr (assoc (upcase string) timezone-months-assoc))))))
(let* ((string (substring date
(match-beginning month)
(+ (match-beginning month) 3)))
(monthnum
(cdr (assoc (upcase string) timezone-months-assoc))))
(if monthnum
(int-to-string monthnum)
nil))))
(setq day
(substring date (match-beginning day) (match-end day)))
(setq time
@ -213,7 +216,7 @@ Understands the following styles:
(setq zone
(substring date (match-beginning zone) (match-end zone))))
;; Return a vector.
(if year
(if (and year month)
(vector year month day time zone)
(vector "0" "0" "0" "0" nil))
))