(Ftop_level): Let Fthrow deal with UNBLOCK_INPUT.

diff --git a/src/ChangeLog b/src/ChangeLog
index dc48d647216d7213ec24c4a9d785bba5740fb100..fc2ded6ce94792ea18c99bfd5a9bec9b87a15e91 100644 (file)
--- 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\e,Ad\e(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 4fb8206d5ee83e8ae5b87292f00b885e90f46d3c..f507ea348f13779c98e6dabb44ed6d1b5a1c71ed 100644 (file)
--- 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);
 }