From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 10 Feb 1996 08:48:48 +0000 (+0000)
Subject: (read_char, timer_check): Call any_kboard_state
X-Git-Tag: emacs-19.34~1323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba8dfba86d49b44c07256c8034a8f19104033b4b;p=emacs.git

(read_char, timer_check): Call any_kboard_state
after calling Fcommand_execute, if was previously in that state.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 585561c4076..5126a4f2944 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2057,8 +2057,15 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
 
   if (!NILP (tem))
     {
+      int was_locked = single_kboard;
+
       last_input_char = c;
       Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char));
+
+      /* Resume allowing input from any kboard, if that was true before.  */
+      if (!was_locked)
+	any_kboard_state ();
+
       goto retry;
     }
 
@@ -2931,11 +2938,18 @@ timer_check (do_it_now)
 	      if (do_it_now)
 		{
 		  Lisp_Object tem, event;
+		  int was_locked = single_kboard;
+
 		  tem = get_keymap_1 (Vspecial_event_map, 0, 0);
 		  tem = get_keyelt (access_keymap (tem, Qtimer_event, 0, 0),
 				    1);
 		  event = Fcons (Qtimer_event, Fcons (timer, Qnil));
 		  Fcommand_execute (tem, Qnil, Fvector (1, &event));
+
+		  /* Resume allowing input from any kboard, if that was true before.  */
+		  if (!was_locked)
+		    any_kboard_state ();
+
 		  /* Since we have handled the event,
 		     we don't need to tell the caller to wake up and do it.  */
 		}