1062 |
(defun isearch-query-replace () |
(defun isearch-query-replace () |
1063 |
"Start query-replace with string to replace from last search string." |
"Start query-replace with string to replace from last search string." |
1064 |
(interactive) |
(interactive) |
1065 |
(let ((query-replace-interactive 'initial) |
(let ((query-replace-interactive t) |
1066 |
(case-fold-search isearch-case-fold-search)) |
(case-fold-search isearch-case-fold-search)) |
1067 |
;; Put search string into the right ring |
;; Put search string into the right ring |
1068 |
(setq isearch-regexp nil) |
(setq isearch-regexp nil) |
1074 |
(defun isearch-query-replace-regexp () |
(defun isearch-query-replace-regexp () |
1075 |
"Start query-replace-regexp with string to replace from last search string." |
"Start query-replace-regexp with string to replace from last search string." |
1076 |
(interactive) |
(interactive) |
1077 |
(let ((query-replace-interactive 'initial) |
(let ((query-replace-interactive t) |
1078 |
(case-fold-search isearch-case-fold-search)) |
(case-fold-search isearch-case-fold-search)) |
1079 |
;; Put search string into the right ring |
;; Put search string into the right ring |
1080 |
(setq isearch-regexp t) |
(setq isearch-regexp t) |