Mercurial > emacs
changeset 10255:d4119f1137f9
(timezone-fix-time): For year values < 50, add 2000.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Dec 1994 01:24:38 +0000 |
| parents | 1ac3c8fea14a |
| children | 83d56dd99a40 |
| files | lisp/timezone.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/timezone.el Sun Dec 25 22:20:06 1994 +0000 +++ b/lisp/timezone.el Mon Dec 26 01:24:38 1994 +0000 @@ -291,7 +291,11 @@ If TIMEZONE is nil, use the local time zone." (let* ((date (timezone-parse-date date)) (year (string-to-int (aref date 0))) - (year (if (< year 100) (+ year 1900) year)) + (year (cond ((< year 50) + (+ year 2000)) + ((< year 100) + (+ year 1900)) + (t year))) (month (string-to-int (aref date 1))) (day (string-to-int (aref date 2))) (time (timezone-parse-time (aref date 3)))