Mercurial > emacs

comparison src/callint.c @ 54927:7b6b4d9ae726

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fkey_description): Change callers.
author Kim F. Storm <storm@cua.dk>
date Fri, 16 Apr 2004 21:19:16 +0000
parents 6258852d3607
children bf7d2966022c 4c90ffeb71c5
comparison
equal deleted inserted replaced
54926:9d9ed20a61d2 54927:7b6b4d9ae726
610 specbind (Qcursor_in_echo_area, Qt); 610 specbind (Qcursor_in_echo_area, Qt);
611 args[i] = Fread_key_sequence (build_string (callint_message), 611 args[i] = Fread_key_sequence (build_string (callint_message),
612 Qnil, Qnil, Qnil, Qnil); 612 Qnil, Qnil, Qnil, Qnil);
613 unbind_to (speccount1, Qnil); 613 unbind_to (speccount1, Qnil);
614 teml = args[i]; 614 teml = args[i];
615 visargs[i] = Fkey_description (teml); 615 visargs[i] = Fkey_description (teml, Qnil);
616 616
617 /* If the key sequence ends with a down-event, 617 /* If the key sequence ends with a down-event,
618 discard the following up-event. */ 618 discard the following up-event. */
619 teml = Faref (args[i], make_number (XINT (Flength (args[i])) - 1)); 619 teml = Faref (args[i], make_number (XINT (Flength (args[i])) - 1));
620 if (CONSP (teml)) 620 if (CONSP (teml))
637 int speccount1 = SPECPDL_INDEX (); 637 int speccount1 = SPECPDL_INDEX ();
638 specbind (Qcursor_in_echo_area, Qt); 638 specbind (Qcursor_in_echo_area, Qt);
639 args[i] = Fread_key_sequence (build_string (callint_message), 639 args[i] = Fread_key_sequence (build_string (callint_message),
640 Qnil, Qt, Qnil, Qnil); 640 Qnil, Qt, Qnil, Qnil);
641 teml = args[i]; 641 teml = args[i];
642 visargs[i] = Fkey_description (teml); 642 visargs[i] = Fkey_description (teml, Qnil);
643 unbind_to (speccount1, Qnil); 643 unbind_to (speccount1, Qnil);
644 644
645 /* If the key sequence ends with a down-event, 645 /* If the key sequence ends with a down-event,
646 discard the following up-event. */ 646 discard the following up-event. */
647 teml = Faref (args[i], make_number (XINT (Flength (args[i])) - 1)); 647 teml = Faref (args[i], make_number (XINT (Flength (args[i])) - 1));