diff options
| author | Richard M. Stallman | 2004-11-20 22:09:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-20 22:09:50 +0000 |
| commit | bbe9f1755cc18041e60f4d4be48bfa3aceaf1b9d (patch) | |
| tree | f0307fd5e9b2e8a6df020b69815f37e55cce1aa9 /lisp/replace.el | |
| parent | 9d00469fcad8a8e99cd65452a2db26fb2d96ed29 (diff) | |
| download | emacs-bbe9f1755cc18041e60f4d4be48bfa3aceaf1b9d.tar.gz emacs-bbe9f1755cc18041e60f4d4be48bfa3aceaf1b9d.zip | |
(query-replace-read-to, query-replace-read-from):
Specify t for KEEP-ALL in read-from-minibuffer.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 0c0ee821c67..97b05cbc80a 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -92,7 +92,7 @@ wants to replace FROM with TO." | |||
| 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)) |
| @@ -156,7 +156,7 @@ the original string if not." | |||
| 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) |