mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Fexecute_extended_command):

Browse source 
Don't delay before displaying the suggestion message
if the command did not display anything in the echo area.
This commit is contained in:
Richard M. Stallman 1998-07-27 05:37:42 +00:00
parent 7e5ad77744
commit 426939cc8b
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/keyboard.c
View file

@ -7891,9 +7891,18 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
Qmouse_movement)))
{
/* But first wait, and skip the message if there is input. */
if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings)
? Vsuggest_key_bindings : make_number (2)),
Qnil, Qnil))
int delay_time;
if (echo_area_glyphs != 0)
/* This command displayed something in the echo area;
so wait a few seconds, then display our suggestion message. */
delay_time = (NUMBERP (Vsuggest_key_bindings)
? XINT (Vsuggest_key_bindings) : 2);
else
/* This command left the echo area empty,
so display our message immediately. */
delay_time = 0;
if (!NILP (Fsit_for (make_number (delay_time), Qnil, Qnil))
&& ! CONSP (Vunread_command_events))
{
Lisp_Object binding;