branch: elpa/isl
commit efa3ab0bc273cbc5122c0bc8a0ef589b89cc907e
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>

    Fix setting iterator without skip-first arg
---
 isearch-light.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/isearch-light.el b/isearch-light.el
index 16f3d1f0fe9..ecc34593a6f 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -298,7 +298,7 @@ appended at end."
          (fwdlst (memql isl--last-overlay revlst))
          (ovlst (append (if skip-first (cdr fwdlst) fwdlst)
                         (butlast revlst (length fwdlst))
-                        (list (car fwdlst)))))
+                        (and skip-first (list (car fwdlst))))))
       (setq isl--iterator (iterator:circular ovlst))))
 
 (defun isl-check-input ()

Reply via email to