Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fc1d66a4
Commit
fc1d66a4
authored
Sep 06, 1999
by
Richard M. Stallman
Browse files
(vc-annotate-display): Treat 2-digit years under 70 as 20YY.
parent
8601c0da
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
lisp/vc.el
lisp/vc.el
+7
-2
No files found.
lisp/vc.el
View file @
fc1d66a4
...
...
@@ -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.25
1
1999/0
8/27 07
:5
9
:2
2 schwab
Exp
eliz
$
;; $Id: vc.el,v 1.25
2
1999/0
9/02 12
:5
0
:2
8 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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment