# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774646508 0
# Node ID 60e866c3e99c603d649e7aa6808d83f853cbb8c8
# Parent  6609af160f16a6bebe74dc018bd51ab3f8e43442
(sit_for): Return immediately if unread events exist.

diff -r 6609af160f16 -r 60e866c3e99c src/dispnew.c
--- a/src/dispnew.c	Tue Jul 19 19:34:17 1994 +0000
+++ b/src/dispnew.c	Tue Jul 19 19:35:08 1994 +0000
@@ -2253,6 +2253,10 @@
 {
   Lisp_Object read_kbd;
 
+  if (CONSP (Vunread_command_events)
+      || unread_command_char != -1)
+    return Qnil;
+
   if (detect_input_pending ())
     return Qnil;