From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Aug 1994 07:07:39 +0000 (+0000)
Subject: (perform-replace): Restore match data before highlighting.
X-Git-Tag: emacs-19.34~7190
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=301a9d17972ce60d0ecbb6df74a81322c0667f2f;p=emacs.git

(perform-replace): Restore match data before highlighting.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 65818667ede..7c6b8ea257d 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -528,13 +528,13 @@ which will run faster and probably do exactly what you want."
 	      ;; 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