changeset 8664:341906b946dd

(perform-replace): Restore match data before highlighting.
author Richard M. Stallman <rms@gnu.org>
date Tue, 30 Aug 1994 07:07:39 +0000
parents 3f7bd8c32c9a
children f06ea671bacb
files lisp/replace.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Tue Aug 30 07:03:33 1994 +0000
+++ b/lisp/replace.el	Tue Aug 30 07:07:39 1994 +0000
@@ -528,13 +528,13 @@
 	      ;; Loop reading commands until one of them sets done,
 	      ;; which means it has finished handling this occurrence.
 	      (while (not done)
+		(store-match-data real-match-data)
 		(replace-highlight (match-beginning 0) (match-end 0))
 		(message message from-string next-replacement)
 		(setq key (read-event))
 		(setq key (vector key))
 		(setq def (lookup-key map key))
 		;; Restore the match data while we process the command.
-		(store-match-data real-match-data)
 		(cond ((eq def 'help)
 		       (with-output-to-temp-buffer "*Help*"
 			 (princ