Function: array-copy-column-forward

array-copy-column-forward is an interactive and byte-compiled function defined in array.el.gz.

Signature

(array-copy-column-forward &optional ARG)

Documentation

Copy the entire current column in to the column to the right.

If optional ARG is given, copy through ARG array columns to the right.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-copy-column-forward (&optional arg)
  "Copy the entire current column in to the column to the right.
If optional ARG is given, copy through ARG array columns to the right."
  (interactive "p")
  (array-update-buffer-position)
  (array-update-array-position)
  (if (not array-column)
      (error "Cursor is not in a valid array cell"))
  (message "Working...")
  (let ((this-row 0))
    (while (< this-row array-max-row)
      (setq this-row (1+ this-row))
      (array-move-to-cell this-row array-column)
      (array-update-buffer-position)
      (let ((array-copy-string (array-field-string)))
	(if (= (abs arg) 1)
	    (array-copy-once-horizontally arg)
	  (array-copy-to-column
           (array--limit-index (+ array-column arg) array-max-column))))))
  (message "Working...done")
  (array-move-to-row array-row)
  (array-normalize-cursor))