diff options
| author | Juri Linkov <juri@jurta.org> | 2013-06-14 01:08:45 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2013-06-14 01:08:45 +0300 |
| commit | bc5c8c5a6a1956122284468879862b1850dc3b5d (patch) | |
| tree | 751c2a002104c39c5ce15affd28f83e487e49a2c /lisp/replace.el | |
| parent | a22289f7ab658767b2f586aa1f1f794b1470df95 (diff) | |
| download | emacs-bc5c8c5a6a1956122284468879862b1850dc3b5d.tar.gz | |
* lisp/isearch.el (isearch-query-replace): Add " symbol" and other
possible search modes from `isearch-message-prefix' to the prompt.
(isearch-occur): Use `with-isearch-suspended' to not exit Isearch
when reading a regexp to collect.
* lisp/replace.el (perform-replace): Display "symbol " and other search
modes from `isearch-message-prefix' in the *Help* buffer.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 24cfccf60fd..be0ecda20fa 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -2156,7 +2156,10 @@ make, or the user didn't cancel the call." (with-output-to-temp-buffer "*Help*" (princ (concat "Query replacing " - (if delimited-flag "word " "") + (if delimited-flag + (or (and (symbolp delimited-flag) + (get delimited-flag 'isearch-message-prefix)) + "word ") "") (if regexp-flag "regexp " "") from-string " with " next-replacement ".\n\n" |