(Ftop_level): Let Fthrow deal with UNBLOCK_INPUT.

This commit is contained in:
Richard M. Stallman 2005-03-06 16:04:21 +00:00
parent c1788fbc8b
commit 85d964de72
2 changed files with 17 additions and 5 deletions

View file

@ -1,3 +1,15 @@
2005-03-06 Richard M. Stallman <rms@gnu.org>
* keyboard.c (Ftop_level): Let Fthrow deal with UNBLOCK_INPUT.
* eval.c (unwind_to_catch): Use UNBLOCK_INPUT_TO.
(Feval, Ffuncall): Use CHECK_CONS_LIST.
* lisp.h (CHECK_CONS_LIST): New macro (two definitions).
* blockinput.h (UNBLOCK_INPUT_TO): New macro.
(TOTALLY_UNBLOCK_INPUT): Handle a pending signal if any.
2005-03-05 Juri Linkov <juri@jurta.org>
* emacs.c (USAGE1): Replace Info node name "command arguments"
@ -107,6 +119,11 @@
* keyboard.c (Fposn_at_x_y): Check integerness of X and Y.
2005-02-27 Richard M. Stallman <rms@gnu.org>
* xdisp.c (fast_find_position): Rename END to BEG.
(syms_of_xdisp) <menu-bar-update-hook>: Doc fix.
2005-02-27 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* gtkutil.c (xg_resize_outer_widget): Remove unneeded call to

View file

@ -1350,11 +1350,6 @@ DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "",
cancel_hourglass ();
#endif
/* Unblock input if we enter with input blocked. This may happen if
redisplay traps e.g. during tool-bar update with input blocked. */
while (INPUT_BLOCKED_P)
UNBLOCK_INPUT;
return Fthrow (Qtop_level, Qnil);
}