(Fcall_interactively): Ignore first element of

event-symbol-elements property.

(Fcall_interactively): Ignore first element of
event-symbol-elements property.
4b27f17c · Andreas Schwab · 887f2a2d · 4b27f17c
Commit 4b27f17c authored Jul 01, 1999 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

src/callint.c src/callint.c +4 -2

No files found.
--- 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);
 	      }