# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951487503 0
# Node ID aa784365f0a029aa9abc7e677b00e1b98b4623b9
# Parent  444c6353b03a1e08b585bd03ac1042005f630d07
(recursive_edit_1): Cancel busy-cursor.

diff -r 444c6353b03a -r aa784365f0a0 src/keyboard.c
--- a/src/keyboard.c	Fri Feb 25 13:35:37 2000 +0000
+++ b/src/keyboard.c	Fri Feb 25 14:05:03 2000 +0000
@@ -858,6 +858,14 @@
       specbind (Qstandard_input, Qt);
     }
 
+#ifdef HAVE_X_WINDOWS
+  /* The command loop has started a busy-cursor timer, so we have to
+     cancel it here, otherwise it will fire because the recursive edit
+     can take some time.  */
+  if (display_busy_cursor_p)
+    cancel_busy_cursor ();
+#endif
+
   val = command_loop ();
   if (EQ (val, Qt))
     Fsignal (Qquit, Qnil);