Mercurial > emacs
comparison src/keyboard.c @ 28389:9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 29 Mar 2000 12:58:52 +0000 |
parents | 0eacc2b5db8a |
children | b9af46a5b25a |
comparison
equal
deleted
inserted
replaced
28388:5b49a098d0cc | 28389:9ec5585e5e29 |
---|---|
1173 | 1173 |
1174 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", | 1174 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", |
1175 "Exit all recursive editing levels.") | 1175 "Exit all recursive editing levels.") |
1176 () | 1176 () |
1177 { | 1177 { |
1178 #ifdef HAVE_X_WINDOWS | |
1179 if (display_busy_cursor_p) | |
1180 cancel_busy_cursor (); | |
1181 #endif | |
1178 Fthrow (Qtop_level, Qnil); | 1182 Fthrow (Qtop_level, Qnil); |
1179 } | 1183 } |
1180 | 1184 |
1181 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | 1185 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", |
1182 "Exit from the innermost recursive edit or minibuffer.") | 1186 "Exit from the innermost recursive edit or minibuffer.") |