comparison lisp/array.el @ 90182:f042e7c0fe20

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS

90181:0c828e2b0b6f

  (interactive)
  ;; If there is a conflict between array-field-width and init-string, resolve it.
  (let ((check t)
	(len))
    (while check
      (setq array-init-field (read-input "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))
	      (progn (setq array-field-width len)
		     (setq check nil)))

    (while check
      (if (and (>= new-columns-per-line 1)
	       (<= 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
  ;;  because interactive does not have y-or-n-p.
  (cond
   ((eq new-rows-numbered ?y)

  (message ""))

(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'."
  (setq array-rows-numbered
	(or arg (y-or-n-p "Rows numbered? "))))

90182:f042e7c0fe20

  (interactive)
  ;; If there is a conflict between array-field-width and init-string, resolve it.
  (let ((check t)
	(len))
    (while check
      (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))
	      (progn (setq array-field-width len)
		     (setq check nil)))

    (while check
      (if (and (>= new-columns-per-line 1)
	       (<= new-columns-per-line array-max-column))
	  (setq check nil)
	(setq new-columns-per-line
	      (string-to-number
	       (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.
  (cond
   ((eq new-rows-numbered ?y)

  (message ""))

(defun array-init-max-row (&optional arg)
  "Initialize the value of `array-max-row'."
  (setq array-max-row
	(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-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-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-string "Field width: ")))))

(defun array-init-rows-numbered (&optional arg)
  "Initialize the value of `array-rows-numbered'."
  (setq array-rows-numbered
	(or arg (y-or-n-p "Rows numbered? "))))