(defvar array-respect-tabs))
;;; Internal information functions.
-
+
(defun array-cursor-in-array-range ()
"Return t if the cursor is in a valid array cell.
Its ok to be on a row number line."
(insert array-copy-string))
(move-to-column array-buffer-column)
(setq count (1- count)))))
-
+
(defun array-copy-to-column (a-column)
"Copy current field horizontally into every cell up to and including A-COLUMN.
Leave point at the beginning of the field."
(kill-line 1))
(t
;; Add the row number.
- (insert-string (format "%d:\n" this-row))))
+ (insert (format "%d:\n" this-row))))
;; Deal with the array columns in this row.
(cond
((= old-columns-per-line new-columns-per-line)
Upon entering array mode, you will be prompted for the values of
several variables. Others will be calculated based on the values you
-supply. These variables are all local the the buffer. Other buffer
+supply. These variables are all local to the buffer. Other buffer
in array mode may have different values assigned to the variables.
The variables are:
(provide 'array)
+;;; arch-tag: 0086605d-79fe-4a1a-992a-456417261f80
;;; array.el ends here