diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-20 23:23:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-20 23:23:17 +0000 |
| commit | 02a21aaa98e2818e1e44f8336e787714310942ba (patch) | |
| tree | fa576d9ada0f2cf9ecffd22ff3473a7d87e365db | |
| parent | b1f09cc20d1008e687ffb6b0abaa23ff53e46613 (diff) | |
| download | emacs-02a21aaa98e2818e1e44f8336e787714310942ba.tar.gz | |
(timezone-parse-date): Handle 1-digit year.
| -rw-r--r-- | lisp/timezone.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index b4619488960..c26adf78702 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -190,8 +190,10 @@ Understands the following styles: (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. |