(perform-replace): Request integers from match-data,

instead of asking for markers and converting them.

1 files changed, 1 insertions, 6 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 205c8508090..ed02e051506 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -686,12 +686,7 @@ which will run faster and probably do exactly what you want."
               ;; 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))