branch: elpa/helm
commit d3e3685afda512d3c26f2a8f1ea675a94ff62d73
Author: Ta Quang Trung <taquangtrun...@gmail.com>
Commit: Ta Quang Trung <taquangtrun...@gmail.com>
define new helm face for highlighting key bindings
---
helm-mode.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/helm-mode.el b/helm-mode.el
index 2cd05ca4c7..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 'help-key-binding)))))
+ (propertize (format " (%s)" binding) 'face
'helm-completions-key-binding)))))
(defun helm-completion-package-affixation (_completions)
(lambda (comp)
