From 170d30061f47f6adc265bff731fb1f170c9eee5f Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 2 Dec 2002 23:30:54 +0000 Subject: [PATCH] (Fcall_interactively): Use next_event only if less than key_count. --- src/callint.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.39.2