Re: expiry problems?

[Simon Josefsson <jas@extundo.com>]

Josh Huber <huber@alum.wpi.edu> writes:

>> (time-less-p (days-to-time 7)
>>              (time-since (date-to-time "Jan 1 00:00:00 1940")))
>> t
>
> This returns nil for me.  Maybe it's an XEmacs bug?  I see you're
> running emacs21...

Yes.  The patch below fixes it, someone at xemacs-patches please have
a look at it.

XEmacs 21.1, 21.4 (without patch):

(encode-time 0 0 1 1 1 1969 nil nil 3600)
(65054 52352)

Emacs 20.7, 21.1 (and XEmacs 21.4 with patch):

(encode-time 0 0 1 1 1 1969 nil nil 3600)
(-482 52352)

2001-11-10  Simon Josefsson  <jas@extundo.com>

	* editfns.c (make_time): New function, from Emacs.
	(Fencode_time): Use it, instead of `wasteful_word_to_lisp'.

--- editfns.c.~1.27.2.2.~	Wed Nov  7 20:43:02 2001
+++ editfns.c	Sat Nov 10 19:57:27 2001
@@ -1176,6 +1176,14 @@
 
 static void set_time_zone_rule (char *tzstring);
 
+Lisp_Object
+make_time (time)
+     time_t time;
+{
+  return Fcons (make_int (time >> 16),
+		Fcons (make_int (time & 0177777), Qnil));
+}
+
 DEFUN ("encode-time", Fencode_time, 6, MANY, 0, /*
   Convert SECOND, MINUTE, HOUR, DAY, MONTH, YEAR and ZONE to internal time.
 This is the reverse operation of `decode-time', which see.
@@ -1249,7 +1257,7 @@
   if (the_time == (time_t) -1)
     error ("Specified time is not representable");
 
-  return wasteful_word_to_lisp (the_time);
+  return make_time (the_time);
 }
 
 DEFUN ("current-time-string", Fcurrent_time_string, 0, 1, 0, /*