From: Andreas Schwab <schwab@suse.de>
Date: Mon, 2 Dec 2002 23:30:54 +0000 (+0000)
Subject: (Fcall_interactively): Use next_event only if less
X-Git-Tag: ttn-vms-21-2-B4~12194
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=170d30061f47f6adc265bff731fb1f170c9eee5f;p=emacs.git

(Fcall_interactively): Use next_event only if less
than key_count.
---

diff --git a/src/callint.c b/src/callint.c
index b4b1e198544..4552b2274b1 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -409,7 +409,9 @@ supply if the command inquires which events were used to invoke it.  */)
 	{
 	  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))