From 3716cd0b0253ec352a95e253eb6cea0144557d20 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Sat, 9 May 2015 14:43:52 +0200 Subject: [PATCH] avy-jump.el (avy-goto-subword-0): Update candidate order Re #27 --- avy-jump.el | 10 ++++++---- 1 file 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)