Commit 10ddc30e authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(replace-match-data): Pass RESEAT arg `t' to

match-data to unchain markers in match-data.
parent 7df73b0d
......@@ -1268,12 +1268,7 @@ but coerced to the correct value of INTEGERS."
(and (eq new reuse)
(eq (null integers) (markerp (car reuse)))
new)))
(match-data integers
(prog1 reuse
(while reuse
(if (markerp (car reuse))
(set-marker (car reuse) nil))
(setq reuse (cdr reuse)))))))
(match-data integers reuse t)))
(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data)
"Make a replacement with `replace-match', editing `\\?'.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment