6331 |
if (sec < 0 || (sec == 0 && usec == 0)) |
if (sec < 0 || (sec == 0 && usec == 0)) |
6332 |
return Qnil; |
return Qnil; |
6333 |
|
|
6334 |
{ |
wait_reading_process_input (sec, usec, 0, 0, Qnil, NULL, 0); |
|
Lisp_Object zero; |
|
|
|
|
|
XSETFASTINT (zero, 0); |
|
|
wait_reading_process_input (sec, usec, zero, 0); |
|
|
} |
|
6335 |
|
|
6336 |
/* We should always have wait_reading_process_input; we have a dummy |
/* We should always have wait_reading_process_input; we have a dummy |
6337 |
implementation for systems which don't support subprocesses. */ |
implementation for systems which don't support subprocesses. */ |
6381 |
sit_for (sec, usec, reading, display, initial_display) |
sit_for (sec, usec, reading, display, initial_display) |
6382 |
int sec, usec, reading, display, initial_display; |
int sec, usec, reading, display, initial_display; |
6383 |
{ |
{ |
|
Lisp_Object read_kbd; |
|
|
|
|
6384 |
swallow_events (display); |
swallow_events (display); |
6385 |
|
|
6386 |
if (detect_input_pending_run_timers (display) || !NILP (Vexecuting_macro)) |
if (detect_input_pending_run_timers (display) || !NILP (Vexecuting_macro)) |
6396 |
gobble_input (0); |
gobble_input (0); |
6397 |
#endif |
#endif |
6398 |
|
|
6399 |
XSETINT (read_kbd, reading ? -1 : 1); |
wait_reading_process_input (sec, usec, reading ? -1 : 1, display, |
6400 |
wait_reading_process_input (sec, usec, read_kbd, display); |
Qnil, NULL, 0); |
6401 |
|
|
6402 |
return detect_input_pending () ? Qnil : Qt; |
return detect_input_pending () ? Qnil : Qt; |
6403 |
} |
} |