# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 930841363 0
# Node ID f477c5bb74c6f781a44a9dc6545bf62ace44d350
# Parent  b991eeca9d59dcd12399508a6c0894858a18eb89
(Fcall_interactively): Ignore first element of
event-symbol-elements property.

diff -r b991eeca9d59 -r f477c5bb74c6 src/callint.c
--- a/src/callint.c	Thu Jul 01 14:16:44 1999 +0000
+++ b/src/callint.c	Thu Jul 01 15:02:43 1999 +0000
@@ -560,7 +560,8 @@
 		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 @@
 		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);
 	      }