From 289a8c294150e05f2e21a3092e175fe8d3db4008 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 Jul 1994 19:35:08 +0000 Subject: [PATCH] (sit_for): Return immediately if unread events exist. --- src/dispnew.c | 4 ++++ 1 file changed, 4 insertions(+) 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; -- 2.39.5