From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 Dec 2019 09:28:05 +0000 (+0200)
Subject: Fix fallout from fixing bug#37782
X-Git-Tag: emacs-27.0.90~418
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1161c7d8ec388dc0698e7a398798a4f0e98e0403;p=emacs.git

Fix fallout from fixing bug#37782

* src/keyboard.c (read_key_sequence): Modify the fix for
bug#37782 so that it applies only to keyboard keys, not to
other events, such as a new buffer.  (Bug#38132)
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 7d3b0244b20..5135fd0bc84 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -9589,9 +9589,7 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt,
 		       Fcons (make_lispy_switch_frame (frame),
 			      KVAR (interrupted_kboard, kbd_queue)));
 		  }
-                if (FIXNUMP (key) && XFIXNUM (key) == -2)
-                  mock_input = 0;
-                else
+                if (FIXNUMP (key) && XFIXNUM (key) != -2)
                   {
                     /* If interrupted while initializing terminal, we
                        need to replay the interrupting key.  See
@@ -9599,6 +9597,8 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt,
                     mock_input = 1;
                     keybuf[0] = key;
                   }
+                else
+                  mock_input = 0;
 		goto replay_entire_sequence;
 	      }
 	  }