ivy.el (ivy-action): New face

[gnu-emacs-elpa] / ivy.el

diff --git a/ivy.el b/ivy.el
index 091e575e9b092e229385033562734983a8708c96..296f873e1eba2b6b230a6bd17dccfc13d0a8d862 100644 (file)
--- a/ivy.el
+++ b/ivy.el
@@ -108,6 +108,10 @@
   '((t :inherit font-lock-builtin-face))
   "Face used by Ivy for matching virtual buffer names.")
 
+(defface ivy-action
+  '((t :inherit font-lock-builtin-face))
+  "Face used by Ivy for displaying keys in `ivy-read-action'.")
+
 (setcdr (assoc load-file-name custom-current-group-alist) 'ivy)
 
 (defcustom ivy-height 10
@@ -228,7 +232,7 @@ Example:
     (define-key map (kbd "C-s") 'ivy-next-line-or-history)
     (define-key map (kbd "C-r") 'ivy-reverse-i-search)
     (define-key map (kbd "SPC") 'self-insert-command)
-    (define-key map (kbd "DEL") 'ivy-backward-delete-char)
+    (define-key map [remap delete-backward-char] 'ivy-backward-delete-char)
     (define-key map [remap backward-kill-word] 'ivy-backward-kill-word)
     (define-key map [remap delete-char] 'ivy-delete-char)
     (define-key map [remap forward-char] 'ivy-forward-char)
@@ -480,7 +484,7 @@ selection, non-nil otherwise."
                               (format "%s: %s"
                                       (propertize
                                        (car x)
-                                       'face 'font-lock-builtin-face)
+                                       'face 'ivy-action)
                                       (nth 2 x)))
                             (cdr actions)
                             "\n")