branch: elpa/helm commit d6a302c8e9f5b4d85d8e91ff090ccdf818b40ab4 Merge: b2942d9cde d3e3685afd Author: Thierry Volpiatto <thie...@posteo.net> Commit: GitHub <nore...@github.com>
Merge pull request #2722 from taquangtrung/key-binding-face use a more specialized face for key binding information --- helm-mode.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/helm-mode.el b/helm-mode.el index 7486f1d801..5f987ed1eb 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -299,6 +299,12 @@ Where FUNCTION is a function suitable for `helm-quit-and-find-file'.") '((t :inherit font-lock-property-name-face)) "Face used to highlight annotations in completion." :group 'helm-mode) + +(defface helm-completions-key-binding + '((t :inherit font-lock-constant-face)) + "Face used to highlight key binding in completion." + :group 'helm-mode) + (defvar helm-comp-read-map (let ((map (make-sparse-keymap))) @@ -1295,7 +1301,7 @@ is used." (let* ((key (and (commandp sym) (where-is-internal sym nil 'first-only))) (binding (and key (key-description key)))) (when binding - (propertize (format " (%s)" binding) 'face 'shadow))))) + (propertize (format " (%s)" binding) 'face 'helm-completions-key-binding))))) (defun helm-completion-package-affixation (_completions) (lambda (comp)