Function: array-copy-once-horizontally

array-copy-once-horizontally is a byte-compiled function defined in array.el.gz.

Signature

(array-copy-once-horizontally SIGN)

Documentation

Copy the current field into one array column in direction SIGN (1 or -1).

Leave point at the beginning of the field and return the new array column. If requested to move beyond the array bounds, signal an error.

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-copy-once-horizontally (sign)
  "Copy the current field into one array column in direction SIGN (1 or -1).
Leave point at the beginning of the field and return the new array column.
If requested to move beyond the array bounds, signal an error."
  ;; Requires that array-buffer-line, array-buffer-column, and array-copy-string be current.
  (let ((a-column (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)
    a-column))