/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.148.2.7 by miles, Tue Jul 6 09:38:17 2004 UTC revision 1.148.2.8 by miles, Tue Jul 6 10:00:04 2004 UTC
# Line 1132  make, or the user didn't cancel the call Line 1132  make, or the user didn't cancel the call
1132      (unwind-protect      (unwind-protect
1133          ;; Loop finding occurrences that perhaps should be replaced.          ;; Loop finding occurrences that perhaps should be replaced.
1134          (while (and keep-going          (while (and keep-going
1135                      (not (eobp))                      (not (or (eobp) (and limit (>= (point) limit))))
1136                      ;; Use the next match if it is already known;                      ;; Use the next match if it is already known;
1137                      ;; otherwise, search for a match after moving forward                      ;; otherwise, search for a match after moving forward
1138                      ;; one char if progress is required.                      ;; one char if progress is required.
# Line 1148  make, or the user didn't cancel the call Line 1148  make, or the user didn't cancel the call
1148                                       ;; character too far at the end,                                       ;; character too far at the end,
1149                                       ;; but this is undone after the                                       ;; but this is undone after the
1150                                       ;; while-loop.                                       ;; while-loop.
1151                                       (progn (forward-char 1) (not (eobp))))                                       (progn
1152                                           (forward-char 1)
1153                                           (not (or (eobp)
1154                                                    (and limit (>= (point) limit))))))
1155                                   (funcall search-function search-string limit t)                                   (funcall search-function search-string limit t)
1156                                   ;; For speed, use only integers and                                   ;; For speed, use only integers and
1157                                   ;; reuse the list used last time.                                   ;; reuse the list used last time.

Legend:
Removed from v.1.148.2.7  
changed lines
  Added in v.1.148.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26