diff options
| author | Roland McGrath | 1994-03-18 12:16:08 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-03-18 12:16:08 +0000 |
| commit | eab699972747d1e503ccb69b6de7dfc2e44ff824 (patch) | |
| tree | 73b54becbf6458524224f81d329558614a10a74e | |
| parent | c5068ec567412382c10252a05a6b82f6b56f8ed2 (diff) | |
| download | emacs-eab699972747d1e503ccb69b6de7dfc2e44ff824.tar.gz emacs-eab699972747d1e503ccb69b6de7dfc2e44ff824.zip | |
(perform-replace): Set match-data markers to nil before discarding them.
| -rw-r--r-- | lisp/replace.el | 10 |
1 files 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 @@ | |||
| 1 | ;;; replace.el --- replace commands for Emacs. | 1 | ;;; replace.el --- replace commands for Emacs. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985, 1986, 1987, 1992, 1994 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -573,10 +573,10 @@ which will run faster and probably do exactly what you want." | |||
| 573 | (setq stack | 573 | (setq stack |
| 574 | (cons (cons (point) | 574 | (cons (cons (point) |
| 575 | (or replaced | 575 | (or replaced |
| 576 | (mapcar | 576 | (mapcar (lambda (elt) |
| 577 | (function (lambda (elt) | 577 | (and elt |
| 578 | (and elt | 578 | (prog1 (marker-position elt) |
| 579 | (marker-position elt)))) | 579 | (set-marker elt nil)))) |
| 580 | (match-data)))) | 580 | (match-data)))) |
| 581 | stack)) | 581 | stack)) |
| 582 | (if replaced (setq replace-count (1+ replace-count))))) | 582 | (if replaced (setq replace-count (1+ replace-count))))) |