From: Andreas Schwab <schwab@suse.de>
Date: Thu, 1 Jul 1999 15:02:43 +0000 (+0000)
Subject: (Fcall_interactively): Ignore first element of
X-Git-Tag: emacs-20.4~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b27f17c03715aa834f38d5989ad992fbb657e06;p=emacs.git

(Fcall_interactively): Ignore first element of
event-symbol-elements property.
---

diff --git a/src/callint.c b/src/callint.c
index e59fd3e8530..f033d32b417 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -560,7 +560,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 		Lisp_Object tem2;
 
 		teml = Fget (teml, intern ("event-symbol-elements"));
-		tem2 = Fmemq (intern ("down"), teml);
+		/* Ignore first element, which is the base key.  */
+		tem2 = Fmemq (intern ("down"), Fcdr (teml));
 		if (! NILP (tem2))
 		  Fread_event (Qnil, Qnil);
 	      }
@@ -587,7 +588,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 		Lisp_Object tem2;
 
 		teml = Fget (teml, intern ("event-symbol-elements"));
-		tem2 = Fmemq (intern ("down"), teml);
+		/* Ignore first element, which is the base key.  */
+		tem2 = Fmemq (intern ("down"), Fcdr (teml));
 		if (! NILP (tem2))
 		  Fread_event (Qnil, Qnil);
 	      }