branch: elpa/isl
commit 397d9c72cea9099aa4232f7d49131ca3ccf17ebf
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix setting il-search-item-overlays, reverse list one time for all
---
isearch-light.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 98b7dadeafa..65e04a57a27 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -38,7 +38,7 @@
(goto-char (overlay-start ov)))
(message "no more occurences of %s" il-search-pattern)
(sit-for 0.5)
- (setq il-search-iterator (iterator:list (reverse
il-search-item-overlays)))
+ (setq il-search-iterator (iterator:list il-search-item-overlays))
)))))
(defun il-search-goto-next ()
@@ -81,7 +81,8 @@
(setq ov (make-overlay (match-beginning 0) (match-end 0)))
(push ov il-search-item-overlays)
(overlay-put ov 'face '(:background "brown")))
- (setq il-search-iterator (iterator:list (reverse
il-search-item-overlays))))))))
+ (setq il-search-item-overlays (reverse il-search-item-overlays))
+ (setq il-search-iterator (iterator:list
il-search-item-overlays)))))))
(defun il-search-check-input ()
(let ((input (minibuffer-contents)))
@@ -96,7 +97,8 @@
(lambda ()
(setq timer (run-with-idle-timer
0.1 'repeat #'il-search-check-input)))
- (read-from-minibuffer prompt nil il-search-map))
+ (read-from-minibuffer
+ prompt nil il-search-map nil nil (thing-at-point 'symbol)))
(cancel-timer timer))))
(defun il-search-1 ()
