From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 Jul 1994 19:35:08 +0000 (+0000)
Subject: (sit_for): Return immediately if unread events exist.
X-Git-Tag: emacs-19.34~7567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=289a8c294150e05f2e21a3092e175fe8d3db4008;p=emacs.git

(sit_for): Return immediately if unread events exist.
---

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)
 {
   Lisp_Object read_kbd;
 
+  if (CONSP (Vunread_command_events)
+      || unread_command_char != -1)
+    return Qnil;
+
   if (detect_input_pending ())
     return Qnil;