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.") |