[termux-packages] / packages / emacs / src-keyboard.c.patch

https://github.com/emacs-mirror/emacs/commit/18b235941109ab9e7a405cbe950886c97e897e11

diff --git a/src/keyboard.c b/src/keyboard.c
index 57757cf2112..f32b1560133 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8916,7 +8916,6 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
   ptrdiff_t keys_start;
 
   Lisp_Object current_binding = Qnil;
-  Lisp_Object first_event = Qnil;
 
   /* Index of the first key that has no binding.
      It is useless to try fkey.start larger than that.  */
@@ -9026,6 +9025,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
 
   starting_buffer = current_buffer;
   first_unbound = bufsize + 1;
+  Lisp_Object first_event = mock_input > 0 ? keybuf[0] : Qnil;
 
   /* Build our list of keymaps.
      If we recognize a function key and replace its escape sequence in
Commit	Line	Data
25c69809 FF	1	https://github.com/emacs-mirror/emacs/commit/18b235941109ab9e7a405cbe950886c97e897e11
	2
	3	diff --git a/src/keyboard.c b/src/keyboard.c
	4	index 57757cf2112..f32b1560133 100644
	5	--- a/src/keyboard.c
	6	+++ b/src/keyboard.c
	7	@@ -8916,7 +8916,6 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
	8	ptrdiff_t keys_start;
	9
	10	Lisp_Object current_binding = Qnil;
	11	- Lisp_Object first_event = Qnil;
	12
	13	/* Index of the first key that has no binding.
	14	It is useless to try fkey.start larger than that. */
	15	@@ -9026,6 +9025,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
	16
	17	starting_buffer = current_buffer;
	18	first_unbound = bufsize + 1;
	19	+ Lisp_Object first_event = mock_input > 0 ? keybuf[0] : Qnil;
	20
	21	/* Build our list of keymaps.
	22	If we recognize a function key and replace its escape sequence in