diff src/callint.c @ 48630:edd0dd275f1f

(Fcall_interactively): Use next_event only if less than key_count.
author Andreas Schwab <schwab@suse.de>
date Mon, 02 Dec 2002 23:30:54 +0000
parents ba7cb9f8dfc3
children 23a1cea22d13
line wrap: on
line diff
--- 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))