mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(wait_reading_process_input_1): New (empty) function.

Browse source 
(wait_reading_process_input): Call wait_reading_process_input_1.
If timer_check runs some timers, retry it.
This commit is contained in:
Richard M. Stallman 1996-03-27 02:35:15 +00:00
parent e622cacad2
commit c573ae8ec0
1 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/process.c
View file

@ -1959,6 +1959,12 @@ Return non-nil iff we received any output before the timeout expired.")
when not inside wait_reading_process_input. */
static int waiting_for_user_input_p;
/* This is here so breakpoints can be put on it. */
static
wait_reading_process_input_1 ()
{
}
/* Read and dispose of subprocess output while waiting for timeout to
elapse and/or keyboard input to be available.
@ -2079,10 +2085,19 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
if (1)
{
EMACS_TIME timer_delay;
int old_timers_run = timers_run;
int old_timers_run;
retry:
old_timers_run = timers_run;
timer_delay = timer_check (1);
if (timers_run != old_timers_run && do_display)
redisplay_preserve_echo_area ();
{
redisplay_preserve_echo_area ();
/* We must retry, since a timer may have requeued itself
and that could alter the time_delay. */
goto retry;
}
if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1)
{
EMACS_TIME difference;
@ -2093,6 +2108,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
timeout_reduced_for_timers = 1;
}
}
else
{
/* This is so a breakpoint can be put here. */
wait_reading_process_input_1 ();
}
}
/* Cause C-g and alarm signals to take immediate action,