1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 1cef7ecc52a..c9c70b59de5 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1288,14 +1288,14 @@ passed in.  If LITERAL is set, no checking is done, anyway."
    (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"
                         newtext)
      (setq newtext
-            (read-input "Edit replacement string: "
+            (read-string "Edit replacement string: "
-                        (prog1
+                         (prog1
-                            (cons
+                             (cons
-                             (replace-match "" t t newtext 3)
+                              (replace-match "" t t newtext 3)
-                             (1+ (match-beginning 3)))
+                              (1+ (match-beginning 3)))
-                          (setq match-data
+                           (setq match-data
-                                (replace-match-data
+                                 (replace-match-data
-                                 nil match-data match-data))))
+                                  nil match-data match-data))))
            noedit nil)))
  (set-match-data match-data)
  (replace-match newtext fixedcase literal)
@@ -1571,8 +1571,8 @@ make, or the user didn't cancel the call."
                                                nil real-match-data
                                                real-match-data)
                               next-replacement
-                               (read-input "Edit replacement string: "
+                               (read-string "Edit replacement string: "
-                                           next-replacement)
+                                            next-replacement)
                               noedit nil)
                         (if replaced
                             (set-match-data real-match-data)

diff --git a/lisp/replace.el b/lisp/replace.el index 1cef7ecc52a..c9c70b59de5 100644 --- a/lisp/replace.el +++ b/lisp/replace.el
@@ -1288,14 +1288,14 @@ passed in. If LITERAL is set, no checking is done, anyway."
1288	(while (string-match "\\(\\`\\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"	1288	(while (string-match "\\(\\`\\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"
1289	newtext)	1289	newtext)
1290	(setq newtext	1290	(setq newtext
1291	(read-input "Edit replacement string: "	1291	(read-string "Edit replacement string: "
1292	(prog1	1292	(prog1
1293	(cons	1293	(cons
1294	(replace-match "" t t newtext 3)	1294	(replace-match "" t t newtext 3)
1295	(1+ (match-beginning 3)))	1295	(1+ (match-beginning 3)))
1296	(setq match-data	1296	(setq match-data
1297	(replace-match-data	1297	(replace-match-data
1298	nil match-data match-data))))	1298	nil match-data match-data))))
1299	noedit nil)))	1299	noedit nil)))
1300	(set-match-data match-data)	1300	(set-match-data match-data)
1301	(replace-match newtext fixedcase literal)	1301	(replace-match newtext fixedcase literal)
@@ -1571,8 +1571,8 @@ make, or the user didn't cancel the call."
1571	nil real-match-data	1571	nil real-match-data
1572	real-match-data)	1572	real-match-data)
1573	next-replacement	1573	next-replacement
1574	(read-input "Edit replacement string: "	1574	(read-string "Edit replacement string: "
1575	next-replacement)	1575	next-replacement)
1576	noedit nil)	1576	noedit nil)
1577	(if replaced	1577	(if replaced
1578	(set-match-data real-match-data)	1578	(set-match-data real-match-data)