ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve the faces for the last change

Browse Source 
* avy.el (avy--overlay-at-full): Update.
This commit is contained in:
Oleh Krehel 2015-10-26 08:59:27 +01:00
parent 9ae44133ca
commit 1b78fb0d89
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
avy.el
View File

@ -759,10 +759,16 @@ LEAF is normally ((BEG . END) . WND)."
(when (and (bound-and-true-p visual-line-mode) (when (and (bound-and-true-p visual-line-mode)
(> len (- end beg))) (> len (- end beg)))
(setq len (- end beg)) (setq len (- end beg))
(setq str (let ((old-str (apply #'string (reverse path))))
(substring (propertize (setq str
(apply #'string (reverse path)) (substring
'face 'avy-lead-face) 0 len)))))) (propertize
old-str
'face
(if (= (length old-str) 1)
'avy-lead-face
'avy-lead-face-0))
0 len)))))))
(avy--overlay (avy--overlay
str beg end wnd str beg end wnd
(lambda (str old-str) (lambda (str old-str)