diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-01 20:35:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-01 20:35:59 +0000 |
| commit | 1b0bd55d5507ce6185bb18bd484749d292a2f4ca (patch) | |
| tree | b86e37b3b68068c448ec1e0dfb90672197501521 | |
| parent | a8689c7d650c4102c1e2edd90a2552e724089e30 (diff) | |
| download | emacs-1b0bd55d5507ce6185bb18bd484749d292a2f4ca.tar.gz | |
(wait_reading_process_input): If select times out,
return only if we had no timers to shorten the wait.
Don't shorten the wait for timers if time_limit is -1.
| -rw-r--r-- | src/process.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c index 59bcd8cb11d..7af4115de6f 100644 --- a/src/process.c +++ b/src/process.c @@ -2026,6 +2026,8 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) while (1) { + int timeout_reduced_for_timers = 0; + /* If calling from keyboard input, do not quit since we want to return C-g as an input character. Otherwise, do pending quit if requested. */ @@ -2064,13 +2066,17 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) call timer_delay on their own.) */ if (read_kbd >= 0) { - EMACS_TIME timer_delay = timer_check (1); - if (! EMACS_TIME_NEG_P (timer_delay)) + EMACS_TIME timer_delay; + timer_delay = timer_check (1); + if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1) { EMACS_TIME difference; EMACS_SUB_TIME (difference, timer_delay, timeout); if (EMACS_TIME_NEG_P (difference)) - timeout = timer_delay; + { + timeout = timer_delay; + timeout_reduced_for_timers = 1; + } } } @@ -2149,7 +2155,8 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) /* If we woke up due to SIGWINCH, actually change size now. */ do_pending_window_change (); - if (time_limit && nfds == 0) /* timeout elapsed */ + if (time_limit && nfds == 0 && ! timeout_reduced_for_timers) + /* We wanted the full specified time, so return now. */ break; if (nfds < 0) { |