Mercurial > emacs
comparison lisp/isearch.el @ 56349:8d4253b23d7b
(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 05 Jul 2004 22:41:44 +0000 |
| parents | d86ec00a8470 |
| children | f0e5e08dd63e |
comparison
equal
deleted
inserted
replaced
| 56348:550df8e67006 | 56349:8d4253b23d7b |
|---|---|
| 1060 (isearch-update)) | 1060 (isearch-update)) |
| 1061 | 1061 |
| 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) |
| 1069 (isearch-done) | 1069 (isearch-done) |
| 1070 (isearch-clean-overlays) | 1070 (isearch-clean-overlays) |
| 1072 (call-interactively 'query-replace))) | 1072 (call-interactively 'query-replace))) |
| 1073 | 1073 |
| 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) |
| 1081 (isearch-done) | 1081 (isearch-done) |
| 1082 (isearch-clean-overlays) | 1082 (isearch-clean-overlays) |