From: Paul Eggert <eggert@twinsun.com>
Date: Wed, 25 Jun 1997 05:30:02 +0000 (+0000)
Subject: (perform-replace): When matching lookahead, use markers rather than
X-Git-Tag: emacs-20.1~1503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=937ab68f833ac77bf7d78e2803dc6b79001703f8;p=emacs.git

(perform-replace): When matching lookahead, use markers rather than
integers, since a replacement may invalidate integers.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 2f3fb9a6fe6..f0dc0fc1cea 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -630,7 +630,7 @@ which will run faster and probably do exactly what you want."
 		(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 @@ which will run faster and probably do exactly what you want."
 		       ;; 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