Mercurial > emacs
changeset 56349:8d4253b23d7b
(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 05 Jul 2004 22:41:44 +0000 |
| parents | 550df8e67006 |
| children | cae4ae1c68a9 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon Jul 05 07:01:02 2004 +0000 +++ b/lisp/isearch.el Mon Jul 05 22:41:44 2004 +0000 @@ -1062,7 +1062,7 @@ (defun isearch-query-replace () "Start query-replace with string to replace from last search string." (interactive) - (let ((query-replace-interactive 'initial) + (let ((query-replace-interactive t) (case-fold-search isearch-case-fold-search)) ;; Put search string into the right ring (setq isearch-regexp nil) @@ -1074,7 +1074,7 @@ (defun isearch-query-replace-regexp () "Start query-replace-regexp with string to replace from last search string." (interactive) - (let ((query-replace-interactive 'initial) + (let ((query-replace-interactive t) (case-fold-search isearch-case-fold-search)) ;; Put search string into the right ring (setq isearch-regexp t)