%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/tab-line.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\303\306\315\310\311&	\210\316\317\320\321\310\311\306\312&\210\316\322\323\324\310\311\306\312&\210\316\325\326\327\310\311\306\312&\210\316\330\331\332\310\311\306\312&\210\316\333\334\335\310\311\306\312&\207" [require seq custom-declare-group tab-line nil "Window-local tabs." :group convenience :version "27.1" tab-line-faces ((tab-line custom-face)) "Faces used in the tab line." faces custom-declare-face tab-line-tab ((default :inherit tab-line) (((class color) (min-colors 88)) :box (:line-width 1 :style released-button)) (t :inverse-video nil)) "Tab line face for selected tab." tab-line-tab-inactive ((default :inherit tab-line-tab) (((class color) (min-colors 88)) :background "grey75") (t :inverse-video t)) "Tab line face for non-selected tab." tab-line-tab-current ((default :inherit tab-line-tab) (((class color) (min-colors 88)) :background "grey85")) "Tab line face for tab with current buffer in selected window." tab-line-highlight ((default :inherit tab-line-tab)) "Tab line face for highlighting." tab-line-close-highlight ((t :foreground "red")) "Tab line face for highlighting of the close button."] 10)
#@47 Local keymap for `tab-line-mode' window tabs.
(defvar tab-line-tab-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\303#\210\211\207" [make-sparse-keymap define-key [tab-line mouse-1] tab-line-select-tab [tab-line mouse-2] tab-line-close-tab "
"] 5) (#$ . 1625))
#@50 Local keymap to add `tab-line-mode' window tabs.
(defvar tab-line-add-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\211\207" [make-sparse-keymap define-key [tab-line mouse-1] tab-line-new-tab [tab-line mouse-2] "
"] 5) (#$ . 1912))
#@52 Local keymap to close `tab-line-mode' window tabs.
(defvar tab-line-tab-close-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key [tab-line mouse-1] tab-line-close-tab [tab-line mouse-2]] 5) (#$ . 2180))
#@65 Local keymap to scroll `tab-line-mode' window tabs to the left.
(defvar tab-line-left-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\211\207" [make-sparse-keymap define-key [tab-line mouse-1] tab-line-hscroll-left [tab-line mouse-2] "
" tab-line-new-tab] 5) (#$ . 2436))
#@66 Local keymap to scroll `tab-line-mode' window tabs to the right.
(defvar tab-line-right-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\211\207" [make-sparse-keymap define-key [tab-line mouse-1] tab-line-hscroll-right [tab-line mouse-2] "
" tab-line-new-tab] 5) (#$ . 2742))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\320\321\322\323\310\311\312\313&
\207" [custom-declare-variable tab-line-new-tab-choice funcall function #[0 "\300\207" [t] 1] "Defines what to show in a new tab.\nIf t, display a selection menu with all available buffers.\nIf the value is a function, call it with no arguments." :type (choice (const :tag "Buffer menu" t) (function :tag "Function")) :group tab-line :version "27.1" tab-line-new-button-show #[0 "\300\207" [t] 1] "If non-nil, show the \"New tab\" button in the tab line." boolean :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default force-mode-line-update] 5 "\n\n(fn SYM VAL)"]] 14)
#@32 Button for creating a new tab.
(defvar tab-line-new-button (propertize " + " 'display '(image :type xpm :file "tabs/new.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-add-map 'mouse-face 'tab-line-highlight 'help-echo "Click to add tab") (#$ . 3788))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable tab-line-close-button-show funcall function #[0 "\300\207" [t] 1] "Defines where to show the close tab button.\nIf t, show the close tab button on all tabs.\nIf `selected', show it only on the selected tab.\nIf `non-selected', show it only on non-selected tab.\nIf nil, don't show it at all." :type (choice (const :tag "On all tabs" t) (const :tag "On selected tab" selected) (const :tag "On non-selected tabs" non-selected) (const :tag "None" nil)) :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default force-mode-line-update] 5 "\n\n(fn SYM VAL)"] :group tab-line :version "27.1"] 14)
#@37 Button for closing the clicked tab.
(defvar tab-line-close-button (propertize " x" 'display '(image :type xpm :file "tabs/close.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-tab-close-map 'mouse-face 'tab-line-close-highlight 'help-echo "Click to close tab") (#$ . 4782))
#@48 Button for scrolling horizontally to the left.
(defvar tab-line-left-button (propertize " <" 'display '(image :type xpm :file "tabs/left-arrow.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-left-map 'mouse-face 'tab-line-highlight 'help-echo "Click to scroll left") (#$ . 5068))
#@49 Button for scrolling horizontally to the right.
(defvar tab-line-right-button (propertize "> " 'display '(image :type xpm :file "tabs/right-arrow.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-right-map 'mouse-face 'tab-line-highlight 'help-echo "Click to scroll right") (#$ . 5360))
#@28 String that delimits tabs.
(defvar tab-line-separator nil (#$ . 5657))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable tab-line-tab-name-function funcall function #[0 "\300\207" [tab-line-tab-name-buffer] 1] "Function to get a tab name.\nFunction gets two arguments: tab to get name for and a list of tabs\nto display.  By default, use function `tab-line-tab-name'." :type (choice (const :tag "Buffer name" tab-line-tab-name-buffer) (const :tag "Truncated buffer name" tab-line-tab-name-truncated-buffer) (function :tag "Function")) :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default force-mode-line-update] 5 "\n\n(fn SYM VAL)"] :group tab-line :version "27.1"] 14)
#@233 Generate tab name from BUFFER.
Reduce tab width proportionally to space taken by other tabs.
This function can be overridden by changing the default value of the
variable `tab-line-tab-name-function'.

(fn BUFFER &optional BUFFERS)
(defalias 'tab-line-tab-name-buffer #[513 "\300!\207" [buffer-name] 4 (#$ . 6429)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable tab-line-tab-name-truncated-max funcall function #[0 "\300\207" [20] 1] "Maximum length of the tab name from the current buffer.\nEffective when `tab-line-tab-name-function' is customized\nto `tab-line-tab-name-truncated-buffer'." :type integer :group tab-line :version "27.1"] 10)
(defvar tab-line-tab-name-ellipsis (byte-code "\300\301!\203\302\207\303\207" [char-displayable-p 8230 "…" "..."] 2))
#@196 Generate tab name from BUFFER.
Truncate it to the length specified by `tab-line-tab-name-truncated-max'.
Append ellipsis `tab-line-tab-name-ellipsis' in this case.

(fn BUFFER &optional BUFFERS)
(defalias 'tab-line-tab-name-truncated-buffer #[513 "\302!\211GW\203\211\202\303\304\305\211	%\306#\207" [tab-line-tab-name-truncated-max tab-line-tab-name-ellipsis buffer-name propertize truncate-string-to-width nil help-echo] 10 (#$ . 7252)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable tab-line-tabs-function funcall function #[0 "\300\207" [tab-line-tabs-window-buffers] 1] "Function to get a list of tabs to display in the tab line.\nThis function should return either a list of buffers whose names will\nbe displayed, or just a list of strings to display in the tab line.\nBy default, use function `tab-line-tabs-window-buffers' that\nreturns a list of buffers associated with the selected window.\nWhen `tab-line-tabs-mode-buffers', return a list of buffers\nwith the same major mode as the current buffer." :type (choice (const :tag "Window buffers" tab-line-tabs-window-buffers) (const :tag "Same mode buffers" tab-line-tabs-mode-buffers) (const :tag "Grouped buffers" tab-line-tabs-buffer-groups) (function :tag "Function")) :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default force-mode-line-update] 5 "\n\n(fn SYM VAL)"] :group tab-line :version "27.1"] 14)
#@124 Function to return a global list of buffers.
Used only for `tab-line-tabs-mode-buffers' and `tab-line-tabs-buffer-groups'.
(defvar tab-line-tabs-buffer-list-function 'tab-line-tabs-buffer-list (#$ . 8734))
(defalias 'tab-line-tabs-buffer-list #[0 "\300\301\302\303pC\304\305\306 \"\307 #!\"\207" [seq-filter #[257 "\300!\205\301!\302H\303U?\207" [buffer-live-p buffer-name 0 32] 3 "\n\n(fn B)"] seq-uniq append mapcar car window-prev-buffers buffer-list] 8])
#@72 Return a list of buffers with the same major mode with current buffer.
(defalias 'tab-line-tabs-mode-buffers #[0 "\302\303\304\305\306\307\310\311\312	!\313\"\314\315%	 \"#\207" [major-mode tab-line-tabs-buffer-list-function seq-sort-by buffer-name string< seq-filter make-byte-code 257 "r\211q\210\301\300!)\207" vconcat vector [derived-mode-p] 3 "\n\n(fn B)"] 11 (#$ . 9203)])
#@157 Function to put a buffer to the group.
Takes a buffer as arg and should return a group name as string.
When the return value is nil, filter out the buffer.
(defvar tab-line-tabs-buffer-group-function nil (#$ . 9591))
#@36 Function to sort buffers in group.
(defvar tab-line-tabs-buffer-group-sort-function nil (#$ . 9814))
#@31 Function to sort group names.
(defvar tab-line-tabs-buffer-groups-sort-function 'string< (#$ . 9921))
#@179 How to group various major modes together in the tab line.
Each element has the form (REGEXP . GROUPNAME).
If the major mode's name string matches REGEXP, use GROUPNAME instead.
(defvar tab-line-tabs-buffer-groups mouse-buffer-menu-mode-groups (#$ . 10030))
#@25 

(fn &optional BUFFER)
(defalias 'tab-line-tabs-buffer-group-name #[256 "\303!\203\n!\207\211\203r\211q\210\304	!)\202\304	!\305\306\307\310\311\312!\313\"\314\315%\n\"A\2061\211\207" [tab-line-tabs-buffer-group-function mode-name tab-line-tabs-buffer-groups functionp format-mode-line seq-find make-byte-code 257 "\211@\300\302\303\304#)\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn GROUP)"] 9 (#$ . 10294)])
(defalias 'tab-line-tabs-buffer-groups #[0 "\303\304\305\"\203, \306	\307\304\310\311\312\313\"\"\"\"\303\304\314\"\310\315\316\317\320\321!\322\"\323\324%\"\207\303\304\314\"\325p!\206<\211\206<\326\232\203H\327\304\314\304#\210\330\331B\332\315\333\334\320\321!\335\"\336$BE\337\315\316\340\320\321!\341\"\342\343% \"\344\n!\203y\306\n\"\202z\211\310\345\"B\207" [tab-line-tabs-buffer-list-function tab-line-tabs-buffer-groups-sort-function tab-line-tabs-buffer-group-sort-function window-parameter nil tab-line-groups seq-sort delq mapcar car seq-group-by #[257 "\300!\207" [tab-line-tabs-buffer-group-name] 3 "\n\n(fn BUFFER)"] tab-line-group make-byte-code 257 "\301\302B\303\300\232B\304\305\306\307\310\311	!\312\"\313$BF\207" vconcat vector [tab name selected select make-byte-code 0 "\301\302\303\302#\210\301\302\304\300#\210\301\302\305\302#\207" vconcat vector [set-window-parameter nil tab-line-groups tab-line-group tab-line-hscroll] 4] 11 "\n\n(fn GROUP)" tab-line-tabs-buffer-group-name "All" set-window-parameter tab name select 0 "\301\302\303\304#\210\301\302\305\300#\210\301\302\306\302#\207" [set-window-parameter nil tab-line-groups t tab-line-group tab-line-hscroll] 4 seq-filter "\301!\300\232\207" [tab-line-tabs-buffer-group-name] 3 "\n\n(fn B)" functionp #[257 "\301\302!B\303p=B\304B\305\306\307\310\311\312\n!\313\"\314\315%B\257\207" [tab-line-tab-name-function tab name selected buffer close make-byte-code 256 "\301\206\300!\207" vconcat vector [kill-buffer] 3 "\n\n(fn &optional B)"] 12 "\n\n(fn BUFFER)"]] 12])
#@292 Return a list of tabs that should be displayed in the tab line.
By default returns a list of window buffers, i.e. buffers previously
shown in the same window where the tab line is displayed.
This list can be overridden by changing the default value of the
variable `tab-line-tabs-function'.
(defalias 'tab-line-tabs-window-buffers #[0 "\300 \301!\302\303\304\305\306\307!\310\"\311\312%\313!\"\314\315\"\302\303\304\305\306\307!\310\"\311\312%\316\317\320!\"\"\314\315\"\321\"\322\323!C#\207" [selected-window window-buffer seq-remove make-byte-code 257 "\211\300=\207" vconcat vector [] 3 "\n\n(fn B)" window-next-buffers seq-filter buffer-live-p mapcar car window-prev-buffers seq-difference append reverse] 11 (#$ . 12347)])
#@66 Template for displaying tab line for selected window.

(fn TABS)
(defalias 'tab-line-format-template #[257 "\306 \206	\203\307\202\310\311\312\313\"\314\315\316\317\320\321			#\322\"\323\324%\"\325\"\211A@\262\326@\204F\205m\312\262\327\312\313#\202m\247\205T\330U?\205T\n\247\203d\331!GSW\202hG\332V\205lE\203y\331!\233\202zC\f\333=\205\217
\205\217\205\217C$\207" [tab-line-separator window-system tab-line-left-button tab-line-right-button tab-line-tabs-function tab-line-new-button-show window-buffer " " "|" window-parameter nil tab-line-hscroll mapcar make-byte-code 257 "\306!\211\203
\301=\202\307\236A\203\300\"\202 \310\236A\302\311\312\211\313\f#\204;\314\236\204;\315\236\203S
\203S
\203I\316\202J\307=\204S\206T\317P\320\321\205_\322\323\n\203u\324 \325 =\203q\326\202v\327\202v\330\331BB\"BB#P\207" vconcat vector [tab-line-tab-name-function tab-line-tab-map tab-line-close-button-show bufferp selected name apply propertize keymap buffer close non-selected "" tab append (selected t) face selected-window old-selected-window tab-line-tab-current tab-line-tab tab-line-tab-inactive (mouse-face tab-line-highlight) tab-line-close-button] 15 "\n\n(fn TAB)" tab-line-auto-hscroll append set-window-parameter 0 truncate 1 tab-line-tabs-window-buffers tab-line-new-button] 13 (#$ . 13098)])
#@55 Template for displaying tab line for selected window.
(defalias 'tab-line-format #[0 " \211\302\303 !\304\305\306\"\307 \310 =F\304\305\311\"	\203:\3128\250\203:\211\203:\211@A@A@\232\204:\313\305\306\314\3128!#\210\211\203J\211@\232\203J\211A\206U\313\305\311\315!B#A\207" [tab-line-tabs-function tab-line-auto-hscroll buffer-name window-buffer window-parameter nil tab-line-hscroll selected-window old-selected-window tab-line-cache 2 set-window-parameter float tab-line-format-template] 9 (#$ . 14497)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable tab-line-auto-hscroll funcall function #[0 "\300\207" [t] 1] "Allow or disallow automatic horizontal scrolling of the tab line.\nNon-nil means the tab line are automatically scrolled horizontally to make\nthe selected tab visible." :type boolean :group tab-line :version "27.1"] 10)
(defvar tab-line-auto-hscroll-buffer (generate-new-buffer " *tab-line-hscroll*"))
#@24 

(fn STRINGS HSCROLL)
(defalias 'tab-line-auto-hscroll #[514 "rq\210\305\306\305\305\307 \210\310\311\"\210eb\210\312ed\313#\210\314\315!\316V\262\f\2033\211\2033\250\2043\317\320\321#\211\2032\247\203J\211\322!W\203\265\307 \210\310\311\323\324	\316T#!\"\210eb\210\312ed\313#\210\314\315!\316V\203\250\325`\326\"\211\205\211\327\326\"\206\211\325\326\"\211\262\205\211\327\326\"\211\205\223\317\330#\211\203\243\331!\262\332\305\333\n#\210\266\2022\305\262\332\305\333#\210\2022\307 \210\310\311\324\322	!T#\"\210eb\210\312ed\313#\210\314\315!\316V\2032\307 \210\310\311\323\324	\316T#!\"\210eb\210\312ed\313#\210\314\315!\316V\2032\325`\326\"\211\205\327\326\"\206\325\326\"\211\262\205\327\326\"\211\205 \317\334#\211\2030\331!\262\332\305\333\n#\210\266\210\211*D\266\203)\207" [tab-line-auto-hscroll-buffer inhibit-modification-hooks truncate-partial-width-windows truncate-lines tab-line-auto-hscroll nil t erase-buffer apply insert add-face-text-property tab-line vertical-motion 1 0 seq-position selected #[514 "\300\301#\207" [get-pos-property 1] 6 "\n\n(fn STR PROP)"] truncate reverse seq-subseq previous-single-property-change tab get-pos-property #[514 "\300\301\302#=\207" [get-pos-property 1 tab] 6 "\n\n(fn STR TAB)"] float set-window-parameter tab-line-hscroll #[514 "\300\301\302#=\207" [get-pos-property 1 tab] 6 "\n\n(fn STR TAB)"]] 13 (#$ . 15486)])
#@29 

(fn &optional ARG WINDOW)
(defalias 'tab-line-hscroll #[512 "\301\302\"\203&\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210 *\262\202( \315\302\305\247\2038\316!\2029\305\206?\317\\GS^]#\210\205N\320\321!\207" [tab-line-tabs-function window-parameter tab-line-hscroll internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord set-window-parameter truncate 1 force-mode-line-update t] 10 (#$ . 16944)])
#@34 

(fn &optional ARG MOUSE-EVENT)
(defalias 'tab-line-hscroll-right #[512 "\211<\205\f\300!\211@\262\301\"\210\302!\207" [event-start tab-line-hscroll force-mode-line-update] 6 (#$ . 17478) (list current-prefix-arg last-nonmenu-event)])
#@34 

(fn &optional ARG MOUSE-EVENT)
(defalias 'tab-line-hscroll-left #[512 "\211<\205\f\300!\211@\262\301\206\302[\"\210\303!\207" [event-start tab-line-hscroll 1 force-mode-line-update] 6 (#$ . 17726) (list current-prefix-arg last-nonmenu-event)])
#@210 Add a new tab to the tab line.
Usually is invoked by clicking on the plus-shaped button.
But any switching to other buffer also adds a new tab
corresponding to the switched buffer.

(fn &optional MOUSE-EVENT)
(defalias 'tab-line-new-tab #[256 "\304!\203	 \207	\211<\203\203\305!\202\306\307 !)\207" [tab-line-new-tab-choice mouse-buffer-menu-mode-groups tab-line-tabs-buffer-groups window-system functionp mouse-buffer-menu tmm-prompt mouse-buffer-menu-keymap] 3 (#$ . 17987) (list last-nonmenu-event)])
#@209 Switch to the selected tab.
This command maintains the original order of prev/next buffers.
So for example, switching to a previous tab is equivalent to
using the `previous-buffer' command.

(fn &optional E)
(defalias 'tab-line-select-tab #[256 "\300!\301\302\303\304!@#\305!\203\211\202\306\236A\211\203(\307\211@\262\"\202V\310\236A\311!\205T\312\211@\262!r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210 \210\324 *\262\262\207" [event-start get-pos-property 1 tab posn-string bufferp buffer tab-line-select-tab-buffer select functionp internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord force-mode-line-update] 12 (#$ . 18510) "e"])
#@32 

(fn BUFFER &optional WINDOW)
(defalias 'tab-line-select-tab-buffer #[513 "\301!\302\303\304\305\306\307!\310\"\311\312%\313!\"\302\303\304\305\306\307!\310\"\311\312%\314\315\316!\"\"\317\"\320=\203[>\203[\321\"T\322\211W\205V\211\323!\266\211T\262\202B\266\202\202\244\320=\203\207>\203\207\321\"T\322\211W\205\202\211\324!\266\211T\262\202n\266\202\202\244\325!r\303\322\326\306\307!\327\"\330$\216\331@\332\"\210\333!*\262\207" [tab-line-tabs-function window-buffer seq-remove make-byte-code 257 "\211\300=\207" vconcat vector [] 3 "\n\n(fn B)" window-next-buffers mapcar car window-prev-buffers seq-difference tab-line-tabs-window-buffers seq-position 0 switch-to-next-buffer switch-to-prev-buffer internal--before-with-selected-window "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord switch-to-buffer] 13 (#$ . 19277)])
#@141 Switch to the previous tab.
Its effect is the same as using the `previous-buffer' command
(\[previous-buffer]).

(fn &optional MOUSE-EVENT)
(defalias 'tab-line-switch-to-prev-tab #[256 "\211<\205\f\301!\211@\262\302=\203\303!\202Y\304\206\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210 \317p\320#S8\321!\203G\211\202K\322\236A\321!\205T\323!\266\203*\262\207" [tab-line-tabs-function event-start tab-line-tabs-window-buffers switch-to-prev-buffer internal--before-with-selected-window selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord seq-position #[514 "\300!\203\n\211=\207\211\301\236A=\207" [bufferp buffer] 5 "\n\n(fn TAB BUFFER)"] bufferp buffer switch-to-buffer] 9 (#$ . 20190) (list last-nonmenu-event)])
#@129 Switch to the next tab.
Its effect is the same as using the `next-buffer' command
(\[next-buffer]).

(fn &optional MOUSE-EVENT)
(defalias 'tab-line-switch-to-next-tab #[256 "\211<\205\f\301!\211@\262\302=\203\303!\202Y\304\206\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210 \317p\320#T8\321!\203G\211\202K\322\236A\321!\205T\323!\266\203*\262\207" [tab-line-tabs-function event-start tab-line-tabs-window-buffers switch-to-next-buffer internal--before-with-selected-window selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord seq-position #[514 "\300!\203\n\211=\207\211\301\236A=\207" [bufferp buffer] 5 "\n\n(fn TAB BUFFER)"] bufferp buffer switch-to-buffer] 9 (#$ . 21027) (list last-nonmenu-event)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable tab-line-close-tab-function funcall function #[0 "\300\207" [bury-buffer] 1] "Defines what to do on closing the tab.\nIf `bury-buffer', put the tab's buffer at the end of the list of all\nbuffers that effectively hides the buffer's tab from the tab line.\nIf `kill-buffer', kills the tab's buffer.\nWhen a function, it is called with the tab as its argument.\nThis option is useful when `tab-line-tabs-function' has the value\n`tab-line-tabs-window-buffers'." :type (choice (const :tag "Bury buffer" bury-buffer) (const :tag "Kill buffer" kill-buffer) (function :tag "Function")) :group tab-line :version "27.1"] 10)
#@210 Close the selected tab.
Usually is invoked by clicking on the close button on the right side
of the tab.  This command buries the buffer, so it goes out of sight
from the tab line.

(fn &optional MOUSE-EVENT)
(defalias 'tab-line-close-tab #[256 "\211<\205\301!\211\205\211\211@\262\302\303\304\305!@#\306!\203#\211\202'\307\236A\306!?\2052\310\236A\311\2069\312 !r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324!\203Y \210\202\221\325\267\202\207\326!\210\202\221p=\203r\327 \210\202\221\330\331\332\333 \"\"\210\334\331\335\336 \"\"\210\202\221\324!\203\221!\210\337 *\262\207" [tab-line-close-tab-function event-start get-pos-property 1 tab posn-string bufferp buffer close internal--before-with-selected-window selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord functionp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (kill-buffer 95 bury-buffer 102)) kill-buffer bury-buffer set-window-prev-buffers nil assq-delete-all window-prev-buffers set-window-next-buffers delq window-next-buffers force-mode-line-update] 13 (#$ . 22564) (list last-nonmenu-event)])
#@95 Non-nil if Tab-Line mode is enabled.
Use the command `tab-line-mode' to change this variable.
(defvar tab-line-mode nil (#$ . 23791))
(make-variable-buffer-local 'tab-line-mode)
#@311 Toggle display of window tab line in the buffer.

If called interactively, enable Tab-Line mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'tab-line-mode #[256 "\302 \303=\203
?\202\304!\305V\211\205\306\307\310\203#\311\202$\312\"\210\313\314!\203H\302 \2038\211\302 \232\203H\315\316\317\203C\320\202D\321#\266\210\322 \210\207" [tab-line-mode tab-line-format current-message toggle prefix-numeric-value 0 (:eval (tab-line-format)) run-hooks tab-line-mode-hook tab-line-mode-on-hook tab-line-mode-off-hook called-interactively-p any " in current buffer" message "Tab-Line mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 23976) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar tab-line-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324&	\207" [tab-line-mode-map tab-line-mode-hook variable-documentation put "Hook run after entering or leaving `tab-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode tab-line-mode nil boundp custom-declare-variable tab-line-exclude-modes funcall function #[0 "\300\207" [(completion-list-mode)] 1] "List of major modes in which the tab line is not enabled." :type (repeat symbol) :group tab-line :version "27.1"] 10)
(defvar tab-line-exclude nil)
(make-variable-buffer-local 'tab-line-exclude)
#@26 Turn on `tab-line-mode'.
(defalias 'tab-line-mode--turn-on #[0 "\303 \206&\304\305 \306\307\310#)\266\203\206&	\n>\206&	\311N\206&\312\311p\"?\205-\313\314!\207" [inhibit-changing-match-data major-mode tab-line-exclude-modes minibufferp "\\` " buffer-name nil t string-match tab-line-exclude buffer-local-value tab-line-mode 1] 7 (#$ . 25657)])
(put 'global-tab-line-mode 'globalized-minor-mode t)
(defvar tab-line-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317\320\321&
\207" [make-variable-buffer-local tab-line-mode-major-mode custom-declare-variable global-tab-line-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Tab-Line mode is enabled.\nSee the `global-tab-line-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-tab-line-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group tab-line :type boolean :version "27.1"] 14)
#@354 Toggle Tab-Line mode in all buffers.
With prefix ARG, enable Global Tab-Line mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.

Tab-Line mode is enabled in all buffers where
`tab-line-mode--turn-on' would do it.
See `tab-line-mode' for more information on Tab-Line mode.

(fn &optional ARG)
(defalias 'global-tab-line-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[	\203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-tab-line-mode tab-line-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-tab-line-mode-enable-in-buffers find-file-hook global-tab-line-mode-check-buffers change-major-mode-hook global-tab-line-mode-cmhh remove-hook buffer-list tab-line-mode--turn-on -1 run-hooks global-tab-line-mode-hook global-tab-line-mode-on-hook global-tab-line-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Tab-Line mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 26750) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-tab-line-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-tab-line-mode-map global-tab-line-mode-hook variable-documentation put "Hook run after entering or leaving `global-tab-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-tab-line-mode nil boundp] 6)
(defvar tab-line-mode-set-explicitly nil nil)
(make-variable-buffer-local 'tab-line-mode-set-explicitly)
(defalias 'tab-line-mode-set-explicitly #[0 "\301\211\207" [tab-line-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put tab-line-mode-set-explicitly definition-name global-tab-line-mode add-hook tab-line-mode-hook] 4)
(defvar global-tab-line-mode-buffers nil)
(defalias 'global-tab-line-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210	\204/\n=\204/\f\203,\304\307!\210\310 \210\202/\310 \210)A\266\202\202\262\207" [global-tab-line-mode-buffers tab-line-mode-set-explicitly tab-line-mode-major-mode major-mode tab-line-mode nil buffer-live-p -1 tab-line-mode--turn-on] 5])
(put 'global-tab-line-mode-enable-in-buffers 'definition-name 'global-tab-line-mode)
(defalias 'global-tab-line-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-tab-line-mode-enable-in-buffers remove-hook post-command-hook global-tab-line-mode-check-buffers] 3])
(put 'global-tab-line-mode-check-buffers 'definition-name 'global-tab-line-mode)
(defalias 'global-tab-line-mode-cmhh #[0 "p\211\235\203\f\210\202\211B\210\301\302\303\"\207" [global-tab-line-mode-buffers add-hook post-command-hook global-tab-line-mode-check-buffers] 3])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\306\"\210\304\312\310\"\210\304\313\314\"\210\304\315\316\"\210\304\317\314\"\210\304\320\316\"\210\321\322!\207" [put global-tab-line-mode-cmhh definition-name global-tab-line-mode global-set-key [tab-line mouse-4] tab-line-hscroll-left [tab-line mouse-5] tab-line-hscroll-right [tab-line wheel-up] [tab-line wheel-down] [tab-line S-mouse-4] tab-line-switch-to-prev-tab [tab-line S-mouse-5] tab-line-switch-to-next-tab [tab-line S-wheel-up] [tab-line S-wheel-down] provide tab-line] 4)

Zerion Mini Shell 1.0