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

avy.el (avy--overlay-at): Use `avy--overlay-offset'

Browse Source 
Fixes abo-abo/lispy#70
This commit is contained in:
Oleh Krehel 2015-05-13 23:31:34 +02:00
parent 8efed4072a
commit b0512fc8f7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
avy.el
View File

@ -405,9 +405,10 @@ LEAF is normally ((BEG . END) . WND)."
(let ((str (propertize (let ((str (propertize
(string (car (last path))) (string (car (last path)))
'face 'avy-lead-face)) 'face 'avy-lead-face))
(pt (if (consp (car leaf)) (pt (+ (if (consp (car leaf))
(caar leaf) (caar leaf)
(car leaf))) (car leaf))
avy--overlay-offset))
(wnd (cdr leaf))) (wnd (cdr leaf)))
(let ((ol (make-overlay pt (1+ pt) (let ((ol (make-overlay pt (1+ pt)
(window-buffer wnd))) (window-buffer wnd)))