Mercurial > emacs

changeset 28633:83d4e44ed68e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_filtered_event): Cancel and start busy cursor.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 18 Apr 2000 13:41:33 +0000
parents 239d5d98c1bd
children a2cce25e6c7f
files src/lread.c
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }