(isearch-query-replace, isearch-query-replace-regexp):

Use the search string without prompting.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index d30c7c6cc664c28ea5807f698d9aab305d5cf4ba..6a787f9cc6a500e832942a259d13ccd16c80d4cb 100644 (file)
--- 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)