Mercurial > emacs

diff src/lread.c @ 28633:83d4e44ed68e
(read_filtered_event): Cancel and start busy cursor.
author: Gerd Moellmann <gerd@gnu.org>
date: Tue, 18 Apr 2000 13:41:33 +0000
parents: b6f06a755c7d
children: 3234d64a07bf
--- 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;
 }