diff options
author | Richard M. Stallman <[email protected]> | 1999-09-06 22:15:10 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1999-09-06 22:15:10 +0000 |
commit | 8f0ab35865506fa2abc55a0214d273de6e4bcf08 (patch) | |
tree | 45c8a572d8127de9dce6b94fe1c0f5ce640f9d1c /lisp | |
parent | 84f72c5bbdf8b1241da9354cafc8e839e53192ea (diff) |
(vc-annotate-display): Use < 69 not < 70 to distinguish 20YY from 19YY.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/vc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index f7bc502936..864017fc6c 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <[email protected]> ;; Maintainer: Andre Spiegel <[email protected]> -;; $Id: vc.el,v 1.252 1999/09/02 12:50:28 eliz Exp rms $ +;; $Id: vc.el,v 1.253 1999/09/06 03:46:33 rms Exp rms $ ;; This file is part of GNU Emacs. @@ -2474,9 +2474,9 @@ 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))) - ;; Years 0..69 are 2000..2069. - ;; Years 70..99 are 1970..1999. - (year (+ (cond ((> 70 year-tmp) 2000) + ;; Years 0..68 are 2000..2068. + ;; Years 69..99 are 1969..1999. + (year (+ (cond ((> 69 year-tmp) 2000) ((> 100 year-tmp) 1900) (t 0)) year-tmp)) |