branch: elpa/isl
commit 5d7782033ba54c0304eacd1bea06479e94496016
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix delimitation when jumping to iedit
---
isl.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/isl.el b/isl.el
index b07071e7f68..5140ec1387a 100644
--- a/isl.el
+++ b/isl.el
@@ -650,7 +650,8 @@ Arguments OCCURRENCE-REGEXP, BEG and END have same meaning
as in
(save-excursion
(save-selected-window
(goto-char beg)
- (while (setq bounds (isl-multi-search-fwd occurrence-regexp end t))
+ (while (and (setq bounds (isl-multi-search-fwd occurrence-regexp end
t))
+ (not (>= (point) end)))
(let ((beginning (car bounds))
(ending (cdr bounds)))
(if (and (> length 0) (/= (- ending beginning) length))
@@ -690,7 +691,7 @@ Arguments OCCURRENCE-REGEXP, BEG and END have same meaning
as in
(progn
(setq result
(catch 'not-same-length
- (iedit-start regexp (point-min) (point-max))))
+ (iedit-start regexp isl--beginning isl--end)))
(cond ((not iedit-occurrences-overlays)
(message "No matches found for %s" regexp)
(iedit-done))
