Commit 2c9cf2c8 authored by Gerd Moellmann's avatar Gerd Moellmann

(Ftop_level): Cancel busy-cursor.

parent 03859d20
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment