From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 15 May 2001 13:37:45 +0000 (+0000)
Subject: (read_key_sequence): Prevent generating a fake
X-Git-Tag: emacs-pretest-21.0.104~495
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d;p=emacs.git

(read_key_sequence): Prevent generating a fake
prefix key twice.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 2a7216f3975..18c1f3e1e3a 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8221,10 +8221,12 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 	      window = POSN_WINDOW      (EVENT_START (key));
 	      posn   = POSN_BUFFER_POSN (EVENT_START (key));
 
-	      if (CONSP (posn))
+	      if (CONSP (posn)
+		  || (!NILP (fake_prefixed_keys)
+		      && !NILP (Fmemq (key, fake_prefixed_keys))))
 		{
-		  /* We're looking at the second event of a
-		     sequence which we expanded before.  Set
+		  /* We're looking a second time at an event for which
+		     we generated a fake prefix key.  Set
 		     last_real_key_start appropriately.  */
 		  if (t > 0)
 		    last_real_key_start = t - 1;