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--line): Work for visual-line-mode

Browse Source 
Use `point' instead of `line-beginning-position'.

Fixes #91
This commit is contained in:
Oleh Krehel 2015-08-21 14:46:07 +02:00
parent 2c74d0160a
commit 009c0bc1ed
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
avy.el
View File

@ -909,6 +909,8 @@ Which one depends on variable `subword-mode'."
(call-interactively #'avy-goto-subword-1) (call-interactively #'avy-goto-subword-1)
(call-interactively #'avy-goto-word-1))) (call-interactively #'avy-goto-word-1)))
(defvar visual-line-mode)
(defun avy--line (&optional arg) (defun avy--line (&optional arg)
"Select a line. "Select a line.
The window scope is determined by `avy-all-windows' (ARG negates it)." The window scope is determined by `avy-all-windows' (ARG negates it)."
@ -926,9 +928,11 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(push (cons (push (cons
(if (eq avy-style 'post) (if (eq avy-style 'post)
(line-end-position) (line-end-position)
(line-beginning-position)) (point))
(selected-window)) candidates)) (selected-window)) candidates))
(forward-line 1)))))) (if visual-line-mode
(line-move 1)
(forward-line 1)))))))
(setq avy-action #'identity) (setq avy-action #'identity)
(avy--process (nreverse candidates) (avy--style-fn avy-style)))) (avy--process (nreverse candidates) (avy--style-fn avy-style))))