58 |
(defvar array-respect-tabs)) |
(defvar array-respect-tabs)) |
59 |
|
|
60 |
;;; Internal information functions. |
;;; Internal information functions. |
61 |
|
|
62 |
(defun array-cursor-in-array-range () |
(defun array-cursor-in-array-range () |
63 |
"Return t if the cursor is in a valid array cell. |
"Return t if the cursor is in a valid array cell. |
64 |
Its ok to be on a row number line." |
Its ok to be on a row number line." |
385 |
(insert array-copy-string)) |
(insert array-copy-string)) |
386 |
(move-to-column array-buffer-column) |
(move-to-column array-buffer-column) |
387 |
(setq count (1- count))))) |
(setq count (1- count))))) |
388 |
|
|
389 |
(defun array-copy-to-column (a-column) |
(defun array-copy-to-column (a-column) |
390 |
"Copy current field horizontally into every cell up to and including A-COLUMN. |
"Copy current field horizontally into every cell up to and including A-COLUMN. |
391 |
Leave point at the beginning of the field." |
Leave point at the beginning of the field." |