From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 6 Sep 1999 03:46:33 +0000 (+0000)
Subject: (vc-annotate-display): Treat 2-digit years under 70 as 20YY.
X-Git-Tag: emacs-pretest-21.0.90~6889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc1d66a4d7ff63f58d2572a2151bb028db096bc6;p=emacs.git

(vc-annotate-display): Treat 2-digit years under 70 as 20YY.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 5d5bccbd752..f7bc5029361 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.251 1999/08/27 07:59:22 schwab Exp eliz $
+;; $Id: vc.el,v 1.252 1999/09/02 12:50:28 eliz Exp rms $
 
 ;; This file is part of GNU Emacs.
 
@@ -2474,7 +2474,12 @@ THRESHOLD, nil otherwise"
 	     (day (string-to-number (match-string 1)))
              (month (cdr (assoc (match-string 2) local-month-numbers)))
 	     (year-tmp (string-to-number (match-string 3)))
-	     (year (+ (if (> 100 year-tmp) 1900 0) year-tmp)) ; Possible millenium problem
+	     ;; Years 0..69 are 2000..2069.
+	     ;; Years 70..99 are 1970..1999.
+	     (year (+ (cond ((> 70 year-tmp) 2000)
+			    ((> 100 year-tmp) 1900)
+			    (t 0))
+		      year-tmp))
 	     (high (- (car (current-time))
 		      (car (encode-time 0 0 0 day month year))))
 	     (color (cond ((vc-annotate-compcar high (cond (color-map)