diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-29 12:58:52 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-29 12:58:52 +0000 |
| commit | 2c9cf2c821853fae195d5f21f6fd87ae5c9231c6 (patch) | |
| tree | 116ec83db7e9c4325b1457008e85eabfad035cff /src/keyboard.c | |
| parent | 03859d20b72cfc6b4f37518e5e748c9b5caab40b (diff) | |
| download | emacs-2c9cf2c821853fae195d5f21f6fd87ae5c9231c6.tar.gz | |
(Ftop_level): Cancel busy-cursor.
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 4 |
1 files changed, 4 insertions, 0 deletions
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); } |