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

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

[elpa] master 3716cd0 03/36: avy-jump.el (avy-goto-subword-0): Update ca


From: Oleh Krehel
Subject: [elpa] master 3716cd0 03/36: avy-jump.el (avy-goto-subword-0): Update candidate order
Date: Tue, 19 May 2015 12:38:07 +0000

branch: master
commit 3716cd0b0253ec352a95e253eb6cea0144557d20
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy-jump.el (avy-goto-subword-0): Update candidate order
    
    Re #27
---
 avy-jump.el |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/avy-jump.el b/avy-jump.el
index ad1e125..125c821 100644
--- a/avy-jump.el
+++ b/avy-jump.el
@@ -419,17 +419,19 @@ should return true."
     (let ((case-fold-search nil)
           candidates)
       (avy-dowindows arg
-        (let ((ws (window-start)))
+        (let ((ws (window-start))
+              window-cands)
           (save-excursion
             (goto-char (window-end (selected-window) t))
             (subword-backward)
             (while (> (point) ws)
               (when (or (null predicate)
                         (and predicate (funcall predicate)))
-                (push (cons (point) (selected-window)) candidates))
-              (subword-backward)))))
+                (push (cons (point) (selected-window)) window-cands))
+              (subword-backward)))
+          (setq candidates (nconc candidates window-cands))))
       (avy--goto
-       (avy--process (nreverse candidates) (avy--style-fn avy-style))))))
+       (avy--process candidates (avy--style-fn avy-style))))))
 
 ;;;###autoload
 (defun avy-goto-subword-1 (&optional arg)



reply via email to

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