Mercurial > emacs
changeset 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 | 926aae368e61 |
| children | f3603840ddbc |
| files | src/keyboard.c |
| diffstat | 1 files changed, 12 insertions(+), 3 deletions(-) [+] |
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;