diff options
author | Richard M. Stallman <rms@gnu.org> | 1999-09-06 22:15:43 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1999-09-06 22:15:43 +0000 |
commit | 162100b50740f3d5cbed0d7b8b18cfe098e3c5aa (patch) | |
tree | 7676c27f3774de3bb06afd9bc3ad8ef67cabb212 /lisp/timezone.el | |
parent | 8f0ab35865506fa2abc55a0214d273de6e4bcf08 (diff) | |
download | emacs-162100b50740f3d5cbed0d7b8b18cfe098e3c5aa.tar.gz |
(timezone-parse-date): Use < 69 not < 70 to distinguish 20YY from 19YY.
Diffstat (limited to 'lisp/timezone.el')
-rw-r--r-- | lisp/timezone.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index b31677df3d2..8f21f8f3765 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -196,12 +196,12 @@ Understands the following styles: ) (when year (setq year (match-string year date)) - ;; Guess ambiguous years. Assume years < 70 don't predate the + ;; Guess ambiguous years. Assume years < 69 don't predate the ;; Unix Epoch, so are 2000+. Three-digit years -- do they ever ;; occur? -- are (arbitrarily) assumed to be 21st century. (if (< (length year) 4) (let ((y (string-to-int year))) - (if (< y 70) + (if (< y 69) (setq y (+ y 100))) (setq year (int-to-string (+ 1900 y))))) (setq month |