]> git.eshelyaron.com Git - emacs.git/commitdiff
(Ftop_level): Cancel busy-cursor.
authorGerd Moellmann <gerd@gnu.org>
Wed, 29 Mar 2000 12:58:52 +0000 (12:58 +0000)
committerGerd Moellmann <gerd@gnu.org>
Wed, 29 Mar 2000 12:58:52 +0000 (12:58 +0000)
src/keyboard.c

index ef3c2160a05fd739c1acc99a4f068c4d5c33202a..de2e8730ceeb25671504aab478e702ae57accbdc 100644 (file)
@@ -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);
 }