(sit_for): Return immediately if unread events exist.

diff --git a/src/dispnew.c b/src/dispnew.c
index 62163c0..0e89f03 100644 (file)
--- 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;