# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864408851 0
# Node ID a7579056d62e1d2836ecbd14429591bbdce8bbd9
# Parent  78a128b99e053cb15ccce3a3864e51f1a24cc40b
(perform-replace): Restore match data after read-event.

diff -r 78a128b99e05 -r a7579056d62e lisp/replace.el
--- a/lisp/replace.el	Fri May 23 17:33:32 1997 +0000
+++ b/lisp/replace.el	Fri May 23 17:34:11 1997 +0000
@@ -646,6 +646,9 @@
 		(let ((message-log-max nil))
 		  (message message from-string next-replacement))
 		(setq key (read-event))
+		;; Necessary in case something happens during read-event
+		;; that clobbers the match data.
+		(store-match-data real-match-data)
 		(setq key (vector key))
 		(setq def (lookup-key map key))
 		;; Restore the match data while we process the command.