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

avy.el (avy-goto-line-above): Exclude the current line

Browse Source 
* avy.el (avy-goto-line-below): Exclude the current line

Re #106
This commit is contained in:
Oleh Krehel 2015-12-03 12:53:12 +01:00
parent 4132dd647e
commit a45159a8ca
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
avy.el
View File

@ -1067,7 +1067,8 @@ Otherwise, forward to `goto-line' with ARG."
"Goto visible line above the cursor." "Goto visible line above the cursor."
(interactive) (interactive)
(let* ((avy-all-windows nil) (let* ((avy-all-windows nil)
(r (avy--line nil (window-start) (point)))) (r (avy--line nil (window-start)
(line-beginning-position))))
(unless (eq r t) (unless (eq r t)
(avy-action-goto r)))) (avy-action-goto r))))
@ -1077,7 +1078,7 @@ Otherwise, forward to `goto-line' with ARG."
(interactive) (interactive)
(let* ((avy-all-windows nil) (let* ((avy-all-windows nil)
(r (avy--line (r (avy--line
nil (point) nil (line-beginning-position 2)
(window-end (selected-window) t)))) (window-end (selected-window) t))))
(unless (eq r t) (unless (eq r t)
(avy-action-goto r)))) (avy-action-goto r))))