%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/ |
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\262G\306\211W\203\366 \211H\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&