# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756621613 0
# Node ID 1b3421a9f072461b32f9593ace5de996aea6fd65
# Parent  969ebd50eb72f33bef94cf5fda79063936317a51
(perform-replace): Prompt now says how to get help.

diff -r 969ebd50eb72 -r 1b3421a9f072 lisp/replace.el
--- a/lisp/replace.el	Thu Dec 23 04:39:33 1993 +0000
+++ b/lisp/replace.el	Thu Dec 23 04:40:13 1993 +0000
@@ -493,7 +493,8 @@
 	  ;; Loop reading commands until one of them sets done,
 	  ;; which means it has finished handling this occurrence.
 	  (while (not done)
-	    (message "Query replacing %s with %s: "
+	    (message (substitute-command-keys
+		      "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) ")
 		     from-string next-replacement)
 	    (setq key (read-event))
 	    (setq key (vector key))