From 162100b50740f3d5cbed0d7b8b18cfe098e3c5aa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Sep 1999 22:15:43 +0000 Subject: [PATCH] (timezone-parse-date): Use < 69 not < 70 to distinguish 20YY from 19YY. --- lisp/timezone.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/timezone.el b/lisp/timezone.el index b31677df3d2..8f21f8f3765 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -196,12 +196,12 @@ Understands the following styles: ) (when year (setq year (match-string year date)) - ;; Guess ambiguous years. Assume years < 70 don't predate the + ;; Guess ambiguous years. Assume years < 69 don't predate the ;; Unix Epoch, so are 2000+. Three-digit years -- do they ever ;; occur? -- are (arbitrarily) assumed to be 21st century. (if (< (length year) 4) (let ((y (string-to-int year))) - (if (< y 70) + (if (< y 69) (setq y (+ y 100))) (setq year (int-to-string (+ 1900 y))))) (setq month -- 2.39.5