Function: array-normalize-cursor

array-normalize-cursor is a byte-compiled function defined in array.el.gz.

Signature

(array-normalize-cursor)

Documentation

Move the cursor to the first non-whitespace character in the field.

If necessary, scroll horizontally to keep the cursor in view.

Source Code

;; Defined in /usr/src/emacs/lisp/array.el.gz
(defun array-normalize-cursor ()
  "Move the cursor to the first non-whitespace character in the field.
If necessary, scroll horizontally to keep the cursor in view."
  ;; Assumes point is at the beginning of the field.
  (let ((array-buffer-column (current-column)))
    (skip-chars-forward " \t"
			(1- (save-excursion (array-end-of-field t) (point))))
    (array-maybe-scroll-horizontally)))