diff options
| author | Andreas Schwab <schwab@suse.de> | 2002-12-02 23:30:54 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2002-12-02 23:30:54 +0000 |
| commit | 170d30061f47f6adc265bff731fb1f170c9eee5f (patch) | |
| tree | 37caa7ee914815bf44ecfbb29a7d20211eb041a9 /src/callint.c | |
| parent | a8fd50efad0d75c4e62c10d19f50035620f0ed1b (diff) | |
| download | emacs-170d30061f47f6adc265bff731fb1f170c9eee5f.tar.gz | |
(Fcall_interactively): Use next_event only if less
than key_count.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |