diff options
| author | Richard M. Stallman | 1994-07-19 19:35:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-19 19:35:08 +0000 |
| commit | 289a8c294150e05f2e21a3092e175fe8d3db4008 (patch) | |
| tree | e89550a8350d0971060843564bf48e0ec98c28a5 /src | |
| parent | efa04277fd3b434b668d1d4936cc5d0bac872da3 (diff) | |
| download | emacs-289a8c294150e05f2e21a3092e175fe8d3db4008.tar.gz emacs-289a8c294150e05f2e21a3092e175fe8d3db4008.zip | |
(sit_for): Return immediately if unread events exist.
Diffstat (limited to 'src')
| -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 62163c008e2..0e89f037de8 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -2253,6 +2253,10 @@ sit_for (sec, usec, reading, display) | |||
| 2253 | { | 2253 | { |
| 2254 | Lisp_Object read_kbd; | 2254 | Lisp_Object read_kbd; |
| 2255 | 2255 | ||
| 2256 | if (CONSP (Vunread_command_events) | ||
| 2257 | || unread_command_char != -1) | ||
| 2258 | return Qnil; | ||
| 2259 | |||
| 2256 | if (detect_input_pending ()) | 2260 | if (detect_input_pending ()) |
| 2257 | return Qnil; | 2261 | return Qnil; |
| 2258 | 2262 | ||