mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(perform-replace): Set match-data markers to nil before discarding them.

Browse source
This commit is contained in:
Roland McGrath 1994-03-18 12:16:08 +00:00
parent c5068ec567
commit eab6999727
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/replace.el
View file

@ -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)))))