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/array.el | |
| parent | 9432a9de8f1bafad600e330095bd20f2a9113e34 (diff) | |
| download | emacs-3981e5b5f52b39554131132e5e3a428d8508f546.tar.gz | |
Replace `read-input' by `read-string'.
Diffstat (limited to 'lisp/array.el')
| -rw-r--r-- | lisp/array.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/array.el b/lisp/array.el index 56ef9b264de..f65f14ac550 100644 --- a/lisp/array.el +++ b/lisp/array.el @@ -607,7 +607,7 @@ If optional ARG is given, copy through ARG rows up." (let ((check t) (len)) (while check - (setq array-init-field (read-input "Initial field value: ")) + (setq array-init-field (read-string "Initial field value: ")) (setq len (length array-init-field)) (if (/= len array-field-width) (if (y-or-n-p (format "Change field width to %d? " len)) @@ -648,7 +648,7 @@ of array-rows-numbered." (setq check nil) (setq new-columns-per-line (string-to-number - (read-input + (read-string (format "Columns per line (1 - %d): " array-max-column))))))) ;; Check on new-rows-numbered. It has to be done this way ;; because interactive does not have y-or-n-p. @@ -927,22 +927,22 @@ Entering array mode calls the function `array-mode-hook'." (defun array-init-max-row (&optional arg) "Initialize the value of `array-max-row'." (setq array-max-row - (or arg (string-to-number (read-input "Number of array rows: "))))) + (or arg (string-to-number (read-string "Number of array rows: "))))) (defun array-init-max-column (&optional arg) "Initialize the value of `array-max-column'." (setq array-max-column - (or arg (string-to-number (read-input "Number of array columns: "))))) + (or arg (string-to-number (read-string "Number of array columns: "))))) (defun array-init-columns-per-line (&optional arg) "Initialize the value of `array-columns-per-line'." (setq array-columns-per-line - (or arg (string-to-number (read-input "Array columns per line: "))))) + (or arg (string-to-number (read-string "Array columns per line: "))))) (defun array-init-field-width (&optional arg) "Initialize the value of `array-field-width'." (setq array-field-width - (or arg (string-to-number (read-input "Field width: "))))) + (or arg (string-to-number (read-string "Field width: "))))) (defun array-init-rows-numbered (&optional arg) "Initialize the value of `array-rows-numbered'." |