]> code.delx.au - gnu-emacs-elpa/commitdiff
Improve the faces for the last change
authorOleh Krehel <ohwoeowho@gmail.com>
Mon, 26 Oct 2015 07:59:27 +0000 (08:59 +0100)
committerOleh Krehel <ohwoeowho@gmail.com>
Mon, 26 Oct 2015 07:59:27 +0000 (08:59 +0100)
* avy.el (avy--overlay-at-full): Update.

avy.el

diff --git a/avy.el b/avy.el
index 22a687324d3e4578bede17544c50b804346f27c8..0171bb485eb02e20b3860fe605199ffcd8cb5c56 100644 (file)
--- 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)