ace-window.el (aw-minibuffer-leading-char-face): New face

Fixes #180 Fixes #181
7 years ago · a5344925e3
parent 091150b33e
commit a5344925e3
1 changed files with 7 additions and 1 deletions
--- 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)))))