[Emacs-diffs] Changes to emacs/lisp/replace.el

[Juri Linkov]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.171 emacs/lisp/replace.el:1.172
*** emacs/lisp/replace.el:1.171 Sun May 30 21:50:35 2004
--- emacs/lisp/replace.el       Thu Jun 10 04:21:14 2004
***************
*** 1132,1138 ****
      (unwind-protect
        ;; Loop finding occurrences that perhaps should be replaced.
        (while (and keep-going
!                   (not (eobp))
                    ;; Use the next match if it is already known;
                    ;; otherwise, search for a match after moving forward
                    ;; one char if progress is required.
--- 1132,1138 ----
      (unwind-protect
        ;; Loop finding occurrences that perhaps should be replaced.
        (while (and keep-going
!                   (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,1154 ****
                                     ;; character too far at the end,
                                     ;; but this is undone after the
                                     ;; while-loop.
!                                    (progn (forward-char 1) (not (eobp))))
                                 (funcall search-function search-string limit t)
                                 ;; For speed, use only integers and
                                 ;; reuse the list used last time.
--- 1148,1157 ----
                                     ;; character too far at the end,
                                     ;; but this is undone after the
                                     ;; while-loop.
!                                    (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.