Mercurial > emacs
comparison lisp/vc.el @ 25576:913fac3ab440
(vc-annotate-display): Use < 69 not < 70 to distinguish 20YY from 19YY.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 06 Sep 1999 22:15:10 +0000 |
parents | 3af0f2f6145c |
children | 7a57f8890220 |
comparison
equal
deleted
inserted
replaced
25575:d8c646ec07fa | 25576:913fac3ab440 |
---|---|
3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> | 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> |
7 | 7 |
8 ;; $Id: vc.el,v 1.252 1999/09/02 12:50:28 eliz Exp rms $ | 8 ;; $Id: vc.el,v 1.253 1999/09/06 03:46:33 rms Exp rms $ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
2472 ;; be corrupted by extent functions in XEmacs. Access | 2472 ;; be corrupted by extent functions in XEmacs. Access |
2473 ;; string-matches first. | 2473 ;; string-matches first. |
2474 (day (string-to-number (match-string 1))) | 2474 (day (string-to-number (match-string 1))) |
2475 (month (cdr (assoc (match-string 2) local-month-numbers))) | 2475 (month (cdr (assoc (match-string 2) local-month-numbers))) |
2476 (year-tmp (string-to-number (match-string 3))) | 2476 (year-tmp (string-to-number (match-string 3))) |
2477 ;; Years 0..69 are 2000..2069. | 2477 ;; Years 0..68 are 2000..2068. |
2478 ;; Years 70..99 are 1970..1999. | 2478 ;; Years 69..99 are 1969..1999. |
2479 (year (+ (cond ((> 70 year-tmp) 2000) | 2479 (year (+ (cond ((> 69 year-tmp) 2000) |
2480 ((> 100 year-tmp) 1900) | 2480 ((> 100 year-tmp) 1900) |
2481 (t 0)) | 2481 (t 0)) |
2482 year-tmp)) | 2482 year-tmp)) |
2483 (high (- (car (current-time)) | 2483 (high (- (car (current-time)) |
2484 (car (encode-time 0 0 0 day month year)))) | 2484 (car (encode-time 0 0 0 day month year)))) |