From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 15 Nov 2022 03:17:58 +0000 (+0100)
Subject: Add face to key bindings suggested by M-x
X-Git-Tag: emacs-29.0.90~1616^2~161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9db6da54494e2835eb9e7f1854af7d40eea28d6e;p=emacs.git

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.
---

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.