From: Karl Heuer Date: Mon, 17 Nov 1997 02:15:35 +0000 (+0000) Subject: (Fexecute_extended_command): Fix message wording. X-Git-Tag: emacs-20.3~2803 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ababa6033df9862b5bc656a68774d3931d473b8;p=emacs.git (Fexecute_extended_command): Fix message wording. Don't print a message for a binding for mouse-movement. --- diff --git a/src/keyboard.c b/src/keyboard.c index bf5643dba06..7264ca599b9 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -7251,7 +7251,8 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ value = Fcommand_execute (function, Qt, Qnil, Qnil); /* If the command has a key binding, print it now. */ - if (!NILP (bindings)) + if (!NILP (bindings) + && ! (ARRAYP (bindings) && EQ (Faref (bindings), Qmouse_movement))) { /* But first wait, and skip the message if there is input. */ if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) @@ -7270,7 +7271,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ = (char *) alloca (XSYMBOL (function)->name->size + XSTRING (binding)->size + 100); - sprintf (newmessage, "You can run the command `%s' by typing %s", + sprintf (newmessage, "You can run the command `%s' with %s", XSYMBOL (function)->name->data, XSTRING (binding)->data); message1_nolog (newmessage);