From f8f5c5f4448c66a48ac092879aa2ad4c9d0d5338 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Jan 1997 23:23:17 +0000 Subject: [PATCH] (timezone-parse-date): Handle 1-digit year. --- lisp/timezone.el | 6 ++++-- 1 file 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. -- 2.39.2