From 4e3663ef87a6f93aa49c9ee1d24d98c8b142e92f Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 9 Apr 1996 02:41:15 +0000
Subject: (sit_for): Call swallow_events.

---
 src/dispnew.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/dispnew.c b/src/dispnew.c
index c9a94cf37ed..25ac26dd951 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2367,6 +2367,8 @@ sit_for (sec, usec, reading, display)
 {
   Lisp_Object read_kbd;
 
+  swallow_events (display);
+
   if (detect_input_pending_run_timers (display))
     return Qnil;
 
-- 
cgit v1.2.1