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)

Reply via email to