From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Dec 1994 01:24:38 +0000 (+0000)
Subject: (timezone-fix-time): For year values < 50, add 2000.
X-Git-Tag: emacs-19.34~5601
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13d76d1ca585fbdc1810970b247a2053a8f3cdcc;p=emacs.git

(timezone-fix-time): For year values < 50, add 2000.
---

diff --git a/lisp/timezone.el b/lisp/timezone.el
index 56dbff02b5b..5e0fd7f105b 100644
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -291,7 +291,11 @@ If LOCAL is nil, it is assumed to be GMT.
 If TIMEZONE is nil, use the local time zone."
   (let* ((date   (timezone-parse-date date))
 	 (year   (string-to-int (aref date 0)))
-	 (year	 (if (< year 100) (+ year 1900) year))
+	 (year	 (cond ((< year 50)
+			(+ year 2000))
+		       ((< year 100)
+			(+ year 1900))
+		       (t year)))
 	 (month  (string-to-int (aref date 1)))
 	 (day    (string-to-int (aref date 2)))
 	 (time   (timezone-parse-time (aref date 3)))