# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 867216602 0
# Node ID 393843d18becfb8d98c68b760079770e5405f9ad
# Parent  83a349d63da62f4657ec331c67cc7a7d78fafd46
(perform-replace): When matching lookahead, use markers rather than
integers, since a replacement may invalidate integers.

diff -r 83a349d63da6 -r 393843d18bec lisp/replace.el
--- a/lisp/replace.el	Wed Jun 25 05:07:36 1997 +0000
+++ b/lisp/replace.el	Wed Jun 25 05:30:02 1997 +0000
@@ -630,7 +630,7 @@
 		(and nonempty-match
 		     (or (not regexp-flag)
 			 (and (looking-at search-string)
-			      (match-data t)))))
+			      (match-data)))))
 
 	  ;; If time for a change, advance to next replacement string.
 	  (if (and (listp replacements)
@@ -727,7 +727,7 @@
 		       ;; can match again just after this match.
 		       (if (and regexp-flag nonempty-match)
 			   (setq match-again (and (looking-at search-string)
-						  (match-data t)))))
+						  (match-data)))))
 		      ((eq def 'delete-and-edit)
 		       (delete-region (match-beginning 0) (match-end 0))
 		       (store-match-data