emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 1b78fb0 57/78: Improve the faces for the last change


From: Oleh Krehel
Subject: [elpa] master 1b78fb0 57/78: Improve the faces for the last change
Date: Sat, 23 Jan 2016 14:00:15 +0000

branch: master
commit 1b78fb0d895fc86c190aa99b29e08152f408c278
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Improve the faces for the last change
    
    * avy.el (avy--overlay-at-full): Update.
---
 avy.el |   14 ++++++++++----
 1 files 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]