From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Sep 1996 19:24:19 +0000 (+0000)
Subject: (Fexecute_extended_command): Delete junk lines.
X-Git-Tag: emacs-20.1~3778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5434fce64e7be25019ebcfe1a5d267f9a5a35693;p=emacs.git

(Fexecute_extended_command): Delete junk lines.
Print the key bindings after the command, temporarily;
then bring back the previous message.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index f0a95c3e5ab..19f8dbb3b57 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6901,11 +6901,10 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
   (prefixarg)
      Lisp_Object prefixarg;
 {
-  defsubr (&Sfocus_frame);
-  defsubr (&Sunfocus_frame);
   Lisp_Object function;
   char buf[40];
   Lisp_Object saved_keys;
+  Lisp_Object bindings, value;
   struct gcpro gcpro1, gcpro2;
 
   saved_keys = Fvector (this_command_key_count,
@@ -6988,24 +6987,46 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
   if (!NILP (Vsuggest_key_bindings)
       && NILP (Vexecuting_macro)
       && SYMBOLP (function))
-    {
-      Lisp_Object bindings;
+    bindings = Fwhere_is_internal (function, Voverriding_local_map,
+				   Qt, Qnil);
+  else
+    bindings = Qnil;
 
-      bindings = Fwhere_is_internal (function, Voverriding_local_map,
-				     Qt, Qnil);
+  value = Qnil;
+  GCPRO2 (bindings, value);
+  value = Fcommand_execute (function, Qt, Qnil, Qnil);
 
-      if (!NILP (bindings))
+  /* If the command has a key binding, print it now.  */
+  if (!NILP (bindings))
+    {
+      /* 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)))
 	{
-	  message ("You can run the command `%s' by typing %s",
+	  Lisp_Object binding;
+	  char *newmessage;
+	  char *oldmessage = echo_area_glyphs;
+	  int oldmessage_len = echo_area_glyphs_length;
+
+	  binding = Fkey_description (bindings);
+
+	  newmessage
+	    = (char *) alloca (XSYMBOL (function)->name->size
+			       + XSTRING (binding)->size
+			       + 100);
+	  sprintf (newmessage, "You can run the command `%s' by typing %s",
 		   XSYMBOL (function)->name->data,
-		   XSTRING (Fkey_description (bindings))->data);
-	  Fsit_for ((NUMBERP (Vsuggest_key_bindings)
-		     ? Vsuggest_key_bindings : make_number (2)),
-		    Qnil, Qnil);
+		   XSTRING (binding)->data);
+	  message1_nolog (newmessage);
+	  if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings)
+				? Vsuggest_key_bindings : make_number (2)),
+			       Qnil, Qnil)))
+	    message2_nolog (oldmessage, oldmessage_len);
 	}
     }
 
-  return Fcommand_execute (function, Qt, Qnil, Qnil);
+  RETURN_UNGCPRO (value);
 }
 
 /* Find the set of keymaps now active.