[Emacs-diffs] Changes to emacs/lisp/array.el

[Juanma Barranquero]

Index: emacs/lisp/array.el
diff -c emacs/lisp/array.el:1.22 emacs/lisp/array.el:1.23
*** emacs/lisp/array.el:1.22    Mon Sep  1 15:45:07 2003
--- emacs/lisp/array.el Mon May 16 11:33:45 2005
***************
*** 647,653 ****
               (<= new-columns-per-line array-max-column))
          (setq check nil)
        (setq new-columns-per-line
!             (string-to-int
               (read-input
                (format "Columns per line (1 - %d): " array-max-column)))))))
    ;; Check on new-rows-numbered.  It has to be done this way
--- 647,653 ----
               (<= new-columns-per-line array-max-column))
          (setq check nil)
        (setq new-columns-per-line
!             (string-to-number
               (read-input
                (format "Columns per line (1 - %d): " array-max-column)))))))
    ;; Check on new-rows-numbered.  It has to be done this way
***************
*** 927,948 ****
  (defun array-init-max-row (&optional arg)
    "Initialize the value of `array-max-row'."
    (setq array-max-row
!       (or arg (string-to-int (read-input "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-int (read-input "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-int (read-input "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-int (read-input "Field width: ")))))
  
  (defun array-init-rows-numbered (&optional arg)
    "Initialize the value of `array-rows-numbered'."
--- 927,948 ----
  (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: ")))))
  
  (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: ")))))
  
  (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: ")))))
  
  (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: ")))))
  
  (defun array-init-rows-numbered (&optional arg)
    "Initialize the value of `array-rows-numbered'."