Mercurial > emacs

comparison src/callint.c @ 22932:0e0275920715

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Pass new arg to Fread_key_sequence.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Aug 1998 07:15:37 +0000
parents b469abbc9984
children 32a7b4dc421e
comparison
equal deleted inserted replaced
22931:fad48aef2340 22932:0e0275920715
547 case 'k': /* Key sequence. */ 547 case 'k': /* Key sequence. */
548 { 548 {
549 int speccount1 = specpdl_ptr - specpdl; 549 int speccount1 = specpdl_ptr - specpdl;
550 specbind (Qcursor_in_echo_area, Qt); 550 specbind (Qcursor_in_echo_area, Qt);
551 args[i] = Fread_key_sequence (build_string (callint_message), 551 args[i] = Fread_key_sequence (build_string (callint_message),
552 Qnil, Qnil, Qnil); 552 Qnil, Qnil, Qnil, Qnil);
553 unbind_to (speccount1, Qnil); 553 unbind_to (speccount1, Qnil);
554 teml = args[i]; 554 teml = args[i];
555 visargs[i] = Fkey_description (teml); 555 visargs[i] = Fkey_description (teml);
556 556
557 /* If the key sequence ends with a down-event, 557 /* If the key sequence ends with a down-event,
574 case 'K': /* Key sequence to be defined. */ 574 case 'K': /* Key sequence to be defined. */
575 { 575 {
576 int speccount1 = specpdl_ptr - specpdl; 576 int speccount1 = specpdl_ptr - specpdl;
577 specbind (Qcursor_in_echo_area, Qt); 577 specbind (Qcursor_in_echo_area, Qt);
578 args[i] = Fread_key_sequence (build_string (callint_message), 578 args[i] = Fread_key_sequence (build_string (callint_message),
579 Qnil, Qt, Qnil); 579 Qnil, Qt, Qnil, Qnil);
580 teml = args[i]; 580 teml = args[i];
581 visargs[i] = Fkey_description (teml); 581 visargs[i] = Fkey_description (teml);
582 unbind_to (speccount1, Qnil); 582 unbind_to (speccount1, Qnil);
583 583
584 /* If the key sequence ends with a down-event, 584 /* If the key sequence ends with a down-event,