branch: elpa/isl
commit ba32dbf01009ab78da8c8576ad8eb6d7b1b6e700
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Rename isl-make-iterator to isl-make-or-update-iterator
update docstring.
---
isl.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/isl.el b/isl.el
index ace24d1dd59..4b36f335dcd 100644
--- a/isl.el
+++ b/isl.el
@@ -840,8 +840,9 @@ you try to modify other elements externally."
"Return next elm of ITERATOR."
(and iterator (funcall iterator)))
-(defun isl-make-iterator ()
- "Build `isl--iterator' against `isl--item-overlays'."
+(defun isl-make-or-update-iterator ()
+ "Build `isl--iterator' against `isl--item-overlays'.
+If `isl--iterator' is non nil update it otherwise create it."
(let* ((queue (memql isl--last-overlay isl--item-overlays))
(index (- (length isl--item-overlays) (length queue)))
(ovs (append queue (take index isl--item-overlays))))
@@ -1044,7 +1045,7 @@ See `isl-requires-pattern'."
(setq isl--last-overlay (cdr (assq npos ovs-alist))
isl--number-results (max (length isl--item-overlays) 0))
(isl--highlight-last-overlay 'isl-on)
- (isl-make-iterator)
+ (isl-make-or-update-iterator)
(goto-char (overlay-end (isl-iter-next isl--iterator)))
(setq isl--yank-point (point)))))
(isl-setup-mode-line))))
