diff options
| -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 f7bc5029361..864017fc6c4 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 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 | ||
| @@ -2474,9 +2474,9 @@ THRESHOLD, nil otherwise" | |||
| 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)) |