Function: array-move-to-column

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

Signature

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

Documentation

Move to array column A-COLUMN preserving the current array row.

Leave point at the beginning of the field and return the new array column.

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-move-to-column (a-column)
  "Move to array column A-COLUMN preserving the current array row.
Leave point at the beginning of the field and return the new array column."
  ;; Requires that array-buffer-line and array-buffer-column be current.
  (let ((goal-line (+ (- array-buffer-line (% array-buffer-line array-lines-per-row))
		      (if array-rows-numbered 1 0)
		      (floor (1- a-column) array-columns-per-line)))
	(goal-column (* array-field-width (% (1- a-column) array-columns-per-line))))
    (forward-line (- goal-line array-buffer-line))
    (move-to-column-untabify goal-column)
    a-column))