diff options
| author | Jim Blandy | 1992-10-17 22:11:23 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-10-17 22:11:23 +0000 |
| commit | 7e6491d3b49989f1b2a35161978fa496f736d641 (patch) | |
| tree | 142d77f5aebe56b7c43e8df95c7e4fefc8d801ea /src | |
| parent | 22cb290f6784094c33358316ba87d0025edc566d (diff) | |
| download | emacs-7e6491d3b49989f1b2a35161978fa496f736d641.tar.gz emacs-7e6491d3b49989f1b2a35161978fa496f736d641.zip | |
* callint.c (Fcall_interactively): Change handling of 'e' spec;
this_command_keys is now a vector.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index 87c5057cb40..c3375818ba8 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -400,14 +400,15 @@ Otherwise, this is done only if an arg is read using the minibuffer.") | |||
| 400 | case 'e': /* The invoking event. */ | 400 | case 'e': /* The invoking event. */ |
| 401 | /* Find the next parameterized event. */ | 401 | /* Find the next parameterized event. */ |
| 402 | while (next_event < this_command_key_count | 402 | while (next_event < this_command_key_count |
| 403 | && ! EVENT_HAS_PARAMETERS (this_command_keys[next_event])) | 403 | && ! (EVENT_HAS_PARAMETERS |
| 404 | (XVECTOR (this_command_keys)->contents[next_event]))) | ||
| 404 | next_event++; | 405 | next_event++; |
| 405 | if (next_event >= this_command_key_count) | 406 | if (next_event >= this_command_key_count) |
| 406 | error ("%s must be bound to an event with parameters", | 407 | error ("%s must be bound to an event with parameters", |
| 407 | (XTYPE (function) == Lisp_Symbol | 408 | (XTYPE (function) == Lisp_Symbol |
| 408 | ? (char *) XSYMBOL (function)->name->data | 409 | ? (char *) XSYMBOL (function)->name->data |
| 409 | : "command")); | 410 | : "command")); |
| 410 | args[i] = this_command_keys[next_event++]; | 411 | args[i] = XVECTOR (this_command_keys)->contents[next_event++]; |
| 411 | varies[i] = -1; | 412 | varies[i] = -1; |
| 412 | break; | 413 | break; |
| 413 | 414 | ||