[elpa] externals/ace-window a534492 85/92: ace-window.el (aw-minibuffer-leading-char-face): New face

[Stefan Monnier]

branch: externals/ace-window
commit a5344925e399e1f015721cda6cf5db03c90ab87a
Author: Daniel Radetsky <dradetsky@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    ace-window.el (aw-minibuffer-leading-char-face): New face
    
    Fixes #180
    Fixes #181
---
 ace-window.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ace-window.el b/ace-window.el
index 9b61ff3..afbeb0e 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -199,6 +199,10 @@ or
     (t (:foreground "gray100" :underline nil)))
   "Face for each window's leading char.")
 
+(defface aw-minibuffer-leading-char-face
+  '((t :inherit aw-leading-char-face))
+  "Face for minibuffer leading char.")
+
 (defface aw-background-face
   '((t (:foreground "gray40")))
   "Face for whole window background during selection.")
@@ -396,7 +400,9 @@ LEAF is (PT . WND)."
             (goto-char (+ pt 1))
             (push (cons wnd old-pt) aw--windows-points)))
         (overlay-put ol 'display (aw--overlay-str wnd pt path))
-        (overlay-put ol 'face 'aw-leading-char-face)
+        (if (window-minibuffer-p wnd)
+            (overlay-put ol 'face 'aw-minibuffer-leading-char-face)
+          (overlay-put ol 'face 'aw-leading-char-face))
         (overlay-put ol 'window wnd)
         (push ol avy--overlays-lead)))))