From eab699972747d1e503ccb69b6de7dfc2e44ff824 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 18 Mar 1994 12:16:08 +0000 Subject: [PATCH] (perform-replace): Set match-data markers to nil before discarding them. --- lisp/replace.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index ab7f2b13ced..eeb0e0951db 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1,6 +1,6 @@ ;;; replace.el --- replace commands for Emacs. -;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 1994 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -573,10 +573,10 @@ which will run faster and probably do exactly what you want." (setq stack (cons (cons (point) (or replaced - (mapcar - (function (lambda (elt) - (and elt - (marker-position elt)))) + (mapcar (lambda (elt) + (and elt + (prog1 (marker-position elt) + (set-marker elt nil)))) (match-data)))) stack)) (if replaced (setq replace-count (1+ replace-count))))) -- 2.39.5