From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 5 Jul 2004 22:41:44 +0000 (+0000)
Subject: (isearch-query-replace, isearch-query-replace-regexp):
X-Git-Tag: ttn-vms-21-2-B4~5543
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00c8fbf6f62bda11658ea2a8ce324736d5062d8a;p=emacs.git

(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
---

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)