Mercurial > emacs
comparison src/keyboard.c @ 60419:1b47709417bd
(Ftop_level): Let Fthrow deal with UNBLOCK_INPUT.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 06 Mar 2005 16:04:06 +0000 |
| parents | 9d9eca6f4905 |
| children | 5aa4c4b8de08 c7d2b6ee3a80 29e773288013 |
comparison
equal
deleted
inserted
replaced
| 60418:887436be5f78 | 60419:1b47709417bd |
|---|---|
| 1347 { | 1347 { |
| 1348 #ifdef HAVE_X_WINDOWS | 1348 #ifdef HAVE_X_WINDOWS |
| 1349 if (display_hourglass_p) | 1349 if (display_hourglass_p) |
| 1350 cancel_hourglass (); | 1350 cancel_hourglass (); |
| 1351 #endif | 1351 #endif |
| 1352 | |
| 1353 /* Unblock input if we enter with input blocked. This may happen if | |
| 1354 redisplay traps e.g. during tool-bar update with input blocked. */ | |
| 1355 while (INPUT_BLOCKED_P) | |
| 1356 UNBLOCK_INPUT; | |
| 1357 | 1352 |
| 1358 return Fthrow (Qtop_level, Qnil); | 1353 return Fthrow (Qtop_level, Qnil); |
| 1359 } | 1354 } |
| 1360 | 1355 |
| 1361 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | 1356 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", |