# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778230459 0
# Node ID 341906b946dd6ab8aeeb480ff77fa801a8d089ce
# Parent  3f7bd8c32c9a7b33386350ba30c1caf9e801cc26
(perform-replace): Restore match data before highlighting.

diff -r 3f7bd8c32c9a -r 341906b946dd lisp/replace.el
--- 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