aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1995-04-18 03:31:38 +0000
committerRichard M. Stallman1995-04-18 03:31:38 +0000
commit01ba8cce816da08847393c0abbd6a2109b303701 (patch)
tree055b6a06d62c4d6f7e0750958f5afde5a20b1d28 /src
parent018427eebd67e96a7ab5b19e2f169f97c5c30836 (diff)
downloademacs-01ba8cce816da08847393c0abbd6a2109b303701.tar.gz
emacs-01ba8cce816da08847393c0abbd6a2109b303701.zip
(Fencode_time): Don't treat years < 100 as special.
Diffstat (limited to 'src')
-rw-r--r--src/editfns.c11
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\
742specified, it can be either a list (as from `current-time-zone') or an\n\ 742specified, it can be either a list (as from `current-time-zone') or an\n\
743integer (as from `decode-time'), and is applied without consideration for\n\ 743integer (as from `decode-time'), and is applied without consideration for\n\
744daylight savings time.\n\ 744daylight savings time.\n\
745If YEAR is less than 100, values in the range 0 through 69 are treated\n\ 745Year numbers less than 100 are treated just like other year numbers.\n\
746as 2000 through 2069; values 70 through 99 are treated as 1970...1999.") 746If you them to stand for years above 1900, you must do that yourself.")
747 (sec, min, hour, day, month, year, zone) 747 (sec, min, hour, day, month, year, zone)
748 Lisp_Object sec, min, hour, day, month, year, zone; 748 Lisp_Object sec, min, hour, day, month, year, zone;
749{ 749{
@@ -759,13 +759,6 @@ as 2000 through 2069; values 70 through 99 are treated as 1970...1999.")
759 CHECK_NATNUM (year, 5); 759 CHECK_NATNUM (year, 5);
760 760
761 fullyear = XINT (year); 761 fullyear = XINT (year);
762 if (fullyear < 100)
763 {
764 if (fullyear < 70) /* Epoch is 1970. */
765 fullyear += 2000;
766 else
767 fullyear += 1900;
768 }
769 762
770 /* Adjust incoming datespec to epoch = March 1, year 0. */ 763 /* Adjust incoming datespec to epoch = March 1, year 0. */
771 mon = XINT (month) - 1 + 10; 764 mon = XINT (month) - 1 + 10;