# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1100988590 0
# Node ID 0301caf145d2975b64ded1b00ecdd5fe9f76e1de
# Parent  726c49e05ed9cd69349d22cbb7b0c8b072216f74
(query-replace-read-to, query-replace-read-from):
Specify t for KEEP-ALL in read-from-minibuffer.

diff -r 726c49e05ed9 -r 0301caf145d2 lisp/replace.el
--- a/lisp/replace.el	Sat Nov 20 22:09:16 2004 +0000
+++ b/lisp/replace.el	Sat Nov 20 22:09:50 2004 +0000
@@ -92,7 +92,7 @@
 		 (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 @@
      (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)