# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 851647497 0
# Node ID bbe21b1c17a750f996dbdf4e904a9c0e5d6ba51b
# Parent  e1c2e9a44236d281a1f20330e6495f178f9db62b
(perform-replace): Request integers from match-data,
instead of asking for markers and converting them.

diff -r e1c2e9a44236 -r bbe21b1c17a7 lisp/replace.el
--- a/lisp/replace.el	Thu Dec 26 22:43:17 1996 +0000
+++ b/lisp/replace.el	Fri Dec 27 00:44:57 1996 +0000
@@ -686,12 +686,7 @@
 	      ;; since lots of markers slow down editing.
 	      (setq stack
 		    (cons (cons (point)
-				(or replaced
-				    (mapcar (lambda (elt)
-					      (and elt
-						   (prog1 (marker-position elt)
-						     (set-marker elt nil))))
-				     (match-data))))
+				(or replaced (match-data t)))
 			  stack))))
 	  (setq lastrepl (point)))
       (replace-dehighlight))