From 1b78fb0d895fc86c190aa99b29e08152f408c278 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Mon, 26 Oct 2015 08:59:27 +0100 Subject: [PATCH] Improve the faces for the last change * avy.el (avy--overlay-at-full): Update. --- avy.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/avy.el b/avy.el index 22a6873..0171bb4 100644 --- a/avy.el +++ b/avy.el @@ -759,10 +759,16 @@ LEAF is normally ((BEG . END) . WND)." (when (and (bound-and-true-p visual-line-mode) (> len (- end beg))) (setq len (- end beg)) - (setq str - (substring (propertize - (apply #'string (reverse path)) - 'face 'avy-lead-face) 0 len)))))) + (let ((old-str (apply #'string (reverse path)))) + (setq str + (substring + (propertize + old-str + 'face + (if (= (length old-str) 1) + 'avy-lead-face + 'avy-lead-face-0)) + 0 len))))))) (avy--overlay str beg end wnd (lambda (str old-str)