branch: elpa/isl
commit f0a3dfdf5c63a9895db2547243930e374b2c70d9
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Consume first member of iterator to ensure *next go
immediately to next elm.
---
isearch-light.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 811029959a9..5ffd8df683d 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -96,8 +96,9 @@
'face '(:foreground "Gray")))
(setq il-search-last-overlay
(il-search-closest-overlay (point) il-search-item-overlays))
- (goto-char (overlay-start il-search-last-overlay))
- (il-search--set-iterator)))))))
+ (overlay-put il-search-last-overlay 'face '(:background "green"))
+ (il-search--set-iterator)
+ (goto-char (overlay-start (iterator:next
il-search-iterator)))))))))
(defun il-search-closest-overlay (pos overlays)
"Return closest overlay from POS in OVERLAYS list."