Function: array-copy-to-row

array-copy-to-row is a byte-compiled function defined in array.el.gz.

Signature

(array-copy-to-row A-ROW)

Documentation

Copy the current field vertically into every cell up to and including A-ROW.

Leave point at the beginning of the field.

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-copy-to-row (a-row)
  "Copy the current field vertically into every cell up to and including A-ROW.
Leave point at the beginning of the field."
  ;; Requires that array-buffer-line, array-buffer-column, array-row, and
  ;;  array-copy-string be current.
  (let* ((num (- a-row array-row))
	 (count (abs num))
	 (sign (if (zerop count) () (/ num count))))
    (while (> count 0)
      (array-move-one-row sign)
      (array-update-buffer-position)
      (let ((inhibit-quit t))
	(delete-region (point) (save-excursion (array-end-of-field t) (point)))
	(insert array-copy-string))
      (move-to-column array-buffer-column)
      (setq count (1- count)))))