From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 29 Mar 2000 12:58:52 +0000 (+0000)
Subject: (Ftop_level): Cancel busy-cursor.
X-Git-Tag: emacs-pretest-21.0.90~4434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c9cf2c821853fae195d5f21f6fd87ae5c9231c6;p=emacs.git

(Ftop_level): Cancel busy-cursor.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index ef3c2160a05..de2e8730cee 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1175,6 +1175,10 @@ DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "",
   "Exit all recursive editing levels.")
   ()
 {
+#ifdef HAVE_X_WINDOWS
+  if (display_busy_cursor_p)
+    cancel_busy_cursor ();
+#endif
   Fthrow (Qtop_level, Qnil);
 }