branch: elpa/isl
commit 8e386dc7494d2e569c8cbd663d123a647304beac
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Reorganize
---
isl.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/isl.el b/isl.el
index b3bf81b48aa..776bd555321 100644
--- a/isl.el
+++ b/isl.el
@@ -826,6 +826,14 @@ all align operations you have to exit with RET."
"Return next elm of ITERATOR."
(and iterator (funcall iterator)))
+(defun isl-set-iterator ()
+ "Build `isl--iterator' against `isl--item-overlays' according to context.
+When SKIP-FIRST is specified build iterator with the current overlay
+appended at end."
+ (let* ((lst (memql isl--last-overlay isl--item-overlays))
+ (ovs (nconc lst (nbutlast isl--item-overlays (length lst)))))
+ (setq isl--iterator (isl-iter-circular ovs))))
+
(defun isl-delete-overlays ()
"Cleanup ovelays."
(when isl--item-overlays
@@ -1114,14 +1122,6 @@ See `isl-requires-pattern'."
minimize diff into min
finally return (cdr (assq min res))))
-(defun isl-set-iterator ()
- "Build `isl--iterator' against `isl--item-overlays' according to context.
-When SKIP-FIRST is specified build iterator with the current overlay
-appended at end."
- (let* ((lst (memql isl--last-overlay isl--item-overlays))
- (ovs (nconc lst (nbutlast isl--item-overlays (length lst)))))
- (setq isl--iterator (isl-iter-circular ovs))))
-
(defun isl-check-input ()
"Check minibuffer input."
(with-selected-window (minibuffer-window)
