comparison lisp/vc.el @ 25576:913fac3ab440

(vc-annotate-display): Use < 69 not < 70 to distinguish 20YY from 19YY.

25575:d8c646ec07fa

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.252 1999/09/02 12:50:28 eliz Exp rms $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

             ;; be corrupted by extent functions in XEmacs. Access
             ;; string-matches first.
	     (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)
			    ((> 100 year-tmp) 1900)
			    (t 0))
		      year-tmp))
	     (high (- (car (current-time))
		      (car (encode-time 0 0 0 day month year))))

25576:913fac3ab440

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.253 1999/09/06 03:46:33 rms Exp rms $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

             ;; be corrupted by extent functions in XEmacs. Access
             ;; string-matches first.
	     (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..68 are 2000..2068.
	     ;; Years 69..99 are 1969..1999.
	     (year (+ (cond ((> 69 year-tmp) 2000)
			    ((> 100 year-tmp) 1900)
			    (t 0))
		      year-tmp))
	     (high (- (car (current-time))
		      (car (encode-time 0 0 0 day month year))))