diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-09-06 03:46:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-09-06 03:46:33 +0000 |
| commit | fc1d66a4d7ff63f58d2572a2151bb028db096bc6 (patch) | |
| tree | 30175c3f812851393029020be4cc503fcc39694e /lisp/vc.el | |
| parent | 8601c0dadc0df3d952bb9901d899245d84add89c (diff) | |
| download | emacs-fc1d66a4d7ff63f58d2572a2151bb028db096bc6.tar.gz | |
(vc-annotate-display): Treat 2-digit years under 70 as 20YY.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 9 |
1 files changed, 7 insertions, 2 deletions
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) |