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 | dd713b759cbb6a28e3b4b9bdc0d3a92222ed8370 (patch) | |
| tree | 541a5f30f27831c3cb4628a9807b1d22f7eab430 | |
| parent | 7aec540f0c8899925a11cdf9876d93ed7bd7fc7f (diff) | |
| download | emacs-dd713b759cbb6a28e3b4b9bdc0d3a92222ed8370.tar.gz | |
(timezone-parse-date): Treat unknown month name
like any other unrecognized format.
| -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)) )) |