Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/tabulated-list.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\313DD\314\304\301\315\316\317\320& \210\307\321\311\312\322DD\323\304\301\315\316\317\320& \210\307\324\311\312\325DD\326\304\301\315\316\317\320& \210\307\327\311\312\330DD\326\304\301\315\316\317\320& \210\331\332\333\334\317\320%\207" [custom-declare-group tabulated-list nil "Tabulated-list customization group." :group convenience display custom-declare-variable tabulated-list-gui-sort-indicator-asc funcall function #[0 "\300\207" [9660] 1] "Indicator for columns sorted in ascending order, for GUI frames.\nSee `tabulated-list-tty-sort-indicator-asc' for the indicator used on\ntext-mode frames." :type character :version "27.1" tabulated-list-gui-sort-indicator-desc #[0 "\300\207" [9650] 1] "Indicator for columns sorted in descending order, for GUI frames.\nSee `tabulated-list-tty-sort-indicator-desc' for the indicator used on\ntext-mode frames." tabulated-list-tty-sort-indicator-asc #[0 "\300\207" [118] 1] "Indicator for columns sorted in ascending order, for text-mode frames.\nSee `tabulated-list-gui-sort-indicator-asc' for the indicator used on GUI\nframes." tabulated-list-tty-sort-indicator-desc #[0 "\300\207" [94] 1] custom-declare-face tabulated-list-fake-header ((t :overline t :underline t :weight bold)) "Face used on fake header lines."] 10)
#@988 The format of the current Tabulated List mode buffer.
This should be a vector of elements (NAME WIDTH SORT . PROPS),
where:
- NAME is a string describing the column.
This is the label for the column in the header line.
Different columns must have non-`equal' names.
- WIDTH is the width to reserve for the column.
For the final element, its numerical value is ignored.
- SORT specifies how to sort entries by this column.
If nil, this column cannot be used for sorting.
If t, sort by comparing the string value printed in the column.
Otherwise, it should be a predicate function suitable for
`sort', accepting arguments with the same form as the elements
of `tabulated-list-entries'.
- PROPS is a plist of additional column properties.
Currently supported properties are:
- `:right-align': If non-nil, the column should be right-aligned.
- `:pad-right': Number of additional padding spaces to the
right of the column (defaults to 1 if omitted).
(defvar tabulated-list-format nil (#$ . 1747))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local tabulated-list-format put permanent-local t] 4)
#@61 Whether the Tabulated List buffer should use a header line.
(defvar tabulated-list-use-header-line t (#$ . 2911))
(make-variable-buffer-local 'tabulated-list-use-header-line)
#@836 Entries displayed in the current Tabulated List buffer.
This should be either a function, or a list.
If a list, each element has the form (ID [DESC1 ... DESCN]),
where:
- ID is nil, or a Lisp object uniquely identifying this entry,
which is used to keep the cursor on the "same" entry when
rearranging the list. Comparison is done with `equal'.
- Each DESC is a column descriptor, one for each column
specified in `tabulated-list-format'. A descriptor is either
a string, which is printed as-is, or a list (LABEL . PROPS),
which means to use `insert-text-button' to insert a text
button with label LABEL and button properties PROPS.
The string, or button label, must not contain any newline.
If `tabulated-list-entries' is a function, it is called with no
arguments and must return a list of the above form.
(defvar tabulated-list-entries nil (#$ . 3093))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local tabulated-list-entries put permanent-local t] 4)
#@176 Number of characters preceding each Tabulated List mode entry.
By default, lines are padded with spaces, but you can use the
function `tabulated-list-put-tag' to change this.
(defvar tabulated-list-padding 0 (#$ . 4108))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local tabulated-list-padding put permanent-local t] 4)
#@113 Hook run before reverting a Tabulated List buffer.
This is commonly used to recompute `tabulated-list-entries'.
(defvar tabulated-list-revert-hook nil (#$ . 4461))
#@234 Function for inserting a Tabulated List entry at point.
It is called with two arguments, ID and COLS. ID is a Lisp
object identifying the entry, and COLS is a vector of column
descriptors, as documented in `tabulated-list-entries'.
(defvar tabulated-list-printer 'tabulated-list-print-entry (#$ . 4632))
(make-variable-buffer-local 'tabulated-list-printer)
#@369 Sort key for the current Tabulated List mode buffer.
If nil, no additional sorting is performed.
Otherwise, this should be a cons cell (NAME . FLIP).
NAME is a string matching one of the column names in
`tabulated-list-format' (the corresponding SORT entry in
`tabulated-list-format' then specifies how to sort). FLIP, if
non-nil, means to invert the resulting sort.
(defvar tabulated-list-sort-key nil (#$ . 4997))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local tabulated-list-sort-key put permanent-local t] 4)
#@185 Return the entry ID of the Tabulated List entry at POS.
The value is an ID object from `tabulated-list-entries', or nil.
POS, if omitted or nil, defaults to point.
(fn &optional POS)
(defalias 'tabulated-list-get-id #[256 "\300\206 `\301\"\207" [get-text-property tabulated-list-id] 4 (#$ . 5547)])
(put 'tabulated-list-get-id 'byte-optimizer 'byte-compile-inline-expand)
#@186 Return the Tabulated List entry at POS.
The value is a vector of column descriptors, or nil if there is
no entry at POS. POS, if omitted or nil, defaults to point.
(fn &optional POS)
(defalias 'tabulated-list-get-entry #[256 "\300\206 `\301\"\207" [get-text-property tabulated-list-entry] 4 (#$ . 5929)])
(put 'tabulated-list-get-entry 'byte-optimizer 'byte-compile-inline-expand)
#@203 Put TAG in the padding area of the current line.
TAG should be a string, with length <= `tabulated-list-padding'.
If ADVANCE is non-nil, move forward by one line afterwards.
(fn TAG &optional ADVANCE)
(defalias 'tabulated-list-put-tag #[513 ";\204 \302\303!\210\304V\204 \302\305!\210\212\306 \210\307\310\206 `\311\"\262\203P `\312u\210\313\314!\211X\203@ \315Z\316\"P\202D \317\"\262!\210\211\\|\210)\210)\211\205W \307y\207" [tabulated-list-padding inhibit-read-only error "Invalid argument to `tabulated-list-put-tag'" 0 "Unable to tag the current line" beginning-of-line nil get-text-property tabulated-list-entry t insert-and-inherit string-width make-string 32 truncate-string-to-width] 9 (#$ . 6321)])
#@61 Clear all tags from the padding area in the current buffer.
(defalias 'tabulated-list-clear-all-tags #[0 "\302V\204\n \303\304!\210\212eb\210\305\306\307S\"\310\311\"\312\313\314#\205) \315!\210\202 )\266\203)\207" [tabulated-list-padding inhibit-read-only 0 error "There can be no tags in current buffer" t format "^ \\{0,%d\\}[^ ]" make-string 32 re-search-forward nil noerror tabulated-list-put-tag] 7 (#$ . 7057)])
#@49 Local keymap for `tabulated-list-mode' buffers.
(defvar tabulated-list-mode-map (byte-code "\302 \303\304 \"\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\211\207" [button-buffer-map special-mode-map make-sparse-keymap set-keymap-parent make-composed-keymap define-key "n" next-line "p" previous-line "S" tabulated-list-sort "}" tabulated-list-widen-current-column "{" tabulated-list-narrow-current-column [follow-link] mouse-face [mouse-2] mouse-select-window] 6) (#$ . 7490))
#@54 Local keymap for `tabulated-list-mode' sort buttons.
(defvar tabulated-list-sort-button-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\310#\210\301\311\312#\210\211\207" [make-sparse-keymap define-key [header-line mouse-1] tabulated-list-col-sort [header-line mouse-2] [mouse-1] [mouse-2] "
" tabulated-list-sort [follow-link] mouse-face] 5) (#$ . 8062))
#@247 Make the `glyphless-char-display' table used for text-mode frames.
This table is used for displaying the sorting indicators, see
variables `tabulated-list-tty-sort-indicator-asc' and
`tabulated-list-tty-sort-indicator-desc' for more information.
(defalias 'tabulated-list-make-glyphless-char-display-table #[0 "\305\300\306\"\307\"\210\211 \306\310\n!BI\210\211 \306\310\f!BI\210\211\207" [glyphless-char-display tabulated-list-gui-sort-indicator-desc tabulated-list-tty-sort-indicator-desc tabulated-list-gui-sort-indicator-asc tabulated-list-tty-sort-indicator-asc make-char-table nil set-char-table-parent char-to-string] 6 (#$ . 8481)])
#@105 Holds the header if `tabulated-list-use-header-line' is nil.
Populated by `tabulated-list-init-header'.
(defvar tabulated-list--header-string nil (#$ . 9131))
(defvar tabulated-list--header-overlay nil)
#@71 Return the width taken by display-line-numbers in the current buffer.
(defalias 'tabulated-list-line-number-width #[0 "\204 \301\207\302p\303\"\304!\203/ \305!r\306\301\307\310\311!\312\"\313$\216\314@\315\"\210\316\317!*\262\2020 \320\207" [display-line-numbers 0 get-buffer-window t window-live-p internal--before-with-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord line-number-display-width columns 4] 8 (#$ . 9340)])
#@51 Set up header line for the Tabulated List buffer.
(defalias 'tabulated-list-init-header #[0 "\306]\307\310\311\312\313 \257\314\n\203 \315 \\\262\316\317\320\321\322E#B\262 G\306\211W\203\366 \211 H\211@A@\323\233\324\325\"\206@ \326\324\327\"\330\f#\3318\204\\ \316\332#\202\240 @\f@\232\203\226 \333\316\331 G\\V\203x \334\202\211 \fA\203\204 \335\336
\"\202\211 \335\336(\"P\337\340\332 &\202\240 \333\316\332 % B\262 \203\326 \341\f@!Z\211\306V\203\325 @\316\342\343\"\320\321\322\\E#
ABB\262\f
\\\262\210\306Y\203\353 \316\317\320\321\322E\337\344% B\262 \262\f\266\211T\262\202& \266\333\345\237\"\262)\203 \211\211*\202\346\347!\210\211\211'\207" [tabulated-list-padding tabulated-list-sort-button-map display-line-numbers tabulated-list-format tabulated-list-sort-key tabulated-list-gui-sort-indicator-desc 0 help-echo "Click to sort by column" mouse-face header-line-highlight keymap nil tabulated-list-line-number-width propertize " " display space :align-to 3 plist-get :pad-right 1 :right-align + 2 tabulated-list-column-name apply "" format " %c" face bold string-width make-string 32 fixed-pitch concat make-local-variable tabulated-list--header-string tabulated-list-gui-sort-indicator-asc tabulated-list-use-header-line header-line-format] 22 (#$ . 9853)])
#@126 Insert a fake Tabulated List "header line" at the start of the buffer.
Do nothing if `tabulated-list--header-string' is nil.
(defalias 'tabulated-list-print-fake-header #[0 "\205* eb\210\303\304\261\210\n\203 \305\ne`#\210\202$ \306\302!\210\307e`\"\310\n\311\312#)\207" [tabulated-list--header-string inhibit-read-only tabulated-list--header-overlay t "\n" move-overlay make-local-variable make-overlay overlay-put face tabulated-list-fake-header] 4 (#$ . 11204)])
#@159 Return non-nil if there is a fake header.
Optional arg POS is a buffer position where to look for a fake header;
defaults to `point-min'.
(fn &optional POS)
(defalias 'tabulated-list-header-overlay-p #[256 "\300\206 e!\207" [overlays-at] 3 (#$ . 11683)])
(put 'tabulated-list-header-overlay-p 'byte-optimizer 'byte-compile-inline-expand)
#@150 The `revert-buffer-function' for `tabulated-list-mode'.
It runs `tabulated-list-revert-hook', then calls `tabulated-list-print'.
(fn &rest IGNORED)
(defalias 'tabulated-list-revert #[128 "\300\301!\204\n \302\303!\210\304\305!\210\306\307!\207" [derived-mode-p tabulated-list-mode error "The current buffer is not in Tabulated List mode" run-hooks tabulated-list-revert-hook tabulated-list-print t] 3 (#$ . 12031) nil])
#@13
(fn NAME)
(defalias 'tabulated-list--column-number #[257 "G\301\302W\203! \211\204! H@\232\203 \262T\262\202 \211\206) \303\304\"\207" [tabulated-list-format 0 nil error "No column named %s"] 7 (#$ . 12458)])
#@225 Return a sorting predicate for the current tabulated-list.
Return nil if `tabulated-list-sort-key' specifies an unsortable
column. Negate the predicate that would be returned if
`tabulated-list-sort-key' has a non-nil cdr.
(defalias 'tabulated-list--get-sorter #[0 "\205C @\205C @\302!\303 H8C\211\242\304=\203+ \211\305\306\307\310\311!\312\"\313\314%\240\210A\203? \305\306\315\310\311!\312\"\316\314%\202A \211\242\266\203\207" [tabulated-list-sort-key tabulated-list-format tabulated-list--column-number 2 t make-byte-code 514 "A@\300HA@\300H;\203 \202 @;\203 \202 @\231\207" vconcat vector [] 6 "\n\n(fn A B)" "\300\242\"\207" 5] 10 (#$ . 12689)])
#@131 Return maximum entry widths at column COL around current row.
Check the current row, the previous one and the next row.
(fn COL)
(defalias 'tabulated-list--col-local-max-widths #[257 "\301\302\303\304\305\306\307\310!\311\"\312\313%\"\"\207" [tabulated-list--near-rows apply max mapcar make-byte-code 257 "\211\300\234\301;\203
\202 @!\207" vconcat vector [string-width] 4 "\n\n(fn X)"] 10 (#$ . 13373)])
(put 'tabulated-list--col-local-max-widths 'byte-optimizer 'byte-compile-inline-expand)
#@768 Populate the current Tabulated List mode buffer.
This sorts the `tabulated-list-entries' list if sorting is
specified by `tabulated-list-sort-key'. It then erases the
buffer and inserts the entries with `tabulated-list-printer'.
Optional argument REMEMBER-POS, if non-nil, means to move point
to the entry with the same ID element as the current line and
recenter window line accordingly.
Non-nil UPDATE argument means to use an alternative printing
method which is faster if most entries haven't changed since the
last print. The only difference in outcome is that tags will not
be removed from entries that haven't changed (see
`tabulated-list-put-tag'). Don't use this immediately after
changing `tabulated-list-sort-key'.
(fn &optional REMEMBER-POS UPDATE)
(defalias 'tabulated-list-print #[512 "\305\306!\203\f \202
\307 \310\211\211\211\203M \310\311\206\" `\312\"\262\211\262\203M i\211\262\203M \313 p=\203M \212\214~\210\314 `}\210eb\210\315\316 !*\262\203Y \317\"\262\306!\204a \203m \204m \310\262\203x eb\210\202\202 \320 \210\n\204\202 \321 \210\203$@\322\323!\311\206\221 `\324\"\262\206\233 \211A@A@A@A@\206\252 A@E\211@\203\276 \232\203\276 \310\262`\262 \203\307 m\203\317 \325\f\"\210\202\310\311\206\326 `\312\"\262\232\203\347 \326y\210\310\202 \211\203\377 \310\311\206\366 `\324\"\262D\"\203\325\f\"\210\310\202 \305\262\203`\326y\210\211`|\266\202\317 )\266A\262\202\202 \327\310!\210\203=b\210\330!\210\211\205?\331!\202?eb)\207" [tabulated-list-entries inhibit-read-only tabulated-list-use-header-line tabulated-list--near-rows tabulated-list-printer t functionp tabulated-list--get-sorter nil get-text-property tabulated-list-id window-buffer window-start vertical-motion buffer-size sort erase-buffer tabulated-list-print-fake-header point-at-bol 0 tabulated-list-entry apply 1 set-buffer-modified-p move-to-column recenter] 19 (#$ . 13882)])
#@207 Insert a Tabulated List entry at point.
This is the default `tabulated-list-printer' function. ID is a
Lisp object identifying the entry to print, and COLS is a vector
of column descriptors.
(fn ID COLS)
(defalias 'tabulated-list-print-entry #[514 "`\304] G\305\304V\203 \306\307\"c\210\310\303!\203 \2061 \311\304!\312\206' `\313\"\262\206/ D\211\304\211W\203N \211\314H#\262\210\211T\262\2024 \266)\315c\210\316`\317\313 F#)\207" [tabulated-list-padding tabulated-list-format inhibit-read-only tabulated-list--near-rows 0 t make-string 32 boundp point-at-bol get-text-property tabulated-list-entry tabulated-list-print-col 10 add-text-properties tabulated-list-id] 12 (#$ . 15843)])
#@237 Insert a specified Tabulated List entry at point.
N is the column number, COL-DESC is a column descriptor (see
`tabulated-list-entries'), and X is the column number at point.
Return the column number after insertion.
(fn N COL-DESC X)
(defalias 'tabulated-list-print-col #[771 "H\211@A@\302\233\303\304\"\206 \305\303\306\";\203\" \202% @\307!@\310Q`\fTGW\311\203w TH\303\302\233\306\"A@ \204s \203s \f\\T\312\313\314\315\316\317\320\321!\322\"\323\324% \"\"\262^Z\202u \f\266\204\203\220 V\203\220 \325\311\211\326\211&\262\211\262\327!\262\203\304 V\203\304 Z\330\331\332\"\333\334\335\\E#c\210\nZ\262
\\\262\210
;\203\343 \336\337\340#\203\327 \202\336 \330\340#c\210\202\354 \312\341A#\210\342
\f#\203\337V\203\331 \332\"c\210\330\331\f\211 ^Z\332\"\333\334\335E#c\210\343`\344$\210\211\262\207" [tabulated-list-format tabulated-list--near-rows 3 plist-get :pad-right 1 :right-align string-width ": " nil apply max mapcar make-byte-code 257 "\211\300\234\301;\203
\202 @!\207" vconcat vector [string-width] 4 "\n\n(fn X)" truncate-string-to-width t bidi-string-mark-left-to-right propertize make-string 32 display space :align-to get-text-property 0 help-echo insert-text-button + put-text-property tabulated-list-column-name] 30 (#$ . 16563)])
#@343 Delete the Tabulated List entry at point.
Return a list (ID COLS), where ID is the ID of the deleted entry
and COLS is a vector of its column descriptors. Move point to
the beginning of the deleted entry. Return nil if there is no
entry at point.
This function only changes the buffer contents; it does not alter
`tabulated-list-entries'.
(defalias 'tabulated-list-delete-entry #[0 "\301\302\206 `\303\"\262\301\302\206 `\304\"\262\305\211\205& \306 \307 T|\210D)\207" [inhibit-read-only nil get-text-property tabulated-list-id tabulated-list-entry t line-beginning-position line-end-position] 5 (#$ . 17923)])
#@499 Change the Tabulated List entry at point, setting COL to DESC.
COL is the column number to change, or the name of the column to change.
DESC is the new column descriptor, which is inserted via
`tabulated-list-print-col'.
If CHANGE-ENTRY-DATA is non-nil, modify the underlying entry data
by setting the appropriate slot of the vector originally used to
print this entry. If `tabulated-list-entries' has a list value,
this is the vector stored within it.
(fn COL DESC &optional CHANGE-ENTRY-DATA)
(defalias 'tabulated-list-set-col #[770 "`\303 \304 \211\305\206\f `\306\"\262\305\206 `\307\"\262\310\311\312 \247\203/ \nH@\262\202H ;\203B \262\313\n!\262\n\202H \314\315 \"\210\204R \314\316\"\210\305\"\232\204x \317\312 $\211\262\203x W\203x \305\"\232\203[ W\205\326 \317\312\n$|\210b\210\320\321!\305\206\226 `\307\"\262\320\322!\305\206\244 `\307\"\262\206\254 E\323\n\ni#\210)\203\303 \n\nI\210\324`\306$\210\324`\307$\210b)\207" [inhibit-read-only tabulated-list-format tabulated-list--near-rows line-end-position line-beginning-position get-text-property tabulated-list-id tabulated-list-entry tabulated-list-column-name t nil tabulated-list--column-number error "Invalid column %s" "No Tabulated List entry at position %s" next-single-property-change point-at-bol 0 2 tabulated-list-print-col put-text-property] 16 (#$ . 18553)])
#@83 Sort Tabulated List entries by the column of the mouse click E.
(fn &optional E)
(defalias 'tabulated-list-col-sort #[256 "\300!\211\211\3018\262\206 \302!\262r\303\211@\262!q\210\304\305\203' A\202* \306!\307@#!)\207" [event-start 7 posn-string window-buffer tabulated-list--sort-by-column-name get-text-property posn-point tabulated-list-column-name] 8 (#$ . 19964) "e"])
#@126 Sort Tabulated List entries by the column at point.
With a numeric prefix argument N, sort the Nth column.
(fn &optional N)
(defalias 'tabulated-list-sort #[256 "\211\203 H@\202 \301`\302\"\303\304\305\306\"\"8\203! \307!\202% \310\311\"\207" [tabulated-list-format get-text-property tabulated-list-column-name 2 assoc append nil tabulated-list--sort-by-column-name user-error "Cannot sort by %s"] 8 (#$ . 20358) "P"])
#@13
(fn NAME)
(defalias 'tabulated-list--sort-by-column-name #[257 "\211\205$ \301\302!\205$ \211@\232\203 \211A?\241\210\202 \211\303B\304 \210\305\306!\207" [tabulated-list-sort-key derived-mode-p tabulated-list-mode nil tabulated-list-init-header tabulated-list-print t] 3 (#$ . 20792)])
#@139 Widen the current tabulated-list column by N chars.
Interactively, N is the prefix numeric argument, and defaults to
1.
(fn &optional N)
(defalias 'tabulated-list-widen-current-column #[256 "iG\301\211\302\211?\205G W\205G HA@\211\262\\\211\262V\203, T\262\202 \303\262H\211A\304\n\\]\240\266\305\303!\210\306 \210\202 \207" [tabulated-list-format 0 nil t 1 tabulated-list-print tabulated-list-init-header] 12 (#$ . 21093) "p"])
#@140 Narrow the current tabulated list column by N chars.
Interactively, N is the prefix numeric argument, and defaults to
1.
(fn &optional N)
(defalias 'tabulated-list-narrow-current-column #[256 "\300[!\207" [tabulated-list-widen-current-column] 3 (#$ . 21551) "p"])
(defvar tabulated-list--current-lnum-width nil)
#@15
(fn WINDOW)
(defalias 'tabulated-list-watch-line-number-width #[257 "\205 \302 U?\205 \303\301!\210\211\304 \262\207" [display-line-numbers tabulated-list--current-lnum-width tabulated-list-line-number-width make-local-variable tabulated-list-init-header] 4 (#$ . 21871)])
#@21
(fn WINDOW START)
(defalias 'tabulated-list-window-scroll-function #[514 "\2051 \302!r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314\315!*\262 U?\205/ \316\301!\210\211\317 \262\207" [display-line-numbers tabulated-list--current-lnum-width internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord line-number-display-width columns make-local-variable tabulated-list-init-header] 9 (#$ . 22159)])
(defvar tabulated-list-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [tabulated-list-mode-hook variable-documentation put "Hook run after entering Tabulated mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tabulated-list-mode-map definition-name tabulated-list-mode] 4)
(defvar tabulated-list-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\322#\207" [tabulated-list-mode-abbrev-table tabulated-list-mode-map variable-documentation put purecopy "Keymap for `tabulated-list-mode'." boundp tabulated-list-mode-syntax-table definition-name tabulated-list-mode (lambda (#1=#:def-tmp-var) (defvar tabulated-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `tabulated-list-mode'." (lambda (#1#) (defvar tabulated-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `tabulated-list-mode'." derived-mode-parent special-mode] 5)
#@1818 Generic major mode for browsing a list of items.
This mode is usually not used directly; instead, other major
modes are derived from it, using `define-derived-mode'.
In this major mode, the buffer is divided into multiple columns,
which are labeled using the header line. Each non-empty line
belongs to one "entry", and the entries can be sorted according
to their column values.
An inheriting mode should usually do the following in their body:
- Set `tabulated-list-format', specifying the column format.
- Set `tabulated-list-revert-hook', if the buffer contents need
to be specially recomputed prior to `revert-buffer'.
- Maybe set a `tabulated-list-entries' function (see below).
- Maybe set `tabulated-list-printer' (see below).
- Maybe set `tabulated-list-padding'.
- Call `tabulated-list-init-header' to initialize `header-line-format'
according to `tabulated-list-format'.
An inheriting mode is usually accompanied by a "list-FOO"
command (e.g. `list-packages', `list-processes'). This command
creates or switches to a buffer and enables the major mode in
that buffer. If `tabulated-list-entries' is not a function, the
command should initialize it to a list of entries for displaying.
Finally, it should call `tabulated-list-print'.
`tabulated-list-print' calls the printer function specified by
`tabulated-list-printer', once for each entry. The default
printer is `tabulated-list-print-entry', but a mode that keeps
data in an ewoc may instead specify a printer function (e.g., one
that calls `ewoc-enter-last'), with `tabulated-list-print-entry'
as the ewoc pretty-printer.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `tabulated-list-mode-hook', as the final or penultimate step
during initialization.
\{tabulated-list-mode-map}
(defalias 'tabulated-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
+=\204R \326
\325+C#\210\327 !\210\330\f!\210
+\306\331!\210\307\306\332!\210\307\306\333!\210\334\306\335!\210\336 \337,\340\341\334\342\307$\210\306\343!\210\344#\340\345\346\342\307$\210\340\347\350\342\307$\210)\351\352!\207" [delay-mode-hooks major-mode mode-name tabulated-list-mode-map tabulated-list-mode-syntax-table tabulated-list-mode-abbrev-table make-local-variable t special-mode tabulated-list-mode "Tabulated" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table truncate-lines buffer-undo-list revert-buffer-function tabulated-list-revert glyphless-char-display tabulated-list-make-glyphless-char-display-table left-to-right add-hook display-line-numbers-mode-hook nil tabulated-list--current-lnum-width 0 pre-redisplay-functions tabulated-list-watch-line-number-width window-scroll-functions tabulated-list-window-scroll-function run-mode-hooks tabulated-list-mode-hook local-abbrev-table bidi-paragraph-direction] 5 (#$ . 23931) nil])
(byte-code "\300\301\302\303#\210\304\305!\207" [put tabulated-list-mode mode-class special provide tabulated-list] 4)
Mini Shell