diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-07-05 22:41:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-07-05 22:41:44 +0000 |
| commit | 665eedc8fac0763fcc205bdf9f4f5771c78d183f (patch) | |
| tree | adad50b63582a35c63b8622960c605c22e21800d /lisp/isearch.el | |
| parent | e91a6794592d8c65dfc9066bfb440f89704139ac (diff) | |
| download | emacs-665eedc8fac0763fcc205bdf9f4f5771c78d183f.tar.gz | |
(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index d30c7c6cc66..6a787f9cc6a 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1062,7 +1062,7 @@ Use `isearch-exit' to quit without signaling." (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 @@ Use `isearch-exit' to quit without signaling." (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) |