diff options
| -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) |