Mercurial > emacs
changeset 16900:b0961ba869d6
(timezone-parse-date): Handle 1-digit year.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Jan 1997 23:23:17 +0000 |
| parents | 04ad9edd12b3 |
| children | f2035f66dba0 |
| files | lisp/timezone.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/timezone.el Mon Jan 20 09:03:05 1997 +0000 +++ b/lisp/timezone.el Mon Jan 20 23:23:17 1997 +0000 @@ -190,8 +190,10 @@ (setq year (substring date (match-beginning year) (match-end year))) ;; It is now Dec 1992. 8 years before the end of the World. - (if (< (length year) 4) - (setq year (concat "19" (substring year -2 nil)))) + (if (= (length year) 1) + (setq year (concat "190" (substring year -1 nil))) + (if (< (length year) 4) + (setq year (concat "19" (substring year -2 nil))))) (setq month (if (= (aref date (+ (match-beginning month) 2)) ?-) ;; Handle numeric months, spanning exactly two digits.