From 2c9cf2c821853fae195d5f21f6fd87ae5c9231c6 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 29 Mar 2000 12:58:52 +0000
Subject: [PATCH] (Ftop_level): Cancel busy-cursor.

---
 src/keyboard.c | 4 ++++
 1 file changed, 4 insertions(+)

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);
 }
 
-- 
2.39.5