diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-18 03:31:38 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-18 03:31:38 +0000 |
commit | 836911e37941066ba504ce7be63ae63dcfe7e5de (patch) | |
tree | 81a3abffddfa0c493dc0aabdf9cd73528b7f8c7f /src/editfns.c | |
parent | 90e2cc59228783fb2d9eb92a6de3ba5b68e49929 (diff) | |
download | emacs-836911e37941066ba504ce7be63ae63dcfe7e5de.tar.gz |
(Fencode_time): Don't treat years < 100 as special.
Diffstat (limited to 'src/editfns.c')
-rw-r--r-- | src/editfns.c | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/editfns.c b/src/editfns.c index de98ee789ce..88a20cb7d81 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -742,8 +742,8 @@ to the current time zone and daylight savings time if not specified; if\n\ specified, it can be either a list (as from `current-time-zone') or an\n\ integer (as from `decode-time'), and is applied without consideration for\n\ daylight savings time.\n\ -If YEAR is less than 100, values in the range 0 through 69 are treated\n\ -as 2000 through 2069; values 70 through 99 are treated as 1970...1999.") +Year numbers less than 100 are treated just like other year numbers.\n\ +If you them to stand for years above 1900, you must do that yourself.") (sec, min, hour, day, month, year, zone) Lisp_Object sec, min, hour, day, month, year, zone; { @@ -759,13 +759,6 @@ as 2000 through 2069; values 70 through 99 are treated as 1970...1999.") CHECK_NATNUM (year, 5); fullyear = XINT (year); - if (fullyear < 100) - { - if (fullyear < 70) /* Epoch is 1970. */ - fullyear += 2000; - else - fullyear += 1900; - } /* Adjust incoming datespec to epoch = March 1, year 0. */ mon = XINT (month) - 1 + 10; |