mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Use the search string without prompting.
This commit is contained in:
Stefan Monnier 2004-07-05 22:41:44 +00:00
parent 2bac9bb1c6
commit 00c8fbf6f6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/isearch.el
View file

@ -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)