diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-13 00:45:19 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-13 00:45:19 +0000 |
commit | e01d8352cac5b6b708acf90eb8b909e9bc5a9f1b (patch) | |
tree | 93569cdc6029345532db6f42c5ae7ef92ca02c0e /src/process.c | |
parent | dbcba7f591e32d7bc278bacb05534201d717b97f (diff) | |
download | emacs-e01d8352cac5b6b708acf90eb8b909e9bc5a9f1b.tar.gz |
(wait_reading_process_input): Return if unread events appear.
Diffstat (limited to 'src/process.c')
-rw-r--r-- | src/process.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/process.c b/src/process.c index 1b8174299ff..a9da5b1f725 100644 --- a/src/process.c +++ b/src/process.c @@ -2248,6 +2248,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) goto retry; } + /* If there is unread keyboard input, also return. */ + if (XINT (read_kbd) != 0 + && requeued_events_pending_p ()) + break; + if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1) { EMACS_TIME difference; @@ -2408,6 +2413,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) break; } + /* If there is unread keyboard input, also return. */ + if (XINT (read_kbd) != 0 + && requeued_events_pending_p ()) + break; + /* If wait_for_cell. check for keyboard input but don't run any timers. ??? (It seems wrong to me to check for keyboard |