# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 901517862 0
# Node ID 1cda5e4bddba6513817c962bdc073cf3efc8dcf0
# Parent  926aae368e613ab499b3062a6087165c66d666db
(Fexecute_extended_command):
Don't delay before displaying the suggestion message
if the command did not display anything in the echo area.

diff -r 926aae368e61 -r 1cda5e4bddba src/keyboard.c
--- 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;