(perform-replace): Set help-mode in *Help* buffer.

diff --git a/lisp/replace.el b/lisp/replace.el
index 01bf44155e3909c35d3b41dbe1f7cdf3d2e1e5e7..8d49ea4012ebc9c01e8ddda175f2e3ee9d774e97 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -569,7 +569,10 @@ which will run faster and probably do exactly what you want."
                                  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))