diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-01-27 05:23:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-01-27 05:23:31 +0000 |
commit | 7bd98986d8502a4004d7f3ea739bc9859501476f (patch) | |
tree | e9c37ecc7367231b763f4fda62ca7ab6d37dcaff /lisp/timezone.el | |
parent | fa96cc272b0353446544728833d8a843dfb64159 (diff) | |
download | emacs-7bd98986d8502a4004d7f3ea739bc9859501476f.tar.gz |
(timezone-parse-date): Treat unknown month name
like any other unrecognized format.
Diffstat (limited to 'lisp/timezone.el')
-rw-r--r-- | lisp/timezone.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index c26adf78702..175cb182519 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -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)) )) |