From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 18 Apr 2000 13:41:33 +0000 (+0000)
Subject: (read_filtered_event): Cancel and start busy cursor.
X-Git-Tag: emacs-pretest-21.0.90~4212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dbf89bc7d65c1871285e7461a4fdc17bf23a984;p=emacs.git

(read_filtered_event): Cancel and start busy cursor.
---

diff --git a/src/lread.c b/src/lread.c
index 4d2895ca2e6..c1d4dced48b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -410,6 +410,11 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
 {
   register Lisp_Object val, delayed_switch_frame;
 
+#ifdef HAVE_WINDOW_SYSTEM
+  if (display_busy_cursor_p)
+    cancel_busy_cursor ();
+#endif
+  
   delayed_switch_frame = Qnil;
 
   /* Read until we get an acceptable event.  */
@@ -467,6 +472,10 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
   if (! NILP (delayed_switch_frame))
     unread_switch_frame = delayed_switch_frame;
 
+#ifdef HAVE_WINDOW_SYSTEM
+  if (display_busy_cursor_p)
+    start_busy_cursor ();
+#endif
   return val;
 }