mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

* callint.c (Fcall_interactively): Change handling of 'e' spec;

Browse source 
this_command_keys is now a vector.
This commit is contained in:
Jim Blandy 1992-10-17 22:11:23 +00:00
parent 22cb290f67
commit 7e6491d3b4
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/callint.c
View file

@ -400,14 +400,15 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
case 'e': /* The invoking event. */
/* Find the next parameterized event. */
while (next_event < this_command_key_count
&& ! EVENT_HAS_PARAMETERS (this_command_keys[next_event]))
&& ! (EVENT_HAS_PARAMETERS
(XVECTOR (this_command_keys)->contents[next_event])))
next_event++;
if (next_event >= this_command_key_count)
error ("%s must be bound to an event with parameters",
(XTYPE (function) == Lisp_Symbol
? (char *) XSYMBOL (function)->name->data
: "command"));
args[i] = this_command_keys[next_event++];
args[i] = XVECTOR (this_command_keys)->contents[next_event++];
varies[i] = -1;
break;