From 00c8fbf6f62bda11658ea2a8ce324736d5062d8a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 5 Jul 2004 22:41:44 +0000 Subject: [PATCH] (isearch-query-replace, isearch-query-replace-regexp): Use the search string without prompting. --- lisp/isearch.el | 4 ++-- 1 file 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) -- 2.39.2