[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9db6da5449: Add face to key bindings suggested by M-x
From: |
Stefan Kangas |
Subject: |
master 9db6da5449: Add face to key bindings suggested by M-x |
Date: |
Mon, 14 Nov 2022 22:21:05 -0500 (EST) |
branch: master
commit 9db6da54494e2835eb9e7f1854af7d40eea28d6e
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
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.
---
lisp/simple.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index a53b7b1d0d..0f44b14948 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9db6da5449: Add face to key bindings suggested by M-x,
Stefan Kangas <=