# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784360085 0
# Node ID dc6c0b5fa4f021995b7b949a6672e0fad02fa61b
# Parent  6a9a8abb0b6e4958f5383d27f542bbe3cf501c01
(perform-replace): Set help-mode in *Help* buffer.

diff -r 6a9a8abb0b6e -r dc6c0b5fa4f0 lisp/replace.el
--- a/lisp/replace.el	Wed Nov 09 05:47:20 1994 +0000
+++ b/lisp/replace.el	Wed Nov 09 05:48:05 1994 +0000
@@ -569,7 +569,10 @@
 				  from-string " with "
 				  next-replacement ".\n\n"
 				  (substitute-command-keys
-				   query-replace-help)))))
+				   query-replace-help)))
+			 (save-excursion
+			   (set-buffer standard-output)
+			   (help-mode))))
 		      ((eq def 'exit)
 		       (setq keep-going nil)
 		       (setq done t))