From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 3 Mar 1995 10:32:07 +0000 (+0000)
Subject: (read_key_sequence): Update orig_local_map
X-Git-Tag: emacs-19.34~4943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6e0153c17558c36f6e3637c86e1806f75895876;p=emacs.git

(read_key_sequence): Update orig_local_map
for some additional gotos to replay_sequence.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 81bf5b0323a..c65f92179eb 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5081,6 +5081,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 		  interrupted_perdisplay->kbd_queue
 		    = Fcons (keybuf[--t], interrupted_perdisplay->kbd_queue);
 		mock_input = 0;
+		orig_local_map = get_local_map (PT, current_buffer);
 		goto replay_sequence;
 	      }
 #endif
@@ -5110,6 +5111,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 	  if (BUFFERP (key))
 	    {
 	      mock_input = t;
+	      orig_local_map = get_local_map (PT, current_buffer);
 	      goto replay_sequence;
 	    }
 
@@ -5121,6 +5123,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 	      keybuf[t++] = key;
 	      mock_input = t;
 	      Vquit_flag = Qnil;
+	      orig_local_map = get_local_map (PT, current_buffer);
 	      goto replay_sequence;
 	    }