mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(perform-replace): Use `limit' to terminate the while-loop explicitly.

Browse Source
This commit is contained in:
Juri Linkov 2004-06-10 04:21:14 +00:00
parent c9f0110e21
commit 22a76778db
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/replace.el
View File

@ -1132,7 +1132,7 @@ make, or the user didn't cancel the call."
(unwind-protect
;; Loop finding occurrences that perhaps should be replaced.
(while (and keep-going
(not (eobp))
(not (or (eobp) (and limit (>= (point) limit))))
;; Use the next match if it is already known;
;; otherwise, search for a match after moving forward
;; one char if progress is required.
@ -1148,7 +1148,10 @@ make, or the user didn't cancel the call."
;; character too far at the end,
;; but this is undone after the
;; while-loop.
(progn (forward-char 1) (not (eobp))))
(progn
(forward-char 1)
(not (or (eobp)
(and limit (>= (point) limit))))))
(funcall search-function search-string limit t)
;; For speed, use only integers and
;; reuse the list used last time.