Improve the faces for the last change

* avy.el (avy--overlay-at-full): Update.
2025-10-13 05:23:05 +00:00 · 2015-10-26 08:59:27 +01:00 · 2015-10-26 08:59:27 +01:00 · 1b78fb0d89
commit 1b78fb0d89
parent 9ae44133ca
1 changed files with 10 additions and 4 deletions
--- 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)