From 4b27f17c03715aa834f38d5989ad992fbb657e06 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 1 Jul 1999 15:02:43 +0000 Subject: [PATCH] (Fcall_interactively): Ignore first element of event-symbol-elements property. --- src/callint.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/callint.c b/src/callint.c index e59fd3e853..f033d32b41 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); } -- 2.20.1