Mercurial > emacs
comparison lisp/replace.el @ 58362:0301caf145d2
(query-replace-read-to, query-replace-read-from):
Specify t for KEEP-ALL in read-from-minibuffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 20 Nov 2004 22:09:50 +0000 |
| parents | cf85be0f7afa |
| children | 31d0b9422d7b |
comparison
equal
deleted
inserted
replaced
| 58361:726c49e05ed9 | 58362:0301caf145d2 |
|---|---|
| 90 (query-replace-descr lastfrom) | 90 (query-replace-descr lastfrom) |
| 91 (query-replace-descr lastto)) | 91 (query-replace-descr lastto)) |
| 92 (format "%s: " string)) | 92 (format "%s: " string)) |
| 93 nil nil nil | 93 nil nil nil |
| 94 query-replace-from-history-variable | 94 query-replace-from-history-variable |
| 95 nil t)))) | 95 nil t t)))) |
| 96 (if (and (zerop (length from)) lastto lastfrom) | 96 (if (and (zerop (length from)) lastto lastfrom) |
| 97 (cons lastfrom | 97 (cons lastfrom |
| 98 (query-replace-compile-replacement lastto regexp-flag)) | 98 (query-replace-compile-replacement lastto regexp-flag)) |
| 99 ;; Warn if user types \n or \t, but don't reject the input. | 99 ;; Warn if user types \n or \t, but don't reject the input. |
| 100 (and regexp-flag | 100 (and regexp-flag |
| 154 (query-replace-compile-replacement | 154 (query-replace-compile-replacement |
| 155 (save-excursion | 155 (save-excursion |
| 156 (read-from-minibuffer | 156 (read-from-minibuffer |
| 157 (format "%s %s with: " string (query-replace-descr from)) | 157 (format "%s %s with: " string (query-replace-descr from)) |
| 158 nil nil nil | 158 nil nil nil |
| 159 query-replace-to-history-variable from t)) | 159 query-replace-to-history-variable from t t)) |
| 160 regexp-flag)) | 160 regexp-flag)) |
| 161 | 161 |
| 162 (defun query-replace-read-args (string regexp-flag &optional noerror) | 162 (defun query-replace-read-args (string regexp-flag &optional noerror) |
| 163 (unless noerror | 163 (unless noerror |
| 164 (barf-if-buffer-read-only)) | 164 (barf-if-buffer-read-only)) |