From bbe9f1755cc18041e60f4d4be48bfa3aceaf1b9d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 20 Nov 2004 22:09:50 +0000 Subject: [PATCH] (query-replace-read-to, query-replace-read-from): Specify t for KEEP-ALL in read-from-minibuffer. --- lisp/replace.el | 4 ++-- 1 file 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." (format "%s: " string)) nil nil nil query-replace-from-history-variable - nil t)))) + nil t t)))) (if (and (zerop (length from)) lastto lastfrom) (cons lastfrom (query-replace-compile-replacement lastto regexp-flag)) @@ -156,7 +156,7 @@ the original string if not." (read-from-minibuffer (format "%s %s with: " string (query-replace-descr from)) nil nil nil - query-replace-to-history-variable from t)) + query-replace-to-history-variable from t t)) regexp-flag)) (defun query-replace-read-args (string regexp-flag &optional noerror) -- 2.39.2