# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1038871854 0
# Node ID edd0dd275f1f8e72176f10deb896a1545d4998db
# Parent  cf1e5fbb7a61ed92788f770586ca801b51d7b546
(Fcall_interactively): Use next_event only if less
than key_count.

diff -r cf1e5fbb7a61 -r edd0dd275f1f src/callint.c
--- a/src/callint.c	Mon Dec 02 22:31:01 2002 +0000
+++ b/src/callint.c	Mon Dec 02 23:30:54 2002 +0000
@@ -409,7 +409,9 @@
 	{
 	  Lisp_Object event;
 
-	  event = XVECTOR (keys)->contents[next_event];
+	  event = (next_event < key_count
+		   ? XVECTOR (keys)->contents[next_event]
+		   : Qnil);
 	  if (EVENT_HAS_PARAMETERS (event)
 	      && (event = XCDR (event), CONSP (event))
 	      && (event = XCAR (event), CONSP (event))