diff options
| author | Karl Heuer | 1997-11-17 02:15:35 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-11-17 02:15:35 +0000 |
| commit | 3ababa6033df9862b5bc656a68774d3931d473b8 (patch) | |
| tree | ca91782e527fb55e845635f8784bd530b68d793d /src | |
| parent | a14723d908668d6119eb1c33c18bfb135d439407 (diff) | |
| download | emacs-3ababa6033df9862b5bc656a68774d3931d473b8.tar.gz emacs-3ababa6033df9862b5bc656a68774d3931d473b8.zip | |
(Fexecute_extended_command): Fix message wording.
Don't print a message for a binding for mouse-movement.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 5 |
1 files changed, 3 insertions, 2 deletions
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_ | |||
| 7251 | value = Fcommand_execute (function, Qt, Qnil, Qnil); | 7251 | value = Fcommand_execute (function, Qt, Qnil, Qnil); |
| 7252 | 7252 | ||
| 7253 | /* If the command has a key binding, print it now. */ | 7253 | /* If the command has a key binding, print it now. */ |
| 7254 | if (!NILP (bindings)) | 7254 | if (!NILP (bindings) |
| 7255 | && ! (ARRAYP (bindings) && EQ (Faref (bindings), Qmouse_movement))) | ||
| 7255 | { | 7256 | { |
| 7256 | /* But first wait, and skip the message if there is input. */ | 7257 | /* But first wait, and skip the message if there is input. */ |
| 7257 | if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) | 7258 | if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) |
| @@ -7270,7 +7271,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ | |||
| 7270 | = (char *) alloca (XSYMBOL (function)->name->size | 7271 | = (char *) alloca (XSYMBOL (function)->name->size |
| 7271 | + XSTRING (binding)->size | 7272 | + XSTRING (binding)->size |
| 7272 | + 100); | 7273 | + 100); |
| 7273 | sprintf (newmessage, "You can run the command `%s' by typing %s", | 7274 | sprintf (newmessage, "You can run the command `%s' with %s", |
| 7274 | XSYMBOL (function)->name->data, | 7275 | XSYMBOL (function)->name->data, |
| 7275 | XSTRING (binding)->data); | 7276 | XSTRING (binding)->data); |
| 7276 | message1_nolog (newmessage); | 7277 | message1_nolog (newmessage); |