emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/replace.el [lexbind]
Date: Tue, 06 Jul 2004 07:09:10 -0400

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.148.2.7 emacs/lisp/replace.el:1.148.2.8
*** emacs/lisp/replace.el:1.148.2.7     Tue Jul  6 09:38:17 2004
--- emacs/lisp/replace.el       Tue Jul  6 10:00:04 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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]