[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

sit-for incompatibility

From: Stefan Monnier
Subject: sit-for incompatibility
Date: Mon, 07 Apr 2003 14:50:38 -0400

Emacs and XEmacs' sit-for functions are incompatible in that Emacs
uses (sit-for SECONDS MILLISECONDS NODISP) whereas XEmacs uses
I suggest that we change Emacs' function to recognize that if
NODISP is nil and MILLISECONDS is not a number, than we should
behave as XEmacs does.
The patch below does that, although I think the docstring part
of the patch is unsatisfactory.


--- dispnew.c.~1.314.~  Sat Mar 22 15:52:58 2003
+++ dispnew.c   Mon Apr  7 14:45:53 2003
@@ -6263,12 +6263,21 @@
 Optional third arg NODISP non-nil means don't redisplay, just wait for input.
 Redisplay is preempted as always if input arrives, and does not happen
 if input is available before it starts.
-Value is t if waited the full time with no input arriving.  */)
+Value is t if waited the full time with no input arriving.
+If MILLISECONDS is not a number and NODISP is nil, it is assumed that
+the second argument is actually meant to be used for NODISP. */)
      (seconds, milliseconds, nodisp)
      Lisp_Object seconds, milliseconds, nodisp;
   int sec, usec;
+  if (NILP (nodisp) && !NUMBERP (milliseconds))
+    { /* New style.  */
+      nodisp = milliseconds;
+      milliseconds = Qnil;
+    }
   if (NILP (milliseconds))
     XSETINT (milliseconds, 0);

reply via email to

[Prev in Thread] Current Thread [Next in Thread]