(Ftop_level): Let Fthrow deal with UNBLOCK_INPUT.

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  <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
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);
 }