(Fcall_interactively): Ignore first element of

event-symbol-elements property.

diff --git a/src/callint.c b/src/callint.c
index e59fd3e85303bc1edbc166f028e6105231fde071..f033d32b417bf95279c80eb62f0aec204997d6d2 100644 (file)
--- 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);
              }