diff options
| author | Stefan Monnier | 2004-07-05 22:41:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-07-05 22:41:44 +0000 |
| commit | 00c8fbf6f62bda11658ea2a8ce324736d5062d8a (patch) | |
| tree | 362dfaddd0818fb59fc2dfbef9c2090b8ead3024 /lisp | |
| parent | 2bac9bb1c6432dc52b16970d94f207c6dc500ed5 (diff) | |
| download | emacs-00c8fbf6f62bda11658ea2a8ce324736d5062d8a.tar.gz emacs-00c8fbf6f62bda11658ea2a8ce324736d5062d8a.zip | |
(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
Diffstat (limited to 'lisp')
| -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." | |||
| 1062 | (defun isearch-query-replace () | 1062 | (defun isearch-query-replace () |
| 1063 | "Start query-replace with string to replace from last search string." | 1063 | "Start query-replace with string to replace from last search string." |
| 1064 | (interactive) | 1064 | (interactive) |
| 1065 | (let ((query-replace-interactive 'initial) | 1065 | (let ((query-replace-interactive t) |
| 1066 | (case-fold-search isearch-case-fold-search)) | 1066 | (case-fold-search isearch-case-fold-search)) |
| 1067 | ;; Put search string into the right ring | 1067 | ;; Put search string into the right ring |
| 1068 | (setq isearch-regexp nil) | 1068 | (setq isearch-regexp nil) |
| @@ -1074,7 +1074,7 @@ Use `isearch-exit' to quit without signaling." | |||
| 1074 | (defun isearch-query-replace-regexp () | 1074 | (defun isearch-query-replace-regexp () |
| 1075 | "Start query-replace-regexp with string to replace from last search string." | 1075 | "Start query-replace-regexp with string to replace from last search string." |
| 1076 | (interactive) | 1076 | (interactive) |
| 1077 | (let ((query-replace-interactive 'initial) | 1077 | (let ((query-replace-interactive t) |
| 1078 | (case-fold-search isearch-case-fold-search)) | 1078 | (case-fold-search isearch-case-fold-search)) |
| 1079 | ;; Put search string into the right ring | 1079 | ;; Put search string into the right ring |
| 1080 | (setq isearch-regexp t) | 1080 | (setq isearch-regexp t) |