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-pre): Fix conflict with visual-line-mode

Browse Source
This commit is contained in:
Oleh Krehel 2020-05-19 08:58:53 +02:00
parent 509471bad0
commit acf553cae2
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
avy.el
View File

@ -1068,6 +1068,9 @@ Do this even when the char is terminating."
"Create an overlay with PATH at LEAF.
PATH is a list of keys from tree root to LEAF.
LEAF is normally ((BEG . END) . WND)."
(if (with-selected-window (cdr leaf)
(bound-and-true-p visual-line-mode))
(avy--overlay-at-full path leaf)
(let* ((path (mapcar #'avy--key-to-char path))
(str (propertize (apply #'string (reverse path))
'face 'avy-lead-face)))
@ -1080,7 +1083,7 @@ LEAF is normally ((BEG . END) . WND)."
(avy--overlay
str
(avy-candidate-beg leaf) nil
(avy-candidate-wnd leaf))))
(avy-candidate-wnd leaf)))))
(defun avy--overlay-at (path leaf)
"Create an overlay with PATH at LEAF.