branch: elpa/isl
commit e79ae12898951511f56b2764d7ba89e2c1e4b2b1
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Rename next to rest
---
isearch-light.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index b26b240d628..87dfc4055c0 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -295,13 +295,13 @@ Optional argument PATTERN default to `isl-pattern'."
(let* ((pattern (isl-patterns str))
(initial (or (assq 'identity pattern)
'(identity . "")))
- (next (cdr pattern)))
+ (rest (cdr pattern)))
(cl-loop while (re-search-forward (cdr initial) nil t)
- for bounds = (if next
+ for bounds = (if rest
(bounds-of-thing-at-point 'symbol)
(cons (match-beginning 0) (match-end 0)))
- if (or (not next)
- (cl-loop for (pred . re) in next
+ if (or (not rest)
+ (cl-loop for (pred . re) in rest
always (funcall pred
(progn (goto-char (car bounds))
(re-search-forward re (cdr
bounds) t)))))
