diff lisp/replace.el @ 62458:2c228409c44d

Replace `read-input' by `read-string'.

--- a/lisp/replace.el	Wed May 18 09:48:34 2005 +0000
+++ b/lisp/replace.el	Wed May 18 10:17:18 2005 +0000
@@ -1288,14 +1288,14 @@
     (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"
 			 newtext)
       (setq newtext
-	    (read-input "Edit replacement string: "
-			(prog1
-			    (cons
-			     (replace-match "" t t newtext 3)
-			     (1+ (match-beginning 3)))
-			  (setq match-data
-				(replace-match-data
-				 nil match-data match-data))))
+	    (read-string "Edit replacement string: "
+                         (prog1
+                             (cons
+                              (replace-match "" t t newtext 3)
+                              (1+ (match-beginning 3)))
+                           (setq match-data
+                                 (replace-match-data
+                                  nil match-data match-data))))
 	    noedit nil)))
   (set-match-data match-data)
   (replace-match newtext fixedcase literal)
@@ -1571,8 +1571,8 @@
 						nil real-match-data
 						real-match-data)
 			       next-replacement
-			       (read-input "Edit replacement string: "
-					   next-replacement)
+			       (read-string "Edit replacement string: "
+                                            next-replacement)
 			       noedit nil)
 			 (if replaced
 			     (set-match-data real-match-data)