| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/array.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@33 Number of columns in the array.
(defvar array-max-column nil (#$ . 408))
#@35 Number of array columns per line.
(defvar array-columns-per-line nil (#$ . 487))
#@47 Current column number of point in the buffer.
(defvar array-buffer-column nil (#$ . 574))
#@32 Length of a line in the array.
(defvar array-line-length nil (#$ . 670))
#@45 Current line number of point in the buffer.
(defvar array-buffer-line nil (#$ . 749))
#@32 Number of lines per array row.
(defvar array-lines-per-row nil (#$ . 841))
#@30 Number of rows in the array.
(defvar array-max-row nil (#$ . 922))
#@32 Width of a field in the array.
(defvar array-field-width nil (#$ . 995))
#@38 Current array row location of point.
(defvar array-row nil (#$ . 1074))
#@41 Current array column location of point.
(defvar array-column nil (#$ . 1152))
#@34 Are rows numbered in the buffer?
(defvar array-rows-numbered nil (#$ . 1236))
#@36 Current field string being copied.
(defvar array-copy-string nil (#$ . 1320))
#@37 Should TAB conversion be prevented?
(defvar array-respect-tabs nil (#$ . 1404))
#@85 Return t if the cursor is in a valid array cell.
Its ok to be on a row number line.
(defalias 'array-cursor-in-array-range #[nil " \246 \fY\206+
_Y\206+
T\246\306U\205+ \n\306U?\205+ \n _Y)?\207" [array-max-column array-columns-per-line columns-last-line array-buffer-column array-line-length array-buffer-line 0 array-lines-per-row array-max-row array-field-width] 3 (#$ . 1490)])
#@67 Return the array row of the field in which the cursor is located.
(defalias 'array-current-row #[nil "\302 \205\n \303 \"T\207" [array-buffer-line array-lines-per-row array-cursor-in-array-range floor] 3 (#$ . 1890)])
#@70 Return the array column of the field in which the cursor is located.
(defalias 'array-current-column #[nil "\306 \205( \205 \n\246\307U?\205( \203 \n\246S\202! \n\246_\310\f
\"T\\\207" [array-rows-numbered array-buffer-line array-lines-per-row array-columns-per-line array-buffer-column array-field-width array-cursor-in-array-range 0 floor] 4 (#$ . 2115)])
#@138 Set `array-row' and `array-column' to their current values.
Set them to the optional arguments A-ROW and A-COLUMN if those are supplied.
(defalias 'array-update-array-position #[(&optional a-row a-column) "\206 \304 \n\206
\305 \211\207" [a-row array-row a-column array-column array-current-row array-current-column] 2 (#$ . 2488)])
#@76 Set `array-buffer-line' and `array-buffer-column' to their current values.
(defalias 'array-update-buffer-position #[nil "\302 i\211\207" [array-buffer-line array-buffer-column current-line] 2 (#$ . 2832)])
#@63 Display the row and column in which the cursor is positioned.
(defalias 'array-what-position #[nil "\302 i\303\304\305\306 !\305\307 !#*\207" [array-buffer-column array-buffer-line current-line message "Array row: %s Array column: %s" prin1-to-string array-current-row array-current-column] 5 (#$ . 3047) nil])
#@69 Display the current state of the local variables in the minibuffer.
(defalias 'array-display-local-variables #[nil "\306p! r\307\310!q\210p\311 \210\n\312\211\313\211\313 \314 \210\315\316!\210+\211 \317 !\210\320 \210\321\322\323\"!\210\321\322\324\325!!\"!\210\321\322\326\325\"!\"!\210\321\322\327\325#!\"!\210\321\322\330\325$!\"!\210\321\322\331\325%!\"!\210\321\322\332\325&!\"!\210\321\322\333\325'!\"!\334 !\210,\207" [buf default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list buffer-name get-buffer-create "*Local Variables*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook buffer-disable-undo terpri princ format " Buffer: %s\n\n" " max-row: %s\n" prin1-to-string " max-column: %s\n" " columns-per-line: %s\n" " field-width: %s\n" " rows-numbered: %s\n" " lines-per-row: %s\n" " line-length: %s\n" internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output array-max-row array-max-column array-columns-per-line array-field-width array-rows-numbered array-lines-per-row array-line-length] 6 (#$ . 3367) nil])
#@118 Return the column of the beginning of the current field.
Optional argument GO-THERE, if non-nil, means go there too.
(defalias 'array-beginning-of-field #[(&optional go-there) "\211 \246Z \203 \304\n!\202 \n)\207" [array-buffer-column array-field-width goal-column go-there move-to-column-untabify] 3 (#$ . 4572)])
#@114 Return the column of the end of the current array field.
If optional argument GO-THERE is non-nil, go there too.
(defalias 'array-end-of-field #[(&optional go-there) "\211 \246Z \\ \203 \304\n!\202 \n)\207" [array-buffer-column array-field-width goal-column go-there move-to-column-untabify] 3 (#$ . 4898)])
#@128 Move to array row A-ROW and array column A-COLUMN.
Leave point at the beginning of the field and return the new buffer column.
(defalias 'array-move-to-cell #[(a-row a-column) "\306 S_\n\203
\307\202 \310\311 S\f\"#
S\f\246_ \feb\210\fy\210\312 !*\207" [array-lines-per-row a-row array-rows-numbered a-column array-columns-per-line array-field-width + 1 0 floor move-to-column-untabify goal-column goal-line] 6 (#$ . 5217)])
#@134 Move to array row A-ROW preserving the current array column.
Leave point at the beginning of the field and return the new array row.
(defalias 'array-move-to-row #[(a-row) " S_\n\246\\ \211\f\246Z \211 \nZy\210\306
!\210 *\207" [array-lines-per-row a-row array-buffer-line array-buffer-column array-field-width goal-column move-to-column-untabify goal-line] 5 (#$ . 5657)])
#@140 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.
(defalias 'array-move-to-column #[(a-column) "\306\211 \246Z\n\203 \307\202 \310\311 S\f\"#
S\f\246_ \211 \fZy\210\312 !\210 *\207" [array-buffer-line array-lines-per-row array-rows-numbered a-column array-columns-per-line array-field-width + 1 0 floor move-to-column-untabify goal-column goal-line] 7 (#$ . 6041)])
#@184 Move one array row in direction SIGN (1 or -1).
Leave point at the beginning of the field and return the new array row.
If requested to move beyond the array bounds, signal an error.
(defalias 'array-move-one-row #[(sign) "\305 \306 \206\n \307\310!\nU\203 \311U\203 \307\312!\202< \311U\2030 \313U\2030 \307\314!\202< \f_y\210\315 !\210 \\*\207" [array-row goal-column array-max-row sign array-lines-per-row array-beginning-of-field array-current-row error "Cursor is not in a valid array cell" 1 "End of array" -1 "Beginning of array" move-to-column-untabify] 3 (#$ . 6510)])
#@190 Move 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.
(defalias 'array-move-one-column #[(sign) "\305 \206 \306\307!\211 U\203 \n\310U\203 \306\311!\202h \310U\203- \n\312U\203- \306\313!\202h \n\312U\203H \246\310U\203H \312y\210\314\f S_!\210\202e \n\310U\203\\ \246\315U\203\\ \310y\210\202e \314\316 \f\n_\\!\210\n\\)\207" [array-column array-max-column sign array-columns-per-line array-field-width array-current-column error "Cursor is not in a valid array cell" 1 "End of array" -1 "Beginning of array" move-to-column-untabify 0 array-beginning-of-field] 5 (#$ . 7105)])
#@131 Move the cursor to the first non-whitespace character in the field.
If necessary, scroll horizontally to keep the cursor in view.
(defalias 'array-normalize-cursor #[nil "i\301\212\302\303!\210`)Sw\210\304 )\207" [array-buffer-column " " array-end-of-field t array-maybe-scroll-horizontally] 3 (#$ . 7835)])
#@63 If necessary, scroll horizontally to keep the cursor in view.
(defalias 'array-maybe-scroll-horizontally #[nil "\303 \304 \n Y\203 \n \\X\203 \305\2025 \n \\V\203, \306\n Z\307\245Z!\2025 \310 \nZ\307\245\\!*\207" [w-width w-hscroll array-buffer-column window-hscroll window-width nil scroll-left 2 scroll-right] 4 (#$ . 8151)])
#@115 Move down one array row, staying in the current array column.
If optional ARG is given, move down ARG array rows.
(defalias 'array-next-row #[(&optional arg) "\304 i\305\n!\306U\203 \307\n!\210\202$ \310\311\312 \206 \313\314!\n\\ \"!\210*\315 \207" [array-buffer-column array-buffer-line arg array-max-row current-line abs 1 array-move-one-row array-move-to-row limit-index array-current-row error "Cursor is not in an array cell" array-normalize-cursor] 4 (#$ . 8495) "p"])
#@111 Move up one array row, staying in the current array column.
If optional ARG is given, move up ARG array rows.
(defalias 'array-previous-row #[(&optional arg) "\301[!\207" [arg array-next-row] 2 (#$ . 8982) "p"])
#@189 Move forward one field, staying in the current array row.
If optional ARG is given, move forward ARG array columns.
If necessary, keep the cursor in the window by scrolling right or left.
(defalias 'array-forward-column #[(&optional arg) "\304 i\305\n!\306U\203 \307\n!\210\202$ \310\311\312 \206 \313\314!\n\\ \"!\210*\315 \207" [array-buffer-column array-buffer-line arg array-max-column current-line abs 1 array-move-one-column array-move-to-column limit-index array-current-column error "Cursor is not in an array cell" array-normalize-cursor] 4 (#$ . 9202) "p"])
#@191 Move backward one field, staying in the current array row.
If optional ARG is given, move backward ARG array columns.
If necessary, keep the cursor in the window by scrolling right or left.
(defalias 'array-backward-column #[(&optional arg) "\301[!\207" [arg array-forward-column] 2 (#$ . 9781) "p"])
#@50 Go to array row A-ROW and array column A-COLUMN.
(defalias 'array-goto-cell #[(a-row a-column) "\304\305 \"\305\n \"\"\210\306 \207" [a-row array-max-row a-column array-max-column array-move-to-cell limit-index array-normalize-cursor] 5 (#$ . 10089) "nArray row: \nnArray column: "])
#@57 Return the field string at the current cursor location.
(defalias 'array-field-string #[nil "\212\300\301!\210`)\212\302\301!\210`){\207" [array-beginning-of-field t array-end-of-field] 3 (#$ . 10380)])
#@207 Copy the current field into one array row in direction SIGN (1 or -1).
Leave point at the beginning of the field and return the new array row.
If requested to move beyond the array bounds, signal an error.
(defalias 'array-copy-once-vertically #[(sign) "\305!\306`\212\307\306!\210`)|\210 c\210)\310\f!\210 )\207" [sign a-row inhibit-quit array-copy-string array-buffer-column array-move-one-row t array-end-of-field move-to-column] 3 (#$ . 10590)])
#@213 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.
(defalias 'array-copy-once-horizontally #[(sign) "\305!\306 \210\307`\212\310\307!\210`)|\210 c\210)\311\f!\210 )\207" [sign a-column inhibit-quit array-copy-string array-buffer-column array-move-one-column array-update-buffer-position t array-end-of-field move-to-column] 3 (#$ . 11050)])
#@121 Copy the current field vertically into every cell up to and including A-ROW.
Leave point at the beginning of the field.
(defalias 'array-copy-to-row #[(a-row) " Z\306\n!\211\307U?\205 \n \245 \307V\205= \310\f!\210\311 \210\312 `\212\313\312!\210`)|\210
c\210)\314!\210 S\211\202 +\207" [a-row array-row num count sign inhibit-quit abs 0 array-move-one-row array-update-buffer-position t array-end-of-field move-to-column array-copy-string array-buffer-column] 4 (#$ . 11562)])
#@122 Copy current field horizontally into every cell up to and including A-COLUMN.
Leave point at the beginning of the field.
(defalias 'array-copy-to-column #[(a-column) " Z\306\n!\211\307U?\205 \n \245 \307V\205= \310\f!\210\311 \210\312 `\212\313\312!\210`)|\210
c\210)\314!\210 S\211\202 +\207" [a-column array-column num count sign inhibit-quit abs 0 array-move-one-column array-update-buffer-position t array-end-of-field move-to-column array-copy-string array-buffer-column] 4 (#$ . 12057)])
#@101 Copy the current field into the cell at A-ROW, A-COLUMN.
Leave point at the beginning of the field.
(defalias 'array-copy-to-cell #[(a-row a-column) "\304 \"\210\305 \210`\212\306\307!\210`)|\210\nc\210\310 !\207" [a-row a-column array-copy-string array-buffer-column array-move-to-cell array-update-buffer-position array-end-of-field t move-to-column] 3 (#$ . 12568)])
#@104 Copy the current field one array row down.
If optional ARG is given, copy down through ARG array rows.
(defalias 'array-copy-down #[(&optional arg) "\306 i\307 \206
\310\311!\312 \313\f!\314U\203 \315\f!\210\202) \316\317\n\f\\
\"!\210,\320 \207" [array-buffer-line array-buffer-column array-row array-copy-string arg array-max-row current-line array-current-row error "Cursor is not in a valid array cell" array-field-string abs 1 array-copy-once-vertically array-copy-to-row limit-index array-normalize-cursor] 4 (#$ . 12946) "p"])
#@100 Copy the current field one array row up.
If optional ARG is given, copy up through ARG array rows.
(defalias 'array-copy-up #[(&optional arg) "\301[!\207" [arg array-copy-down] 2 (#$ . 13493) "p"])
#@126 Copy the current field one array column to the right.
If optional ARG is given, copy through ARG array columns to the right.
(defalias 'array-copy-forward #[(&optional arg) "\306 i\307 \206
\310\311!\312 \313\f!\314U\203 \315\f!\210\202) \316\317\n\f\\
\"!\210,\320 \207" [array-buffer-line array-buffer-column array-column array-copy-string arg array-max-column current-line array-current-column error "Cursor is not in a valid array cell" array-field-string abs 1 array-copy-once-horizontally array-copy-to-column limit-index array-normalize-cursor] 4 (#$ . 13699) "p"])
#@124 Copy the current field one array column to the left.
If optional ARG is given, copy through ARG array columns to the left.
(defalias 'array-copy-backward #[(&optional arg) "\301[!\207" [arg array-copy-forward] 2 (#$ . 14285) "p"])
#@134 Copy the entire current column in to the column to the right.
If optional ARG is given, copy through ARG array columns to the right.
(defalias 'array-copy-column-forward #[(&optional arg) "\306 \210\307 \210\204 \310\311!\210\312\313!\210\314 \nW\203D T\315 \"\210\306 \210\316 \317\f!\320U\2037 \321\f!\210\202@ \322\323\f\\
\"!\210)\202 )\312\324!\210\325!\210\326 \207" [array-column this-row array-max-row array-copy-string arg array-max-column array-update-buffer-position array-update-array-position error "Cursor is not in a valid array cell" message "Working..." 0 array-move-to-cell array-field-string abs 1 array-copy-once-horizontally array-copy-to-column limit-index "Working...done" array-move-to-row array-normalize-cursor array-row] 4 (#$ . 14524) "p"])
#@120 Copy the entire current column one column to the left.
If optional ARG is given, copy through ARG columns to the left.
(defalias 'array-copy-column-backward #[(&optional arg) "\301[!\207" [arg array-copy-column-forward] 2 (#$ . 15311) "p"])
#@97 Copy the entire current row one row down.
If optional ARG is given, copy through ARG rows down.
(defalias 'array-copy-row-down #[(&optional arg) "\306 \210\307 \210\204 \310\311!\210\312U\203! \313U\203! \310\314!\210\202\250 \nU\2034 \312U\2034 \310\315!\210\202\250 \212\316\312\"\210`)\212\316 \"\210\312y\210`){ \317
\\\n\"\211
Z \320!\211 \321U?\205j \245 \321V\203\233
\\\316
\312\"\210\322 `\212\316
\"\210\312y\210`)|\210\fc\210)S\211\202n \316\206\244 \312\"\210.\323 \207" [array-row arg array-max-row array-max-column array-copy-string this-row array-update-buffer-position array-update-array-position error "Cursor is not in a valid array cell" 1 -1 "Beginning of array" "End of array" array-move-to-cell limit-index abs 0 t array-normalize-cursor goal-row num count sign inhibit-quit array-column] 5 (#$ . 15559) "p"])
#@107 Copy the entire current array row into the row above.
If optional ARG is given, copy through ARG rows up.
(defalias 'array-copy-row-up #[(&optional arg) "\301[!\207" [arg array-copy-row-down] 2 (#$ . 16437) "p"])
#@64 Copy the field at mark into every cell between mark and point.
(defalias 'array-fill-rectangle #[nil "\306 \210\307 \206 \310\311!\312 \206 \310\311!\212\313 \210\306 \210\307 \206\" \310\314!)\212\313 \210\306 \210\312 \2062 \310\314!)\315\316!\210 ^ ]\n^\n] \212\317 \"\210\306 \210\320 ) \321
\"\210\322
\"\210\306 \210\323\f!\210)\317
\"\210`\212\317\f\"\210i\324\325!\210`){ U\204\276 T \317
\"\210\325 `\212\317 \f\"\210i\324\325!\210`)|\210c\210)\202\215 .\315\326!\210\327 \n\",\207" [m-column m-row p-column p-row right-column left-column array-update-buffer-position array-current-row error "Cursor is not in a valid array cell" array-current-column exchange-point-and-mark "Mark is not in a valid array cell" message "Working..." array-move-to-cell array-field-string array-copy-to-cell array-update-array-position array-copy-to-column array-end-of-field t "Working...done" array-goto-cell bottom-row top-row array-copy-string array-buffer-column this-row inhibit-quit] 5 (#$ . 16657) nil])
#@34 Create the template of an array.
(defalias 'array-make-template #[nil "\306\307\211\n\203. \310\311!\211G\211 U\204( \312\313\314 \"!\203 \307\211\202 \307\211\204\n eb\210\315\316!\210\317 \f
X\203} \203H \313\320\f\"c\210\317\211 X\203s c\210\246\321U\203j U\204j \322 \210T\211\202L )\fT\322 \210\2027 )\315\323!\210+\324\317\211\"\207" [init-field len check array-field-width this-row array-max-row t nil read-string "Initial field value: " y-or-n-p format "Change field width to %d? " message "Working..." 1 "%d:\n" 0 newline "Working...done" array-goto-cell array-rows-numbered this-column array-max-column array-columns-per-line] 5 (#$ . 17713) nil])
#@248 Reconfigure the state of `array-rows-numbered' and `array-columns-per-line'.
NEW-COLUMNS-PER-LINE is the desired value of `array-columns-per-line' and
NEW-ROWS-NUMBERED (a character, either ?y or ?n) is the desired value
of `array-rows-numbered'.
(defalias 'array-reconfigure-rows #[(new-columns-per-line new-rows-numbered) "\306\203$ \307Y\203 \nX\203 \310\211\202 \311\312\313\314\n\"!!\202 ) \315\267\2025 \306\2029 \310\2029 \316\317!\320\321!\210\322 \210\323p! \324\325! % &\n '( )* +, -. /0 1\307 2\326 \210\327
ed#\210
q\210eb\2102&X\203 )\203\206 \204\246 )\204\217 \203\246 )\203\237 \204\237 \330\307!\210\202\246 \313\3312\"c\210+ U\203\277 -)\203\270 \307\202\271 \332Zy\210\202\333'S+\"\332\333'S \"\332 3 4 5 656W\203\364 \3345T1_!\210\330\307!\2105T\2115\202\330 \335 \21034W\203\334/ _!\210\336 \2103T\2113\202\371 \307y\210,2T\2112\202w \306 7\fq\210\337 \210\340
!\210 * (/ _0\333'S \" \203F\341\202G\307\\,\3428\206Q\3079\206W\307\"\210)\343
!\210.\n\320\344!\207" [check new-columns-per-line array-max-column new-rows-numbered main-buffer temp-buffer t 1 nil string-to-number read-string format "Columns per line (1 - %d): " #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (121 43 110 48)) y-or-n-p "Rows numbered? " message "Working..." array-update-buffer-position buffer-name generate-new-buffer " *Array*" array-update-array-position copy-to-buffer kill-line "%d:\n" 0 floor move-to-column-untabify beginning-of-line newline erase-buffer insert-buffer-substring 2 array-goto-cell kill-buffer "Working...done" array-max-row temp-max-row temp-max-column array-rows-numbered old-rows-numbered array-columns-per-line old-columns-per-line array-lines-per-row old-lines-per-row array-field-width old-field-width array-line-length old-line-length this-row newlines-added newlines-to-be-added newlines-removed newlines-to-be-removed inhibit-quit array-row array-column] 6 (#$ . 18408) "nColumns per line: \ncRows numbered? (y or n) "])
#@66 Expand the rows so each fits on one line and remove row numbers.
(defalias 'array-expand-rows #[nil "\301\302\"\207" [array-max-column array-reconfigure-rows 110] 3 (#$ . 20468) nil])
(defalias 'limit-index #[(index limit) "\302W\203 \302\207 V\203 \207\207" [index limit 1] 2])
#@64 Return the current buffer line at point. The first line is 0.
(defalias 'current-line #[nil "\300e\301 \"\207" [count-lines line-beginning-position] 3 (#$ . 20760)])
#@78 Move to COLUMN on the current line, untabifying if necessary.
Return COLUMN.
(defalias 'move-to-column-untabify #[(column) "\302!U\203\f \206 \203 \303\304!\207\305 \210\302!\207" [column array-respect-tabs move-to-column error "There is a TAB character in the way" untabify-backward] 3 (#$ . 20933)])
#@29 Untabify the preceding TAB.
(defalias 'untabify-backward #[nil "\212`\301u\210\302`\"*\207" [start -1 untabify] 3 (#$ . 21248)])
#@28 Keymap used in array mode.
(defvar array-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210)\207" [map make-keymap define-key "\341d" array-display-local-variables "\341m" array-make-template "\341e" array-expand-rows "\341r" array-reconfigure-rows "\341=" array-what-position "\341g" array-goto-cell "\341f" array-fill-rectangle "" array-next-row "" array-previous-row "" array-forward-column "" array-backward-column "\356" array-copy-down "\360" array-copy-up "\346" array-copy-forward "\342" array-copy-backward "\216" array-copy-row-down "\220" array-copy-row-up "\206" array-copy-column-forward "\202" array-copy-column-backward] 4) (#$ . 21385))
(put 'array-mode 'mode-class 'special)
(defvar array-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [array-mode-hook variable-documentation put "Hook run after entering Array mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp array-mode-map definition-name array-mode] 4)
(defvar array-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [array-mode-abbrev-table array-mode-map variable-documentation put purecopy "Keymap for `array-mode'." boundp array-mode-syntax-table definition-name array-mode (lambda (#1=#:def-tmp-var) (defvar array-mode-syntax-table #1#)) make-syntax-table "Syntax table for `array-mode'." (lambda (#1#) (defvar array-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `array-mode'." derived-mode-parent] 5)
#@3019 Major mode for editing arrays.
Array mode is a specialized mode for editing arrays. An array is
considered to be a two-dimensional set of strings. The strings are
NOT recognized as integers or real numbers.
The array MUST reside at the top of the buffer.
TABs are not respected, and may be converted into spaces at any time.
Setting the variable `array-respect-tabs' to non-nil will prevent TAB conversion,
but will cause many functions to give errors if they encounter one.
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 to the buffer. Other buffer
in array mode may have different values assigned to the variables.
The variables are:
Variables you assign:
array-max-row: The number of rows in the array.
array-max-column: The number of columns in the array.
array-columns-per-line: The number of columns in the array per line of buffer.
array-field-width: The width of each field, in characters.
array-rows-numbered: A logical variable describing whether to ignore
row numbers in the buffer.
Variables which are calculated:
array-line-length: The number of characters in a buffer line.
array-lines-per-row: The number of buffer lines used to display each row.
The following commands are available (an asterisk indicates it may
take a numeric prefix argument):
* \<array-mode-map>\[array-forward-column] Move forward one column.
* \[array-backward-column] Move backward one column.
* \[array-next-row] Move down one row.
* \[array-previous-row] Move up one row.
* \[array-copy-forward] Copy the current field into the column to the right.
* \[array-copy-backward] Copy the current field into the column to the left.
* \[array-copy-down] Copy the current field into the row below.
* \[array-copy-up] Copy the current field into the row above.
* \[array-copy-column-forward] Copy the current column into the column to the right.
* \[array-copy-column-backward] Copy the current column into the column to the left.
* \[array-copy-row-down] Copy the current row into the row below.
* \[array-copy-row-up] Copy the current row into the row above.
\[array-fill-rectangle] Copy the field at mark into every cell with row and column
between that of point and mark.
\[array-what-position] Display the current array row and column.
\[array-goto-cell] Go to a particular array cell.
\[array-make-template] Make a template for a new array.
\[array-reconfigure-rows] Reconfigure the array.
\[array-expand-rows] Expand the array (remove row numbers and
newlines inside rows)
\[array-display-local-variables] Display the current values of local variables.
Entering array mode calls the function `array-mode-hook'.
(defalias 'array-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
,\306\315!\210\306\316!\210\306\317!\210\306\320!\210\306\321!\210\306\322!\210\323\306\324!\210\325\326!\306\327!\210\325\330!\306\331!\210\325\332!\306\333!\210\325\334!\306\335!\210\336\337! \306\340!\210_ \306\341!\210\342S\" \203 \343\202\200 \344\\!\345\346!\210\347 \210\306\350!\210\307(\351-)\352\353!\207" [delay-mode-hooks major-mode mode-name array-mode-map array-mode-syntax-table array-mode-abbrev-table make-local-variable t kill-all-local-variables array-mode "Array" use-local-map set-syntax-table array-buffer-line array-buffer-column array-row array-column array-copy-string array-respect-tabs nil array-max-row read-number "Number of array rows: " array-max-column "Number of array columns: " array-columns-per-line "Array columns per line: " array-field-width "Field width: " array-rows-numbered y-or-n-p "Rows numbered? " array-line-length array-lines-per-row floor 2 1 message "" force-mode-line-update truncate-lines overwrite-mode-textual run-mode-hooks array-mode-hook local-abbrev-table overwrite-mode] 3 (#$ . 23522) nil])
(provide 'array)