diff options
| author | Richard M. Stallman <[email protected]> | 1994-07-19 19:35:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-07-19 19:35:08 +0000 |
| commit | 289a8c294150e05f2e21a3092e175fe8d3db4008 (patch) | |
| tree | e89550a8350d0971060843564bf48e0ec98c28a5 /src/dispnew.c | |
| parent | efa04277fd3b434b668d1d4936cc5d0bac872da3 (diff) | |
(sit_for): Return immediately if unread events exist.
Diffstat (limited to 'src/dispnew.c')
| -rw-r--r-- | src/dispnew.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 62163c008e..0e89f037de 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -2253,6 +2253,10 @@ sit_for (sec, usec, reading, display) { Lisp_Object read_kbd; + if (CONSP (Vunread_command_events) + || unread_command_char != -1) + return Qnil; + if (detect_input_pending ()) return Qnil; |