Mercurial > emacs

comparison src/callint.c @ 1425:2c156e9908ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* callint.c (Fcall_interactively): Change handling of 'e' spec; this_command_keys is now a vector.
author Jim Blandy <jimb@redhat.com>
date Sat, 17 Oct 1992 22:11:23 +0000
parents 54028d2538a4
children 098464e977d6
comparison
equal deleted inserted replaced
1424:892242701cba 1425:2c156e9908ad
398 break; 398 break;
399 399
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
414 case 'm': /* Value of mark. Does not do I/O. */ 415 case 'm': /* Value of mark. Does not do I/O. */
415 check_mark (); 416 check_mark ();