diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-11-15 04:17:58 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-11-15 04:19:36 +0100 |
| commit | 9db6da54494e2835eb9e7f1854af7d40eea28d6e (patch) | |
| tree | e22a61a541ddd6fb6efe2665a256f722578c121d /lisp | |
| parent | 723ceaca1d71850aed75431a503f8616cab8c103 (diff) | |
| download | emacs-9db6da54494e2835eb9e7f1854af7d40eea28d6e.tar.gz emacs-9db6da54494e2835eb9e7f1854af7d40eea28d6e.tar.bz2 emacs-9db6da54494e2835eb9e7f1854af7d40eea28d6e.zip | |
Add face to key bindings suggested by M-x
* lisp/simple.el (execute-extended-command--describe-binding-msg):
Use 'help-key-binding' face for keybinding.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index a53b7b1d0df..0f44b14948c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2494,9 +2494,10 @@ Also see `suggest-key-bindings'." (defun execute-extended-command--describe-binding-msg (function binding shorter) (format-message "You can run the command `%s' with %s" function - (cond (shorter (concat "M-x " shorter)) - ((stringp binding) binding) - (t (key-description binding))))) + (propertize (cond (shorter (concat "M-x " shorter)) + ((stringp binding) binding) + (t (key-description binding))) + 'face 'help-key-binding))) (defun execute-extended-command (prefixarg &optional command-name typed) "Read a command name, then read the arguments and call the command. |