# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 956065293 0
# Node ID 83d4e44ed68ef23d39fd2b6e07f959703f9b6954
# Parent  239d5d98c1bdd1ef5ebac9971fd6c335f19a5098
(read_filtered_event): Cancel and start busy cursor.

diff -r 239d5d98c1bd -r 83d4e44ed68e src/lread.c
--- a/src/lread.c	Tue Apr 18 13:04:46 2000 +0000
+++ b/src/lread.c	Tue Apr 18 13:41:33 2000 +0000
@@ -410,6 +410,11 @@
 {
   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 @@
   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;
 }