Mercurial > emacs

diff lisp/replace.el @ 16758:bbe21b1c17a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(perform-replace): Request integers from match-data, instead of asking for markers and converting them.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Dec 1996 00:44:57 +0000
parents cdc897a9054f
children 6de559d0b20f
line wrap: on
line diff
--- 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))