From fd8681828e30f49d1f2e73ef919a7caa3be32bc8 Mon Sep 17 00:00:00 2001 From: justbur Date: Fri, 13 Nov 2015 08:55:20 -0500 Subject: [PATCH] Don't use face for prefix if using echo area With some themes the switch from the text from echo-keystrokes with no face to the which-key text with a face is annoying. --- which-key.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index f4786e6706e..7025fc5dc46 100644 --- a/which-key.el +++ b/which-key.el @@ -1408,8 +1408,10 @@ enough space based on your settings and frame size." prefix-keys) (width (nth page-n (plist-get which-key--pages-plist :page-widths))) (n-shown (nth page-n (plist-get which-key--pages-plist :keys/page))) (n-tot (plist-get which-key--pages-plist :tot-keys)) - (prefix-w-face (which-key--propertize-key prefix-keys)) - (dash-w-face (propertize "-" 'face 'which-key-key-face)) + (prefix-w-face (if (eq which-key-show-prefix 'echo) prefix-keys + (which-key--propertize-key prefix-keys))) + (dash-w-face (if (eq which-key-show-prefix 'echo) "-" + (propertize "-" 'face 'which-key-key-face))) (status-left (propertize (format "%s/%s" (1+ page-n) n-pages) 'face 'which-key-separator-face)) (status-top (propertize (which-key--maybe-get-prefix-title