emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 4132dd6 63/78: avy.el (avy-goto-line-above): Work in a sin


From: Oleh Krehel
Subject: [elpa] master 4132dd6 63/78: avy.el (avy-goto-line-above): Work in a single window
Date: Sat, 23 Jan 2016 14:00:19 +0000

branch: master
commit 4132dd647e3e34456d245f8b11462ef20a557631
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy.el (avy-goto-line-above): Work in a single window
    
    * avy.el (avy-goto-line-above):
    (avy-goto-line-below): Bind `avy-all-windows' to nil.
    
    Re #106
---
 avy.el |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/avy.el b/avy.el
index 2d4b5a0..b4043c5 100644
--- a/avy.el
+++ b/avy.el
@@ -1066,7 +1066,8 @@ Otherwise, forward to `goto-line' with ARG."
 (defun avy-goto-line-above ()
   "Goto visible line above the cursor."
   (interactive)
-  (let ((r (avy--line nil (window-start) (point))))
+  (let* ((avy-all-windows nil)
+         (r (avy--line nil (window-start) (point))))
     (unless (eq r t)
       (avy-action-goto r))))
 
@@ -1074,9 +1075,10 @@ Otherwise, forward to `goto-line' with ARG."
 (defun avy-goto-line-below ()
   "Goto visible line below the cursor."
   (interactive)
-  (let ((r (avy--line
-            nil (point)
-            (window-end (selected-window) t))))
+  (let* ((avy-all-windows nil)
+         (r (avy--line
+             nil (point)
+             (window-end (selected-window) t))))
     (unless (eq r t)
       (avy-action-goto r))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]