diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-18 10:17:18 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-18 10:17:18 +0000 |
| commit | 3981e5b5f52b39554131132e5e3a428d8508f546 (patch) | |
| tree | 5885a5b2ece5c94d20a4b52593bcc122ba309489 /lisp/replace.el | |
| parent | 9432a9de8f1bafad600e330095bd20f2a9113e34 (diff) | |
| download | emacs-3981e5b5f52b39554131132e5e3a428d8508f546.tar.gz | |
Replace `read-input' by `read-string'.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 20 |
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: " - (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 @@ make, or the user didn't cancel the call." 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) |