branch: elpa/isl
commit d271424f055357b8646f07ac7cdc28a418e2a4b1
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use a function for iter-next
funcall only is fine but we want to return nil when iterator is consumed,
this
would not happen though as we use a circular iterator.
---
isearch-light.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/isearch-light.el b/isearch-light.el
index 618829481b2..c38cdf37a1a 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -231,7 +231,9 @@ the initial position i.e. the position before launching
isl."
(setq lis (pcase lis (`(,_ . ,ll) (or ll seq))))
elm))))
-(defalias 'isl-iter-next 'funcall)
+(defun isl-iter-next (iterator)
+ "Return next elm of ITERATOR."
+ (and iterator (funcall iterator)))
(defun isl-delete-overlays ()
"Cleanup ovelays."
