mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(perform-replace): Prompt now says how to get help.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-12-23 04:40:13 +00:00
parent 12fbf178bb
commit a1c7dec409
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/replace.el
View File

@ -493,7 +493,8 @@ which will run faster and do exactly what you probably want."
;; 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))