Mercurial > emacs
diff src/keyboard.c @ 22835:1cda5e4bddba
(Fexecute_extended_command):
Don't delay before displaying the suggestion message
if the command did not display anything in the echo area.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 27 Jul 1998 05:37:42 +0000 |
parents | a3fe2af7cefb |
children | 58a8427745ec |
line wrap: on
line diff
--- a/src/keyboard.c Mon Jul 27 00:37:00 1998 +0000 +++ b/src/keyboard.c Mon Jul 27 05:37:42 1998 +0000 @@ -7891,9 +7891,18 @@ 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;