comparison src/dispnew.c @ 71333:a8cbcce39bd0

(sit_for): Undo 2006-06-01 change. Instead, a negative time forces redisplay even when input is available. (Fsit_for): Doc fix.

71332:09e601998e13

Lisp_Object
sit_for (sec, usec, reading, display, initial_display)
     int sec, usec, reading, display, initial_display;
{
  swallow_events (display);

  if ((detect_input_pending_run_timers (display)
       && !redisplay_dont_pause)
      || !NILP (Vexecuting_kbd_macro))
    return Qnil;

  if (initial_display)
    redisplay_preserve_echo_area (2);

  if (sec == 0 && usec == 0)
    return Qt;

#ifdef SIGIO

Optional 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.

Redisplay will occur even when input is available if you bind
`redisplay-dont-pause' to a non-nil value.

An obsolete but still supported form is
\(sit-for SECONDS &optional MILLISECONDS NODISP)
Where the optional arg MILLISECONDS specifies an additional wait period,
in milliseconds; this was useful when Emacs was built without

71333:a8cbcce39bd0

Lisp_Object
sit_for (sec, usec, reading, display, initial_display)
     int sec, usec, reading, display, initial_display;
{
  int preempt = (sec >= 0) || (sec == 0 && usec >= 0);

  swallow_events (display);

  if ((detect_input_pending_run_timers (display) && preempt)
      || !NILP (Vexecuting_kbd_macro))
    return Qnil;

  if (initial_display)
    {
      int count = SPECPDL_INDEX ();
      if (!preempt)
	specbind (Qredisplay_dont_pause, Qt);
      redisplay_preserve_echo_area (2);
      unbind_to (count, Qnil);
    }

  if (sec == 0 && usec == 0)
    return Qt;

#ifdef SIGIO

Optional 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.

Redisplay will occur even when input is available if SECONDS is negative.

An obsolete but still supported form is
\(sit-for SECONDS &optional MILLISECONDS NODISP)
Where the optional arg MILLISECONDS specifies an additional wait period,
in milliseconds; this was useful when Emacs was built without