Mercurial > hg > xemacs-beta

diff src/event-stream.c @ 1104:8b464283e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-12 18:58:13 by james] Unconditionally compile the LISP_FLOAT_TYPE code. Remove all !LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
author james
date Tue, 12 Nov 2002 18:58:41 +0000
parents 345b7d75cab4
children a123f88fa975
line wrap: on
line diff
--- a/src/event-stream.c	Tue Nov 12 03:57:48 2002 +0000
+++ b/src/event-stream.c	Tue Nov 12 18:58:41 2002 +0000
@@ -1521,15 +1521,9 @@
 static unsigned long
 lisp_number_to_milliseconds (Lisp_Object secs, int allow_0)
 {
-#ifdef LISP_FLOAT_TYPE
   double fsecs;
   CHECK_INT_OR_FLOAT (secs);
   fsecs = XFLOATINT (secs);
-#else
-  long fsecs;
-  CHECK_INT (secs);
-  fsecs = XINT (secs);
-#endif
   if (fsecs < 0)
     invalid_argument ("timeout is negative", secs);
   if (!allow_0 && fsecs == 0)