From 85d964de72af898cbcc9cac4ef0b11136de332ba Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 6 Mar 2005 16:04:21 +0000 Subject: [PATCH] (Ftop_level): Let Fthrow deal with UNBLOCK_INPUT. --- src/ChangeLog | 17 +++++++++++++++++ src/keyboard.c | 5 ----- 2 files changed, 17 insertions(+), 5 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index dc48d647216..fc2ded6ce94 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,15 @@ +2005-03-06 Richard M. Stallman + + * 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 * 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 + + * xdisp.c (fast_find_position): Rename END to BEG. + (syms_of_xdisp) : Doc fix. + 2005-02-27 Jan Dj,Ad(Brv * gtkutil.c (xg_resize_outer_widget): Remove unneeded call to diff --git a/src/keyboard.c b/src/keyboard.c index 4fb8206d5ee..f507ea348f1 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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); } -- 2.39.2