Function: array-copy-to-column

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

Signature

(array-copy-to-column A-COLUMN)

Documentation

Copy current field horizontally into every cell up to and including A-COLUMN.

Leave point at the beginning of the field.

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-copy-to-column (a-column)
  "Copy current field horizontally into every cell up to and including A-COLUMN.
Leave point at the beginning of the field."
  ;; Requires that array-buffer-line, array-buffer-column, array-column, and
  ;;  array-copy-string be current.
  (let* ((num (- a-column array-column))
	 (count (abs num))
	 (sign (if (zerop count) () (/ num count))))
    (while (> count 0)
      (array-move-one-column 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)))))