[Emacs-diffs] emacs-26 18b2359: * src/keyboard.c: Make xterm-mouse clicks on mode-line work

[Stefan Monnier]

branch: emacs-26
commit 18b235941109ab9e7a405cbe950886c97e897e11
Author: Olaf Rogalsky <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * src/keyboard.c: Make xterm-mouse clicks on mode-line work
    
    (read_key_sequence): Recompute first_event
    after replay_sequence, since it might have changed (bug#29104).
---
 src/keyboard.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/keyboard.c b/src/keyboard.c
index 57757cf..f32b156 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