tabbar.elc

;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:33 2014
;;; from file /home/shant/.emacs.d/tabbar.el
;;; in Emacs version 24.3.1
;;; 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.

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


(defconst tabbar-version "2.0")
(byte-code "\300\301\302\303\304\305%\210\306\307\302\310\304\301\311\312&\210\306\313\314\315\304\301\311\316&\207" [custom-declare-group tabbar nil "Display a tab bar in the header line." :group convenience custom-declare-variable tabbar-cycle-scope "*Specify the scope of cyclic navigation through tabs.\nThe following scopes are possible:\n\n- `tabs'\n    Navigate through visible tabs only.\n- `groups'\n    Navigate through tab groups only.\n- default\n    Navigate through visible tabs, then through tab groups." :type (choice :tag "Cycle through..." (const :tag "Visible Tabs Only" tabs) (const :tag "Tab Groups Only" groups) (const :tag "Visible Tabs then Tab Groups" nil)) tabbar-auto-scroll-flag t "*Non-nil means to automatically scroll the tab bar.\nThat is, when a tab is selected outside of the tab bar visible area,\nthe tab bar is scrolled horizontally so the selected tab becomes\nvisible." boolean] 8)
#@207 List of functions to be called before displaying the tab bar.
Those functions are called one by one, with no arguments, until one of
them returns a non-nil value, and thus, prevents to display the tab
bar.
(defvar tabbar-inhibit-functions '(tabbar-default-inhibit-function) (#$ . 1456))
#@111 Function called with no argument to obtain the current tab set.
This is the tab set displayed on the tab bar.
(defvar tabbar-current-tabset-function nil (#$ . 1750))
#@118 Function that obtains a tab label displayed on the tab bar.
The function is passed a tab and should return a string.
(defvar tabbar-tab-label-function nil (#$ . 1923))
#@114 Function that select a tab.
The function is passed a mouse event and a tab, and should make it the
selected tab.
(defvar tabbar-select-tab-function nil (#$ . 2098))
#@190 Function to obtain a help string for a tab.
The help string is displayed when the mouse is onto the button.  The
function is passed the tab and should return a help string or nil for
none.
(defvar tabbar-help-on-tab-function nil (#$ . 2270))
#@148 Function that obtains a button label displayed on the tab bar.
The function is passed a button name should return a propertized
string to display.
(defvar tabbar-button-label-function nil (#$ . 2519))
#@108 Function called when clicking on the tab bar home button.
The function is passed the mouse event received.
(defvar tabbar-home-function nil (#$ . 2727))
#@169 Function to obtain a help string for the tab bar home button.
The help string is displayed when the mouse is onto the button.
The function is called with no arguments.
(defvar tabbar-home-help-function nil (#$ . 2887))
#@165 Function that scrolls tabs on left.
The function is passed the mouse event received when clicking on the
scroll left button.  It should scroll the current tab set.
(defvar tabbar-scroll-left-function 'tabbar-scroll-left (#$ . 3113))
#@168 Function to obtain a help string for the scroll left button.
The help string is displayed when the mouse is onto the button.
The function is called with no arguments.
(defvar tabbar-scroll-left-help-function 'tabbar-scroll-left-help (#$ . 3353))
#@167 Function that scrolls tabs on right.
The function is passed the mouse event received when clicking on the
scroll right button.  It should scroll the current tab set.
(defvar tabbar-scroll-right-function 'tabbar-scroll-right (#$ . 3606))
#@169 Function to obtain a help string for the scroll right button.
The help string is displayed when the mouse is onto the button.
The function is called with no arguments.
(defvar tabbar-scroll-right-help-function 'tabbar-scroll-right-help (#$ . 3850))
(byte-code "\300\301\302\303!\203\f\304\202
\305\"\207" [defalias tabbar-display-update fboundp force-window-update #[nil "\300\301 !\207" [force-window-update selected-window] 2] force-mode-line-update] 4)
#@49 Return non-nil if EVENT is a mouse click event.
(defalias 'tabbar-click-p #[(event) "\301\302!>\207" [event click event-modifiers] 3 (#$ . 4314)])
(put 'tabbar-click-p 'byte-optimizer 'byte-compile-inline-expand)
#@355 Return a shortened string from STR that fits in the given display WIDTH.
WIDTH is specified in terms of character display width in the current
buffer; see also `char-width'.  If STR display width is greater than
WIDTH, STR is truncated and an ellipsis string "..." is inserted at
end or in the middle of the returned string, depending on available
room.
(defalias 'tabbar-shorten #[(str width) "G\306!\307\306!\310\211
\nX\203\202\265\fX\203D
W\203<
\311
H!\\
T
\202$\310
O\202\265\312\fZ\313\245\211!\203y\fZ
W\203o
\311
H!\\
T
\202W\310
OP\202\265
\nW\203\220
\311
H!\\
T
\202y
\f\\\211W\203\252	S
\311	H!\\\211\202\225\310
O	\314OQ.\207" [str n sw el ew w string-width "..." 0 char-width zerop 2 nil i width] 6 (#$ . 4535)])
#@79 Return a new tab with value OBJECT.
TABSET is the tab set the tab belongs to.
(defalias 'tabbar-make-tab #[(object tabset) "	B\207" [object tabset] 2 (#$ . 5340)])
(put 'tabbar-make-tab 'byte-optimizer 'byte-compile-inline-expand)
#@30 Return the value of tab TAB.
(defalias 'tabbar-tab-value #[(tab) "@\207" [tab] 1 (#$ . 5578)])
(put 'tabbar-tab-value 'byte-optimizer 'byte-compile-inline-expand)
#@36 Return the tab set TAB belongs to.
(defalias 'tabbar-tab-tabset #[(tab) "A\207" [tab] 1 (#$ . 5748)])
(put 'tabbar-tab-tabset 'byte-optimizer 'byte-compile-inline-expand)
#@21 The tab sets store.
(defvar tabbar-tabsets nil (#$ . 5926))
#@43 The special tab set of existing tab sets.
(defvar tabbar-tabsets-tabset nil (#$ . 5992))
#@49 The tab set currently displayed on the tab bar.
(defvar tabbar-current-tabset nil (#$ . 6087))
(make-variable-buffer-local 'tabbar-current-tabset)
#@106 Hook run after tab bar data has been initialized.
You should use this hook to initialize dependent data.
(defvar tabbar-init-hook nil (#$ . 6241))
#@31 Initialize the tab set store.
(defalias 'tabbar-init-tabsets-store #[nil "\302\303\304\"\305\306!\307	\310\304#\210\311\312!\207" [tabbar-tabsets tabbar-tabsets-tabset make-vector 31 0 make-symbol "tabbar-tabsets-tabset" put start run-hooks tabbar-init-hook] 4 (#$ . 6394)])
(put 'tabbar-init-tabsets-store 'byte-optimizer 'byte-compile-inline-expand)
#@95 Hook run after tab bar data has been freed.
You should use this hook to reset dependent data.
(defvar tabbar-quit-hook nil (#$ . 6754))
#@25 Free the tab set store.
(defalias 'tabbar-free-tabsets-store #[nil "\302\211\303\304!\207" [tabbar-tabsets tabbar-tabsets-tabset nil run-hooks tabbar-quit-hook] 3 (#$ . 6896)])
(byte-code "\303\304\305\306#\210\307\310\311\312!\311\313!\311\314!\315\nC\316\317	C\320\321\322\302\315C\323\324\nE	EED\325BBE	FF+\"\207" [tabset result function put tabbar-free-tabsets-store byte-optimizer byte-compile-inline-expand defalias tabbar-map-tabsets make-symbol "function" "result" "tabset" lambda "Apply FUNCTION to each tab set, and make a list of the results.\nThe result is a list just as long as the number of existing tab sets." let if tabbar-tabsets mapatoms push funcall (tabbar-tabsets)] 17)
#@111 Make a new tab set whose name is the string NAME.
It is initialized with tabs build from the list of OBJECTS.
(defalias 'tabbar-make-tabset #[(name &rest objects) "\305	\"\306\307\"\n\fL\210\310\n\311\f@#\210\310\n\312\313#\210\n*\207" [name tabbar-tabsets tabset objects tabs intern mapcar #[(object) "	\211	*B\207" [object tabset] 3] put select start 0] 4 (#$ . 7602)])
#@76 Return the tab set whose name is the string NAME.
Return nil if not found.
(defalias 'tabbar-get-tabset #[(name) "\302	\"\207" [name tabbar-tabsets intern-soft] 3 (#$ . 7987)])
(put 'tabbar-get-tabset 'byte-optimizer 'byte-compile-inline-expand)
#@72 Delete the tab set TABSET.
That is, remove it from the tab sets store.
(defalias 'tabbar-delete-tabset #[(tabset) "\302	\"\207" [tabset tabbar-tabsets unintern] 3 (#$ . 8240)])
(put 'tabbar-delete-tabset 'byte-optimizer 'byte-compile-inline-expand)
#@36 Return the list of tabs in TABSET.
(defalias 'tabbar-tabs #[(tabset) "J\207" [tabset] 1 (#$ . 8496)])
(put 'tabbar-tabs 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return the list of tab values in TABSET.
(defalias 'tabbar-tab-values #[(tabset) "\301\302\211J)\"\207" [tabset mapcar tabbar-tab-value] 4 (#$ . 8668)])
(put 'tabbar-tab-values 'byte-optimizer 'byte-compile-inline-expand)
#@90 Search for a tab with value OBJECT in TABSET.
Return the tab found, or nil if not found.
(defalias 'tabbar-get-tab #[(object tabset) "\302	\211J)\"\207" [object tabset assoc] 4 (#$ . 8898)])
(put 'tabbar-get-tab 'byte-optimizer 'byte-compile-inline-expand)
#@37 Return non-nil if TAB is in TABSET.
(defalias 'tabbar-member #[(tab tabset) "\211A)	=\206	\211J)>\207" [tab tabset] 3 (#$ . 9163)])
(put 'tabbar-member 'byte-optimizer 'byte-compile-inline-expand)
#@124 Return the cached visual representation of TABSET.
That is, a `header-line-format' template, or nil if the cache is
empty.
(defalias 'tabbar-template #[(tabset) "\301N\207" [tabset template] 2 (#$ . 9373)])
(put 'tabbar-template 'byte-optimizer 'byte-compile-inline-expand)
#@146 Set the cached visual representation of TABSET to TEMPLATE.
TEMPLATE must be a valid `header-line-format' template, or nil to
cleanup the cache.
(defalias 'tabbar-set-template #[(tabset template) "\302\301	#\207" [tabset template put] 4 (#$ . 9655)])
(put 'tabbar-set-template 'byte-optimizer 'byte-compile-inline-expand)
#@36 Return the tab selected in TABSET.
(defalias 'tabbar-selected-tab #[(tabset) "\301N\207" [tabset select] 2 (#$ . 9984)])
(put 'tabbar-selected-tab 'byte-optimizer 'byte-compile-inline-expand)
#@49 Return the value of the tab selected in TABSET.
(defalias 'tabbar-selected-value #[(tabset) "\211\302N)\211@)\207" [tabset tab select] 3 (#$ . 10183)])
(put 'tabbar-selected-value 'byte-optimizer 'byte-compile-inline-expand)
#@54 Return non-nil if TAB is the selected tab in TABSET.
(defalias 'tabbar-selected-p #[(tab tabset) "	\211\302N)=\207" [tab tabset select] 4 (#$ . 10417)])
(put 'tabbar-selected-p 'byte-optimizer 'byte-compile-inline-expand)
(defvar tabbar--track-selected nil)
#@118 Make TAB the selected tab in TABSET.
Does nothing if TAB is not found in TABSET.
Return TAB if selected, nil if not.
(defalias 'tabbar-select-tab #[(tab tabset) "	\211\211A)	=\206	\211J)>*\205:	\211	\211\305N+=\2045	\306\307	\302\n#*\210\307	\305#\207" [tab tabset template tabbar-auto-scroll-flag tabbar--track-selected select nil put] 5 (#$ . 10684)])
(put 'tabbar-select-tab 'byte-optimizer 'byte-compile-inline-expand)
#@182 Make the tab with value OBJECT, the selected tab in TABSET.
Does nothing if a tab with value OBJECT is not found in TABSET.
Return the tab selected, or nil if nothing was selected.
(defalias 'tabbar-select-tab-value #[(object tabset) "	\306	\211J)\"*	\211	\211\211A)	=\206%\n	\211J)>*\205J\n	\211	\211\307N+=\204E	\310\311	\303#*\210\f\311	\307\n#*\207" [object tabset tab template tabbar-auto-scroll-flag tabbar--track-selected assoc select nil put] 5 (#$ . 11133)])
(put 'tabbar-select-tab-value 'byte-optimizer 'byte-compile-inline-expand)
#@54 Return the index of the first visible tab in TABSET.
(defalias 'tabbar-start #[(tabset) "\301N\207" [tabset start] 2 (#$ . 11703)])
(put 'tabbar-start 'byte-optimizer 'byte-compile-inline-expand)
#@109 Return the list of visible tabs in TABSET.
That is, the sub-list of tabs starting at the first visible one.
(defalias 'tabbar-view #[(tabset) "\211\301N)\211J)\233\207" [tabset start] 3 (#$ . 11907)])
(put 'tabbar-view 'byte-optimizer 'byte-compile-inline-expand)
#@222 Add to TABSET a tab with value OBJECT if there isn't one there yet.
If the tab is added, it is added at the beginning of the tab list,
unless the optional argument APPEND is non-nil, in which case it is
added at the end.
(defalias 'tabbar-add-tab #[(tabset object &optional append) "\211J)\n\306\n\211J)\"*\203	\202@\n\211*B\307\310\304\f#*\210
\203;\305	C\"\202>	BL))\207" [tabset tabs object tab template append assoc nil put] 5 (#$ . 12182)])
#@30 Remove TAB from its tab set.
(defalias 'tabbar-delete-tab #[(tab) "\211A)\211\211J)	\211\306N)=\211\205\n>A	\307\310	\305
#*\210\311\n\"\203{\f\2069\312\n!@	\211	\211\211A)	=\206R	\211J)>*\205y	\211	\211\306N+=\204t	\307\310	\305
#*\210\f\310	\306#*\210	\nL,\207" [tab tabset tabs sel next template select nil put delq last tabbar-auto-scroll-flag tabbar--track-selected] 5 (#$ . 12659)])
#@142 Scroll the visible tabs in TABSET of COUNT units.
If COUNT is positive move the view on right.  If COUNT is negative,
move the view on left.
(defalias 'tabbar-scroll #[(tabset count) "\304\211\302N)	\\]\211J)GS^\211\211\302N)U?\205/\305\306\303#*\210\306\302\n#)\207" [tabset count start template 0 nil put] 5 (#$ . 13094)])
#@153 Search in TABSET for the tab after TAB.
If optional argument BEFORE is non-nil, search for the tab before
TAB.  Return the tab found, or nil otherwise.
(defalias 'tabbar-tab-next #[(tabset tab &optional before) "\305	\211J)\211\203\n@=\204\n@\nA\211\204\f\n\205,\f\203)\202,\nA@*\207" [last tabset tabs tab before nil] 3 (#$ . 13440)])
#@217 Return the tab set currently displayed on the tab bar.
If optional argument UPDATE is non-nil, call the user defined function
`tabbar-current-tabset-function' to obtain it.  Otherwise return the
current cached copy.
(defalias 'tabbar-current-tabset #[(&optional update) "\203	\203	 \n\207" [update tabbar-current-tabset-function tabbar-current-tabset] 1 (#$ . 13798)])
#@59 Return the tab set of selected tabs in existing tab sets.
(defalias 'tabbar-get-tabsets-tabset #[nil "\303\304!L\210\305\306\"\210\307\310\n\301	#*\210\207" [tabbar-tabsets-tabset template tabset tabbar-map-tabsets tabbar-selected-tab tabbar-scroll 0 nil put] 4 (#$ . 14179)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\330\331\332\333\304\305\334\335&\207" [custom-declare-face tabbar-default ((((class color grayscale) (background dark)) :inherit variable-pitch :height 0.8 :foreground "grey75" :background "gray50") (((class mono) (background light)) :inherit variable-pitch :height 0.8 :foreground "black" :background "white") (((class mono) (background dark)) :inherit variable-pitch :height 0.8 :foreground "white" :background "black") (t :inherit variable-pitch :height 0.8 :foreground "gray50" :background "gray75")) "Default face used in the tab bar." :group tabbar tabbar-unselected ((t :inherit tabbar-default :box (:line-width 1 :color "white" :style released-button))) "Face used for unselected tabs." tabbar-selected ((t :inherit tabbar-default :box (:line-width 1 :color "white" :style pressed-button) :foreground "blue")) "Face used for the selected tab." tabbar-highlight ((t :underline t)) "Face used to highlight a tab during mouse-overs." tabbar-separator ((t :inherit tabbar-default)) "Face used for separators between tabs." tabbar-button ((t :inherit tabbar-default :box (:line-width 1 :color "white" :style released-button))) "Face used for tab bar buttons." tabbar-button-highlight ((t :inherit tabbar-default)) "Face used to highlight a button during mouse-overs." custom-declare-variable tabbar-background-color nil "*Background color of the tab bar.\nBy default, use the background color specified for the\n`tabbar-default' face (or inherited from another face), or the\nbackground color of the `default' face otherwise." :type (choice (const :tag "Default" nil) (color))] 8)
#@45 Return the background color of the tab bar.
(defalias 'tabbar-background-color #[nil "\206%\303\304	!\211\204#\305\306	\307\"\211!\204\310\304	!\211\203\n*\207" [tabbar-background-color face color tabbar-default face-background facep face-attribute :inherit default] 5 (#$ . 16269)])
(put 'tabbar-background-color 'byte-optimizer 'byte-compile-inline-expand)
#@495 Widget for editing a tab bar button.
A button is specified as a pair (ENABLED-BUTTON . DISABLED-BUTTON),
where ENABLED-BUTTON and DISABLED-BUTTON specify the value used when
the button is respectively enabled and disabled.  Each button value is
a pair (STRING . IMAGE) where STRING is a string value, and IMAGE a
list of image specifications.
If IMAGE is non-nil, try to use that image, else use STRING.
If only the ENABLED-BUTTON image is provided, a DISABLED-BUTTON image
is derived from it.
(defconst tabbar-button-widget '(cons (cons :tag "Enabled" (string) (repeat :tag "Image" :extra-offset 2 (restricted-sexp :tag "Spec" :match-alternatives (listp)))) (cons :tag "Disabled" (string) (repeat :tag "Image" :extra-offset 2 (restricted-sexp :tag "Spec" :match-alternatives (listp))))) (#$ . 16647))
#@27 Value of the home button.
(defvar tabbar-home-button-value nil (#$ . 17455))
#@44 Default image for the enabled home button.
(defconst tabbar-home-button-enabled-image '((:type pbm :data "P2 13 13 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0\n6 0 255 255 255 255 255 255 255 255 255 255 9 130 9 255 255 255 255\n255 255 255 255 255 255 26 130 26 255 255 255 255 255 255 255 0 9 26\n41 130 41 26 9 0 255 255 255 255 5 145 140 135 130 125 120 115 5 255\n255 255 255 0 9 26 41 130 41 26 9 0 255 255 255 255 255 255 255 26 130\n26 255 255 255 255 255 255 255 255 255 255 9 130 9 255 255 255 255 255\n255 255 255 255 255 0 6 0 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255\n")) (#$ . 17538))
#@45 Default image for the disabled home button.
(defconst tabbar-home-button-disabled-image '((:type pbm :data "P2 13 13 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 0 0 1 2 3 2 1 0 0 255 255 255 255 0 132 128 123 119 114 110\n106 0 255 255 255 255 0 0 1 2 3 2 1 0 0 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 255\n")) (#$ . 18315))
#@84 The home button.
The variable `tabbar-button-widget' gives details on this widget.
(custom-declare-variable 'tabbar-home-button '(cons (cons "[o]" tabbar-home-button-enabled-image) (cons "[x]" tabbar-home-button-disabled-image)) '(#$ . 19106) :group 'tabbar :type tabbar-button-widget :set '(lambda (variable value) (custom-set-default variable value) (setq tabbar-home-button-value nil)))
#@34 Value of the scroll left button.
(defvar tabbar-scroll-left-button-value nil (#$ . 19502))
#@112 Default image for the enabled scroll left button.
A disabled button image will be automatically build from it.
(defconst tabbar-scroll-left-button-enabled-image '((:type pbm :data "P2 13 13 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255 128 16 48 255 255 255 255 255 255 255\n255 144 28 86 128 0 255 255 255 255 255 255 160 44 92 159 135 113 0\n255 255 255 255 160 44 97 165 144 129 120 117 0 255 255 176 44 98 175\n174 146 127 126 127 128 0 255 255 0 160 184 156 143 136 134 135 137\n138 0 255 255 176 32 67 144 146 144 145 146 148 149 0 255 255 255 255\n160 42 75 140 154 158 159 160 0 255 255 255 255 255 255 160 40 74 154\n170 171 0 255 255 255 255 255 255 255 255 160 41 82 163 0 255 255 255\n255 255 255 255 255 255 255 160 32 48 255 255 255 255 255 255 255 255\n255 255 255 255 255 255\n")) (#$ . 19600))
#@91 The scroll left button.
The variable `tabbar-button-widget' gives details on this widget.
(custom-declare-variable 'tabbar-scroll-left-button '(cons (cons " <" tabbar-scroll-left-button-enabled-image) (cons " =" nil)) '(#$ . 20464) :group 'tabbar :type tabbar-button-widget :set '(lambda (variable value) (custom-set-default variable value) (setq tabbar-scroll-left-button-value nil)))
#@35 Value of the scroll right button.
(defvar tabbar-scroll-right-button-value nil (#$ . 20856))
#@113 Default image for the enabled scroll right button.
A disabled button image will be automatically build from it.
(defconst tabbar-scroll-right-button-enabled-image '((:type pbm :data "P2 13 13 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n48 32 160 255 255 255 255 255 255 255 255 255 255 44 161 71 32 160 255\n255 255 255 255 255 255 255 36 157 163 145 62 32 160 255 255 255 255\n255 255 30 128 133 137 142 124 50 32 160 255 255 255 255 29 120 121\n124 126 126 124 105 42 32 176 255 255 31 126 127 128 128 128 128 126\n124 89 32 255 255 33 134 135 136 137 137 138 119 49 32 176 255 255 34\n143 144 145 146 128 54 32 160 255 255 255 255 36 152 153 134 57 32 160\n255 255 255 255 255 255 38 141 60 32 160 255 255 255 255 255 255 255\n255 48 32 160 255 255 255 255 255 255 255 255 255 255 255 255 255 255\n255 255 255 255 255 255 255 255\n")) (#$ . 20956))
#@92 The scroll right button.
The variable `tabbar-button-widget' gives details on this widget.
(custom-declare-variable 'tabbar-scroll-right-button '(cons (cons " >" tabbar-scroll-right-button-enabled-image) (cons " =" nil)) '(#$ . 21831) :group 'tabbar :type tabbar-button-widget :set '(lambda (variable value) (custom-set-default variable value) (setq tabbar-scroll-right-button-value nil)))
#@312 Widget for editing a tab bar separator.
A separator is specified as a pair (STRING-OR-WIDTH . IMAGE) where
STRING-OR-WIDTH is a string value or a space width, and IMAGE a list
of image specifications.
If IMAGE is non-nil, try to use that image, else use STRING-OR-WIDTH.
The value (""), or (0) hide separators.
(defconst tabbar-separator-widget '(cons (choice (string) (number :tag "Space width" 0.2)) (repeat :tag "Image" :extra-offset 2 (restricted-sexp :tag "Spec" :match-alternatives (listp)))) (#$ . 22228))
#@43 Value of the separator used between tabs.
(defvar tabbar-separator-value nil (#$ . 22747))
(byte-code "\301\302\303\304\305\306\307\310\311&	\210\301\312\313\314\305\306\307\315\310\316&	\207" [tabbar-separator-widget custom-declare-variable tabbar-separator (list 0.2) "Separator used between tabs.\nThe variable `tabbar-separator-widget' gives details on this widget." :group tabbar :type :set (lambda (variable value) (custom-set-default variable value) (setq tabbar-separator-value nil)) tabbar-use-images t "*Non-nil means to try to use images in tab bar.\nThat is for buttons and separators." boolean (lambda (variable value) (custom-set-default variable value) (setq tabbar-separator-value nil tabbar-home-button-value nil tabbar-scroll-left-button-value nil tabbar-scroll-right-button-value nil))] 10)
#@129 Find an image, choosing one of a list of image specifications.
SPECS is a list of image specifications.  See also `find-image'.
(defalias 'tabbar-find-image #[(specs) "\205
\301 \205
\302\303\304\217\207" [tabbar-use-images display-images-p nil (find-image specs) ((error))] 3 (#$ . 23565)])
(put 'tabbar-find-image 'byte-optimizer 'byte-compile-inline-expand)
#@54 From IMAGE, return a new image which looks disabled.
(defalias 'tabbar-disable-image #[(image) "\301!\211\302A\303\304#\241\210\207" [image copy-sequence plist-put :conversion disabled] 6 (#$ . 23935)])
(put 'tabbar-disable-image 'byte-optimizer 'byte-compile-inline-expand)
#@143 Make IMAGE centered and transparent.
If optional MARGIN is non-nil, it must be a number of pixels to add as
an extra margin around the image.
(defalias 'tabbar-normalize-image #[(image &optional margin) "A\303	\304\"\204\305	\304\306#\303	\307\"\204\305	\307\310#\311\n!\2030\303	\312\"\2040\305	\312\n#\210	\241\210)\207" [image plist margin plist-get :ascent plist-put center :mask (heuristic t) natnump :margin] 4 (#$ . 24221)])
(put 'tabbar-normalize-image 'byte-optimizer 'byte-compile-inline-expand)
#@98 Return a keymap that call CALLBACK on mouse events.
CALLBACK is passed the received mouse event.
(defalias 'tabbar-make-mouse-keymap #[(callback) "\302 \303\304\305#\210\303\306	#\210\303\307\305#\210\303\310	#\210\303\311\305#\210\303\312	#\210)\207" [keymap callback make-sparse-keymap define-key [header-line down-mouse-1] ignore [header-line mouse-1] [header-line down-mouse-2] [header-line mouse-2] [header-line down-mouse-3] [header-line mouse-3]] 4 (#$ . 24745)])
#@158 Return a mouse click event.
Optional argument TYPE is a mouse-click event or one of the
symbols `mouse-1', `mouse-2' or `mouse-3'.
The default is `mouse-1'.
(defalias 'tabbar-make-mouse-event #[(&optional type) "\302\303	!>)\203
\207\304>\206\305\306\307!\206 \310 `\311\312FD\207" [type event click event-modifiers (mouse-2 mouse-3) mouse-1 event-start nil selected-window (0 . 0) 0] 5 (#$ . 25231)])
(put 'tabbar-make-mouse-event 'byte-optimizer 'byte-compile-inline-expand)
#@29 Default keymap of a button.
(defconst tabbar-default-button-keymap (tabbar-make-mouse-keymap 'tabbar-select-button-callback) (#$ . 25722))
#@299 Return a help string or nil for none, for the button under the mouse.
WINDOW is the window in which the help was found (unused).
OBJECT is the button label under the mouse.
POSITION is the position in that label.
Call `tabbar-NAME-help-function' where NAME is the button name
associated to OBJECT.
(defalias 'tabbar-help-on-button #[(window object position) "\304\305	#\211\205\306\307\310\n\"!\211J\205J *\207" [position object name funvar get-text-property tabbar-button intern-soft format "tabbar-%s-help-function"] 5 (#$ . 25868)])
#@239 Handle a mouse click event on button NAME.
Call `tabbar-select-NAME-function' with the received, or simulated
mouse click event.
Optional argument TYPE is a mouse click event type (see the function
`tabbar-make-mouse-event' for details).
(defalias 'tabbar-click-on-button #[(name &optional type) "\304\305\306\"!\211J\2058	J\n\211\307\310!>)\203\n\2023\n\311>\206&\312\313\314!\2062\315 `\316\317FD)!\210\320 )\207" [name funvar type event intern-soft format "tabbar-%s-function" click event-modifiers (mouse-2 mouse-3) mouse-1 event-start nil selected-window (0 . 0) 0 tabbar-display-update] 7 (#$ . 26419)])
(put 'tabbar-click-on-button 'byte-optimizer 'byte-compile-inline-expand)
#@100 Handle a mouse EVENT on a button.
Pass mouse click events on a button to `tabbar-click-on-button'.
(defalias 'tabbar-select-button-callback #[(event) "\306\307!>)\205W\310!\311	8)\312\nA\313\n@#\314\315\316\f\"!\211J\205V
J\211\306\307!>)\203=\202Q\317>\206D\320\310\321!\206P\322 `\323\324FD)!\210\325 ,\207" [event position target type name funvar click event-modifiers event-start 4 get-text-property tabbar-button intern-soft format "tabbar-%s-function" (mouse-2 mouse-3) mouse-1 nil selected-window (0 . 0) 0 tabbar-display-update] 6 (#$ . 27121) "@e"])
#@62 Return a keymap to handle mouse click events on button NAME.
(defalias 'tabbar-make-button-keymap #[(name) "\303\304!\203\207\305\306!\307\310	C\311\312\313	D\314\315\nD	EEF!)\207" [tabbar-default-button-keymap event name fboundp posn-string make-symbol "event" tabbar-make-mouse-keymap lambda (interactive "@e") and tabbar-click-p tabbar-click-on-button quote] 9 (#$ . 27708)])
#@49 On mouse EVENT, scroll current tab set on left.
(defalias 'tabbar-scroll-left #[(event) "\301!\302=\205
\303\304 \305\"\207" [event event-basic-type mouse-1 tabbar-scroll tabbar-current-tabset -1] 3 (#$ . 28097)])
#@62 Help string shown when mouse is over the scroll left button.
(defalias 'tabbar-scroll-left-help #[nil "\300\207" ["mouse-1: scroll tabs left."] 1 (#$ . 28319)])
#@50 On mouse EVENT, scroll current tab set on right.
(defalias 'tabbar-scroll-right #[(event) "\301!\302=\205
\303\304 \305\"\207" [event event-basic-type mouse-1 tabbar-scroll tabbar-current-tabset 1] 3 (#$ . 28486)])
#@63 Help string shown when mouse is over the scroll right button.
(defalias 'tabbar-scroll-right-help #[nil "\300\207" ["mouse-1: scroll tabs right."] 1 (#$ . 28709)])
#@26 Default keymap of a tab.
(defconst tabbar-default-tab-keymap (tabbar-make-mouse-keymap 'tabbar-select-tab-callback) (#$ . 28879))
#@268 Return a help string or nil for none, for the tab under the mouse.
WINDOW is the window in which the help was found (unused).
OBJECT is the tab label under the mouse.
POSITION is the position in that label.
Call `tabbar-help-on-tab-function' with the associated tab.
(defalias 'tabbar-help-on-tab #[(window object position) "\205\304	\305\n#!)\207" [tabbar-help-on-tab-function position object tab get-text-property tabbar-tab] 4 (#$ . 29016)])
#@243 Handle a mouse click event on tab TAB.
Call `tabbar-select-tab-function' with the received, or simulated
mouse click event, and TAB.
Optional argument TYPE is a mouse click event type (see the function
`tabbar-make-mouse-event' for details).
(defalias 'tabbar-click-on-tab #[(tab &optional type) "\2050	\211\304\305\n!>)\203	\202*	\306>\206\307\310\311!\206)\312 `\313\314FD)\"\210\315 \207" [tabbar-select-tab-function type event tab click event-modifiers (mouse-2 mouse-3) mouse-1 event-start nil selected-window (0 . 0) 0 tabbar-display-update] 7 (#$ . 29474)])
(put 'tabbar-click-on-tab 'byte-optimizer 'byte-compile-inline-expand)
#@91 Handle a mouse EVENT on a tab.
Pass mouse click events on a tab to `tabbar-click-on-tab'.
(defalias 'tabbar-select-tab-callback #[(event) "\306\307!>)\205O\310!\311	8)\312\nA\313\n@#
\205N
\211\306\307!>)\2034\202H\314>\206;\315\310\316!\206G\317 `\320\321FD)\f\"\210\322 +\207" [event position target type tab tabbar-select-tab-function click event-modifiers event-start 4 get-text-property tabbar-tab (mouse-2 mouse-3) mouse-1 nil selected-window (0 . 0) 0 tabbar-display-update] 6 (#$ . 30128) "@e"])
#@54 Return a keymap to handle mouse click events on TAB.
(defalias 'tabbar-make-tab-keymap #[(tab) "\303\304!\203\207\305\306!\307\310	C\311\312\313	D\314\315\nD	EEF!)\207" [tabbar-default-tab-keymap event tab fboundp posn-string make-symbol "event" tabbar-make-mouse-keymap lambda (interactive "@e") and tabbar-click-p tabbar-click-on-tab quote] 9 (#$ . 30659)])
#@278 Return a label for button NAME.
That is a pair (ENABLED . DISABLED), where ENABLED and DISABLED are
respectively the appearance of the button when enabled and disabled.
They are propertized strings which could display images, as specified
by the variable `tabbar-NAME-button'.
(defalias 'tabbar-button-label #[(name) "\306\307\310\"!J\211\211@A)\f\205\311 \205\312\313\314\217)\211\2057	\211AA)\f\2056\311 \2056\312\313\314\217)
\203\366
\315\211A\316\317\"\204W\320\317\321#\316\322\"\204g\320\322\323#\324!\203~\316\325\"\204~\320\325#\210\241\210)*\210\203\336\315\211A\316\317\"\204\251\320\317\321#\316\322\"\204\271\320\322\323#\324!\203\320\316\325\"\204\320\320\325#\210\241\210)*\210\202\366
\326!\211\320A\327\330#\241\210)\331	\211@@)\206

\332\333
#\331	\211A@)\206
\332\333#+B\207" [name btn x specs tabbar-use-images on intern-soft format "tabbar-%s-button" display-images-p nil (find-image specs) ((error)) 1 plist-get :ascent plist-put center :mask (heuristic t) natnump :margin copy-sequence :conversion disabled propertize " " display off margin image plist] 6 (#$ . 31030)])
#@131 Return the display representation of button NAME.
That is, a propertized string used as an `header-line-format' template
element.
(defalias 'tabbar-line-button #[(name) "\203\n	!\202
	\211B\303\304\305	\"!\306\n@\307	\310\307\311\312\313\314\315\316	!\317\320&
\306\nA\310\307\313\321%BL)\207" [tabbar-button-label-function name label intern format "tabbar-%s-button-value" propertize tabbar-button face mouse-face tabbar-button-highlight pointer hand local-map tabbar-make-button-keymap help-echo tabbar-help-on-button arrow] 15 (#$ . 32243)])
#@139 Return the display representation of a tab bar separator.
That is, a propertized string used as an `header-line-format' template
element.
(defalias 'tabbar-line-separator #[nil "A\n\205\306 \205\307\310\311\217)\211\203]\312\313\314\300\315\316\317\307\211A\320
\321\"\2041\322
\321\323#\320
\324\"\204>\322
\324\325#\326\f!\203Q\320
\327\"\204Q\322
\327\f#\210
\241\210)*&\202\200@\247\203t\312\313\314\300\315\316\317\330\331@E&\202\200\312@\206{\313\314\300\315\316%\211)\207" [tabbar-separator specs tabbar-use-images image margin plist display-images-p nil (find-image specs) ((error)) propertize " " face pointer arrow display plist-get :ascent plist-put center :mask (heuristic t) natnump :margin space :width tabbar-separator-value] 12 (#$ . 32800)])
#@121 Return a list of propertized strings for tab bar buttons.
TABSET is the tab set used to choose the appropriate buttons.
(defalias 'tabbar-line-buttons #[(tabset) "\203		@\202	A\n\211\306N)\307V\203@\202A\n\211\306N)\n\211J)GSW\2033\f@\2025\fA
F\207" [tabbar-home-function tabbar-home-button-value tabset tabbar-scroll-left-button-value tabbar-scroll-right-button-value tabbar-separator-value start 0] 5 (#$ . 33597)])
(put 'tabbar-line-buttons 'byte-optimizer 'byte-compile-inline-expand)
#@187 Return the display representation of tab TAB.
That is, a propertized string used as an `header-line-format' template
element.
Call `tabbar-tab-label-function' to obtain a label for TAB.
(defalias 'tabbar-line-tab #[(tab) "\304\203	!\202\f	\305	\306\307	!\310\311\312\313\314	\315 \211\n\211\316N+=\203+\317\202,\320\321\322&
P\207" [tabbar-tab-label-function tab tabset tabbar-separator-value propertize tabbar-tab local-map tabbar-make-tab-keymap help-echo tabbar-help-on-tab mouse-face tabbar-highlight face tabbar-current-tabset select tabbar-selected tabbar-unselected pointer hand] 15 (#$ . 34108)])
(put 'tabbar-line-tab 'byte-optimizer 'byte-compile-inline-expand)
#@58 Return the `header-line-format' value to display TABSET.
(defalias 'tabbar-line-format #[(tabset) "\211\306N)\211\211\307N)\211J)\233)\206<\310\311\f!\211\204:\312\313\f\314\"\211!\2042\315\311\f!\211\203%
*2\316\211345\204L\317 \2106\204U\320\321!\2107\204^\320\322!\2108\204g\320\323!\2109\203\210
	\n>\204\212\324\325\"\210\211\211\307N)\211J)\233)\202l\n\203\3453\204\345\n@:\326;\203\245;:!\202\247:\327:\330\331:!\332\333\334\335\304:\336 \211:\211\306N+=\203\312\337\202\313\340\341\342&
5P)4B4\n@	=3\nA\211\204\2164\2374\343\344!<r<q\210\345\216\316\346\316\211=>?\316@\346A\347\350B\203
6@\202
6A\211\307N)\351V\203+
7@\202.
7A\211\307N)\211J)GSW\203E
8@\202H
8A5F)\"\210`4A\203~
d|\210db\210\347\3504\"\210eb\210\352\353!\351V\203~
\324\353\"\2104A\2114\202S
.4\2374\3169\n\203\330
\n@:\326;\203\236
;:!\202\240
:\327:\330\331:!\332\333\334\335\304:\336 \211:\211\306N+=\203\303
\337\202\304
\340\341\342&
5P)4B4\nA\211\204\214
\211B\203\346
6@\202\351
6A\211\307N)\351V\203\372
7@\202\375
7A\211\307N)\211J)GSW\2038@\2028A5F)4\237\326\354\304\3552\3562F\341\357%E1\360\3611#.\207" [tabset sel tabs tabbar-background-color face color select start tabbar-default face-background facep face-attribute :inherit default nil tabbar-line-separator tabbar-line-button home scroll-left scroll-right tabbar-scroll -1 propertize tabbar-tab local-map tabbar-make-tab-keymap help-echo tabbar-help-on-tab mouse-face tabbar-highlight tabbar-current-tabset tabbar-selected tabbar-unselected pointer hand generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) t apply insert 0 vertical-motion 1 "%-" :background :foreground arrow put template padcolor atsel elts tabbar-separator-value tabbar-home-button-value tabbar-scroll-left-button-value tabbar-scroll-right-button-value tabbar--track-selected tab tabbar-tab-label-function #1# deactivate-mark inhibit-modification-hooks truncate-partial-width-windows truncate-lines buffer-undo-list tabbar-home-function] 15 (#$ . 34797)])
#@168 Return the header line templates that represent the tab bar.
Inhibit display of the tab bar in current window if any of the
`tabbar-inhibit-functions' return non-nil.
(defalias 'tabbar-line #[nil "\303\304!\203\n\305\211\207\301\306!\205	\211\307N)\206\310	!\207" [header-line-format tabbar-current-tabset tabset run-hook-with-args-until-success tabbar-inhibit-functions nil t template tabbar-line-format] 3 (#$ . 36996)])
#@33 The tab bar header line format.
(defconst tabbar-header-line-format '(:eval (tabbar-line)) (#$ . 37432))
#@112 Inhibit display of the tab bar in specified windows.
That is dedicated windows, and `checkdoc' status windows.
(defalias 'tabbar-default-inhibit-function #[nil "\301\302 !\206\303 \304\305\300!\203\202\306D\235\207" [ispell-choices-buffer window-dedicated-p selected-window buffer-name " *Checkdoc Status*" boundp "*Choices*"] 4 (#$ . 37544)])
#@311 Cycle to the next available tab.
The scope of the cyclic navigation through tabs is specified by the
option `tabbar-cycle-scope'.
If optional argument BACKWARD is non-nil, cycle to the previous tab
instead.
Optional argument TYPE is a mouse event type (see the function
`tabbar-make-mouse-event' for details).
(defalias 'tabbar-cycle #[(&optional backward type) "\306\307!\310 \n\311=\203	\211J)A\204\312\202\n\313\211\205\374\211\314N)\312=\203S\315\f#\211\204\275\211J)\203M\316!\202N@\202\275\311=\203{\315	\f#\211\204\275	\211J)\203u\316!\202v@\202\275\315\f#\211\204\275\315	\f#\211\204\245	\211J)\203\242\316!\202\243@
\211A)\211J)\203\272\316!\202\273@
\205\373\211\317\320!>)\203\340\202\365\321>\206\350\322\323\313!\206\364\324 `\325\326FD)
\"\210\327 *-\207" [tabset ttabset tabbar-cycle-scope cycle selected tab tabbar-current-tabset t tabbar-get-tabsets-tabset groups tabs nil select tabbar-tab-next last click event-modifiers (mouse-2 mouse-3) mouse-1 event-start selected-window (0 . 0) 0 tabbar-display-update backward type tabbar-select-tab-function event] 7 (#$ . 37902)])
#@94 Select the previous available tab.
Depend on the setting of the option `tabbar-cycle-scope'.
(defalias 'tabbar-backward #[nil "\300\301!\207" [tabbar-cycle t] 2 (#$ . 39104) nil])
#@90 Select the next available tab.
Depend on the setting of the option `tabbar-cycle-scope'.
(defalias 'tabbar-forward #[nil "\300 \207" [tabbar-cycle] 1 (#$ . 39290) nil])
#@53 Go to selected tab in the previous available group.
(defalias 'tabbar-backward-group #[nil "\301\302\303!)\207" [tabbar-cycle-scope groups tabbar-cycle t] 2 (#$ . 39465) nil])
#@49 Go to selected tab in the next available group.
(defalias 'tabbar-forward-group #[nil "\301\302 )\207" [tabbar-cycle-scope groups tabbar-cycle] 1 (#$ . 39648) nil])
#@34 Select the previous visible tab.
(defalias 'tabbar-backward-tab #[nil "\301\302\303!)\207" [tabbar-cycle-scope tabs tabbar-cycle t] 2 (#$ . 39820) nil])
#@30 Select the next visible tab.
(defalias 'tabbar-forward-tab #[nil "\301\302 )\207" [tabbar-cycle-scope tabs tabbar-cycle] 1 (#$ . 39980) nil])
#@134 Return a mouse button symbol from NUMBER.
That is mouse-2, or mouse-3 when NUMBER is respectively 2, or 3.
Return mouse-1 otherwise.
(defalias 'tabbar--mouse #[(number) "\301=\203\302\207\303=\203\304\207\305\207" [number 2 mouse-2 3 mouse-3 mouse-1] 2 (#$ . 40130)])
(put 'tabbar--mouse 'byte-optimizer 'byte-compile-inline-expand)
#@204 Press the tab bar home button.
That is, simulate a mouse click on that button.
A numeric prefix ARG value of 2, or 3, respectively simulates a
mouse-2, or mouse-3 click.  The default is a mouse-1 click.
(defalias 'tabbar-press-home #[(&optional arg) "\306\211\307=\203
\310\202	\311=\203\312\202\313)\314\315\316\"!\211J\205S\fJ\n\211\317\320
!>)\203:\n\202N\n\321>\206A\313\322\323!\206M\324 `\325\326FD)!\210\327 +\207" [arg number type name funvar event home 2 mouse-2 3 mouse-3 mouse-1 intern-soft format "tabbar-%s-function" click event-modifiers (mouse-2 mouse-3) event-start nil selected-window (0 . 0) 0 tabbar-display-update] 7 (#$ . 40476) "p"])
#@211 Press the tab bar scroll-left button.
That is, simulate a mouse click on that button.
A numeric prefix ARG value of 2, or 3, respectively simulates a
mouse-2, or mouse-3 click.  The default is a mouse-1 click.
(defalias 'tabbar-press-scroll-left #[(&optional arg) "\306\211\307=\203
\310\202	\311=\203\312\202\313)\314\315\316\"!\211J\205S\fJ\n\211\317\320
!>)\203:\n\202N\n\321>\206A\313\322\323!\206M\324 `\325\326FD)!\210\327 +\207" [arg number type name funvar event scroll-left 2 mouse-2 3 mouse-3 mouse-1 intern-soft format "tabbar-%s-function" click event-modifiers (mouse-2 mouse-3) event-start nil selected-window (0 . 0) 0 tabbar-display-update] 7 (#$ . 41159) "p"])
#@212 Press the tab bar scroll-right button.
That is, simulate a mouse click on that button.
A numeric prefix ARG value of 2, or 3, respectively simulates a
mouse-2, or mouse-3 click.  The default is a mouse-1 click.
(defalias 'tabbar-press-scroll-right #[(&optional arg) "\306\211\307=\203
\310\202	\311=\203\312\202\313)\314\315\316\"!\211J\205S\fJ\n\211\317\320
!>)\203:\n\202N\n\321>\206A\313\322\323!\206M\324 `\325\326FD)!\210\327 +\207" [arg number type name funvar event scroll-right 2 mouse-2 3 mouse-3 mouse-1 intern-soft format "tabbar-%s-function" click event-modifiers (mouse-2 mouse-3) event-start nil selected-window (0 . 0) 0 tabbar-display-update] 7 (#$ . 41863) "p"])
(require 'mwheel)
(defconst tabbar--mwheel-up-event (byte-code "\300\301!\203\n\301\202\302J\207" [boundp mouse-wheel-up-event mouse-wheel-up-button] 2))
(defconst tabbar--mwheel-down-event (byte-code "\300\301!\203\n\301\202\302J\207" [boundp mouse-wheel-down-event mouse-wheel-down-button] 2))
#@153 Return a mouse wheel key symbol from EVENT-TYPE.
When EVENT-TYPE is a symbol return it.
When it is a button number, return symbol `mouse-<EVENT-TYPE>'.
(defalias 'tabbar--mwheel-key #[(event-type) "9\203\207\301\302\303\"!\207" [event-type intern format "mouse-%s"] 4 (#$ . 42872)])
(put 'tabbar--mwheel-key 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return non-nil if EVENT is a mouse-wheel up event.
(defalias 'tabbar--mwheel-up-p #[(event) "\303!\211\304=\203AA@\305W\202	\n=)\207" [event x tabbar--mwheel-up-event event-basic-type mouse-wheel 0] 3 (#$ . 43236)])
(put 'tabbar--mwheel-up-p 'byte-optimizer 'byte-compile-inline-expand)
#@149 Select the previous available tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-backward'.
(defalias 'tabbar-mwheel-backward #[(event) "\301\302\"\207" [event tabbar-cycle t] 3 (#$ . 43537) "@e"])
#@144 Select the next available tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-forward'.
(defalias 'tabbar-mwheel-forward #[(event) "\301\302\"\207" [event tabbar-cycle nil] 3 (#$ . 43799) "@e"])
#@233 Go to selected tab in the previous available group.
If there is only one group, select the previous visible tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-backward-group'.
(defalias 'tabbar-mwheel-backward-group #[(event) "\302\303\304	\")\207" [tabbar-cycle-scope event groups tabbar-cycle t] 3 (#$ . 44057) "@e"])
#@224 Go to selected tab in the next available group.
If there is only one group, select the next visible tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-forward-group'.
(defalias 'tabbar-mwheel-forward-group #[(event) "\302\303\304	\")\207" [tabbar-cycle-scope event groups tabbar-cycle nil] 3 (#$ . 44441) "@e"])
#@151 Select the previous visible tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-backward-tab'.
(defalias 'tabbar-mwheel-backward-tab #[(event) "\302\303\304	\")\207" [tabbar-cycle-scope event tabs tabbar-cycle t] 3 (#$ . 44817) "@e"])
#@146 Select the next visible tab.
EVENT is the mouse event that triggered this command.
Mouse-enabled equivalent of the command `tabbar-forward-tab'.
(defalias 'tabbar-mwheel-forward-tab #[(event) "\302\303\304	\")\207" [tabbar-cycle-scope event tabs tabbar-cycle nil] 3 (#$ . 45115) "@e"])
#@53 Select the next or previous tab according to EVENT.
(defalias 'tabbar-mwheel-switch-tab #[(event) "\303!\211\304=\203AA@\305W\202	\n=*\203 \306!\207\307!\207" [event x tabbar--mwheel-up-event event-basic-type mouse-wheel 0 tabbar-mwheel-forward-tab tabbar-mwheel-backward-tab] 2 (#$ . 45408) "@e"])
#@63 Select the next or previous group of tabs according to EVENT.
(defalias 'tabbar-mwheel-switch-group #[(event) "\303!\211\304=\203AA@\305W\202	\n=*\203 \306!\207\307!\207" [event x tabbar--mwheel-up-event event-basic-type mouse-wheel 0 tabbar-mwheel-forward-group tabbar-mwheel-backward-group] 2 (#$ . 45725) "@e"])
#@38 Return non-nil if Tabbar mode is on.
(defalias 'tabbar-mode-on-p #[nil "\301\302!=\207" [tabbar-header-line-format default-value header-line-format] 2 (#$ . 46058)])
(put 'tabbar-mode-on-p 'byte-optimizer 'byte-compile-inline-expand)
(defvar tabbar--local-hlf nil)
#@103 Non-nil if Tabbar-Local mode is enabled.
Use the command `tabbar-local-mode' to change this variable.
(defvar tabbar-local-mode nil (#$ . 46331))
(make-variable-buffer-local 'tabbar-local-mode)
#@414 Toggle local display of the tab bar.
With prefix argument ARG, turn on if positive, otherwise off.
Returns non-nil if the new state is enabled.
When turned on, if a local header line is shown, it is hidden to show
the tab bar.  The tab bar is locally hidden otherwise.  When turned
off, if a local header line is hidden or the tab bar is locally
hidden, it is shown again.  Signal an error if Tabbar mode is off.
(defalias 'tabbar-local-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\304!=\204 \313\314!\210\n\203J\315\304!\203E\f\203E\315\305!\2038\313\316!\210\317\305!\210\f\320\304!\210\202]\321\202]\315\305!\203Y
\320\305!\210\202]\320\304!\210\322\323\n\203g\324\202h\325\"\210\326\327!\203\211\306 \203|\306 \232\203\211\330\331\n\203\206\332\202\207\333\"\210)\334 \210\n\207" [#1=#:last-message arg tabbar-local-mode tabbar-header-line-format header-line-format tabbar--local-hlf current-message toggle prefix-numeric-value 0 default-value error "Tabbar mode must be enabled" local-variable-p "Another local header line is already hidden" make-local-variable kill-local-variable nil run-hooks tabbar-local-mode-hook tabbar-local-mode-on-hook tabbar-local-mode-off-hook called-interactively-p any message "Tabbar-Local mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 46532) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [tabbar-local-mode-map add-minor-mode tabbar-local-mode nil boundp] 6)
#@44 The common prefix key used in Tabbar mode.
(defvar tabbar-prefix-key [(control 99)] (#$ . 48040))
#@43 The key bindings provided in Tabbar mode.
(defvar tabbar-prefix-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)\207" [km make-sparse-keymap define-key [(control home)] tabbar-press-home [(control left)] tabbar-backward [(control right)] tabbar-forward [(control up)] tabbar-backward-group [(control down)] tabbar-forward-group [(control prior)] tabbar-press-scroll-left [(control next)] tabbar-press-scroll-right [(control f10)] tabbar-local-mode] 4) (#$ . 48144))
#@32 Keymap to use in  Tabbar mode.
(defvar tabbar-mode-map (byte-code "\303 \304	\n#\210)\207" [km tabbar-prefix-key tabbar-prefix-map make-sparse-keymap define-key] 4) (#$ . 48736))
(defvar tabbar--global-hlf nil)
#@254 Non-nil if Tabbar mode is enabled.
See the command `tabbar-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `tabbar-mode'.
(custom-declare-variable 'tabbar-mode nil '(#$ . 48957) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'tabbar :type 'boolean :require 'tabbar)
#@176 Toggle display of a tab bar in the header line.
With prefix argument ARG, turn on if positive, otherwise off.
Returns non-nil if the new state is enabled.

\{tabbar-mode-map}
(defalias 'tabbar-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203J\312\313!=\204f\312\313!\314\315\311\"\316\317!'\320'\321\311#\210\322\323!\210\324\313\"\210\325\326!\203f\326 \210\202f\312\313!=\203f\327\330\331 \"\210\324\313\f\"\210\332\211'\322\333!\210\322\334\n\203p\335\202q\336\"\210\337\340!\203\226\341\302!\210\306 \203\211\306 \232\203\226\342\343\n\203\223\344\202\224\345\"\210)\346 \210\n\207" [#1=#:last-message arg tabbar-mode tabbar-header-line-format tabbar--global-hlf tabbar-tabsets current-message toggle prefix-numeric-value 0 default-value header-line-format make-vector 31 make-symbol "tabbar-tabsets-tabset" put start run-hooks tabbar-init-hook set-default fboundp tabbar-define-access-keys mapc #[(b) "\300\301\302\217\207" [nil (byte-code "rq\210	\205\301\302!)\207" [b tabbar-local-mode -1] 2) ((error))] 3] buffer-list nil tabbar-quit-hook tabbar-mode-hook tabbar-mode-on-hook tabbar-mode-off-hook called-interactively-p any customize-mark-as-set message "Tabbar mode %sabled" "en" "dis" force-mode-line-update tabbar-tabsets-tabset] 5 (#$ . 49388) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\207" [tabbar-mode-map add-minor-mode tabbar-mode nil] 6)
#@38 Keymap to use in Tabbar-Mwheel mode.
(defvar tabbar-mwheel-mode-map (byte-code "\306 \307\310N\203\311\312\313#\210\202w	\2119\203\n\202#\314\315\316\n\"!)\2119\203/\n\2025\314\315\316\n\"!)\311\317\320\f\"\321#\210\311\317\320
\"\322#\210\311\317\320\323\fD\"\324#\210\311\317\320\323
D\"\325#\210\311\317\320\326\fD\"\327#\210\311\317\320\326
D\"\330#\210*)\207" [km tabbar--mwheel-up-event event-type tabbar--mwheel-down-event down up make-sparse-keymap mouse-wheel event-symbol-elements define-key [A-mouse-wheel] tabbar-mwheel-switch-group intern format "mouse-%s" vector header-line tabbar-mwheel-backward-group tabbar-mwheel-forward-group control tabbar-mwheel-backward-tab tabbar-mwheel-forward-tab shift tabbar-mwheel-backward tabbar-mwheel-forward] 7) (#$ . 50832))
#@275 Non-nil if Tabbar-Mwheel mode is enabled.
See the command `tabbar-mwheel-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `tabbar-mwheel-mode'.
(custom-declare-variable 'tabbar-mwheel-mode nil '(#$ . 51637) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'tabbar :type 'boolean :require 'tabbar)
#@201 Toggle use of the mouse wheel to navigate through tabs or groups.
With prefix argument ARG, turn on if positive, otherwise off.
Returns non-nil if the new state is enabled.

\{tabbar-mwheel-mode-map}
(defalias 'tabbar-mwheel-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\211\203$\203 \f\204$\302\311!\210\312\313\n\203.\314\202/\315\"\210\316\317!\203T\320\302!\210\305 \203G\305 \232\203T\321\322\n\203Q\323\202R\324\"\210)\325 \210\n\207" [#1=#:last-message arg tabbar-mwheel-mode mouse-wheel-mode tabbar-mode current-message toggle prefix-numeric-value 0 -1 run-hooks tabbar-mwheel-mode-hook tabbar-mwheel-mode-on-hook tabbar-mwheel-mode-off-hook called-interactively-p any customize-mark-as-set message "Tabbar-Mwheel mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 52096) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\207" [tabbar-mwheel-mode-map add-minor-mode tabbar-mwheel-mode nil] 6)
#@62 Toggle Tabbar-Mwheel following Tabbar and Mouse-Wheel modes.
(defalias 'tabbar-mwheel-follow #[nil "\302\203
	\203
\303\202\304!\207" [mouse-wheel-mode tabbar-mode tabbar-mwheel-mode 1 -1] 2 (#$ . 53065)])
(byte-code "\301\302\303\"\210\301\304\303\"\210\305\306\307\310\311\312%\210\313\314\315\316\311\306\317\320\321&	\207" [tabbar-button-widget add-hook tabbar-mode-hook tabbar-mwheel-follow mouse-wheel-mode-hook custom-declare-group tabbar-buffer nil "Display buffers in the tab bar." :group tabbar custom-declare-variable tabbar-buffer-home-button (cons (cons "[+]" tabbar-home-button-enabled-image) (cons "[-]" tabbar-home-button-disabled-image)) "The home button displayed when showing buffer tabs.\nThe enabled button value is displayed when showing tabs for groups of\nbuffers, and the disabled button value is displayed when showing\nbuffer tabs.\nThe variable `tabbar-button-widget' gives details on this widget." :type :set (lambda (variable value) (custom-set-default variable value) (setq tabbar-home-button-value nil))] 10)
#@137 Function that returns the list of buffers to show in tabs.
That function is called with no arguments and must return a list of
buffers.
(defvar tabbar-buffer-list-function 'tabbar-buffer-list (#$ . 54119))
#@203 Function that gives the group names the current buffer belongs to.
It must return a list of group names, or nil if the buffer has no
group.  Notice that it is better that a buffer belongs to one group.
(defvar tabbar-buffer-groups-function 'tabbar-buffer-groups (#$ . 54332))
#@168 Return the list of buffers to show in tabs.
Exclude buffers whose name starts with a space, when they are not
visiting a file.  The current buffer is always included.
(defalias 'tabbar-buffer-list #[nil "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[(b) "p=\203\207\301!\203\207\302\303\304!\305H\"\203\306\207\307!\205$\207" [b buffer-file-name char-equal 32 buffer-name 0 nil buffer-live-p] 4] buffer-list] 5 (#$ . 54615)])
#@56 Return non-nil if MODE derives from a mode in PARENTS.
(defalias 'tabbar-buffer-mode-derived-p #[(mode parents) "\303\204	\203	\n>\203\304\211\202	\305N\202)\207" [derived mode parents nil t derived-mode-parent] 3 (#$ . 55065)])
#@113 Return the list of group names the current buffer belongs to.
Return a list of one element based on major mode.
(defalias 'tabbar-buffer-groups #[nil "\303p!\204
\304\305\"\203\306\202S\307 \310\235\203\311\202S\312=\203&\313\202S\314>\2030\315\202S\316>\203:\317\202S	;\203P\320 \321\216\322\323	\"*\203P	\202S\324!C\207" [major-mode mode-name save-match-data-internal get-buffer-process tabbar-buffer-mode-derived-p (comint-mode compilation-mode) "Process" buffer-name ("*scratch*" "*Messages*") "Common" dired-mode "Dired" (help-mode apropos-mode Info-mode Man-mode) "Help" (rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode mh-letter-mode mh-show-mode mh-folder-mode gnus-summary-mode message-mode gnus-group-mode gnus-article-mode score-mode gnus-browse-killed-mode) "Mail" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[^ ]" symbol-name] 3 (#$ . 55316)])
(defvar tabbar--buffers nil)
#@106 Update tab sets from groups of existing buffers.
Return the the first group where the current buffer is.
(defalias 'tabbar-buffer-update-groups #[nil "\306\307\310\205	 \"\311\"\211\n\232\204	\312\211\203u\f@\3138\312\211\203m\f@\211\314\")\211\203_\211@\n\236\232\204e\315@\316#\210\312\317\320#*\210\202e\321
@\"\210)\fA\211\204(*\fA\211\204*\322\323\324\325!\"\210	)\313p\n\2368@\207" [tabbar-buffer-list-function bl tabbar--buffers e --dolist-tail-- g sort mapcar #[(b) "rq\210p\302 	\203	 \202\303E)\207" [b tabbar-buffer-groups-function buffer-name ("Common")] 3] #[(e1 e2) "A@	A@\231\207" [e1 e2] 2] nil 2 intern-soft tabbar-add-tab t put template tabbar-make-tabset mapc tabbar-delete-tabset tabbar-map-tabsets #[(tabset) "\211J)\305\211\2032\n@\211\211@)\236\211\203&\306\307\310\f8\">\204*\311	!\210)\nA\211\204\f*\211J)?\205=\207" [tabset tab --dolist-tail-- bl e nil mapcar tabbar-get-tabset 2 tabbar-delete-tab] 6] name tabbar-tabsets tabset] 5 (#$ . 56311)])
(defvar tabbar--buffer-show-groups nil)
#@52 Set display of tabs for groups of buffers to FLAG.
(defalias 'tabbar-buffer-show-groups #[(flag) "\303\211\207" [flag tabbar--buffer-show-groups tabbar-home-button-value nil] 2 (#$ . 57401)])
(put 'tabbar-buffer-show-groups 'byte-optimizer 'byte-compile-inline-expand)
#@61 Return the buffers to display on the tab bar, in a tab set.
(defalias 'tabbar-buffer-tabs #[nil "\306 \307	\")p\n\211\n\310\n\211J)\"*\n\211\n\211\211A)\n=\2062\f\n\211J)>*\205Y\f\n\211\n\211\311N+=\204T\n\312\313\n\305
#*\210
\313\n\311\f#,\210\203\265\314 p\n\211\n\310\n\211J)\"*\n\211\n\211\211A)\n=\206\214\f\n\211J)>*\205\263\f\n\211\n\211\311N+=\204\256\n\312\313\n\305
#*\210
\313\n\311\f#,\210\n)\207" [name tabbar-tabsets tabset object tab template tabbar-buffer-update-groups intern-soft assoc select nil put tabbar-get-tabsets-tabset tabbar-auto-scroll-flag tabbar--track-selected tabbar--buffer-show-groups] 5 (#$ . 57679)])
#@412 Return a label for button NAME.
That is a pair (ENABLED . DISABLED), where ENABLED and DISABLED are
respectively the appearance of the button when enabled and disabled.
They are propertized strings which could display images, as specified
by the variable `tabbar-button-label'.
When NAME is 'home, return a different ENABLED button if showing tabs
or groups.  Call the function `tabbar-button-label' otherwise.
(defalias 'tabbar-buffer-button-label #[(name) "\306!\307=\203\"
\n\211\211@A)\205!\310 \205!\311\312\313\217)\211AA)\2059\310 \2059\311\312\313\217)\203\221\314\211A\315\316\"\204\\\317\316\320#\315\321\"\204l\317\321\322#\323!\203\203\315\324\"\204\203\317\324#\210\241\210)*\210\202\231\325\326\327	@#\203\356\314\211A\315\316\"\204\271\317\316\320#\315\321\"\204\311\317\321\322#\323!\203\340\315\324\"\204\340\317\324#\210\241\210)*\210\202\366\325\326\327	@#	\203
\330\211@@)\206
	@\327#\202
\330\211A@)\206
	@\327#\240\210+	)\207" [name lab tabbar-buffer-home-button btn x specs tabbar-button-label home display-images-p nil (find-image specs) ((error)) 1 plist-get :ascent plist-put center :mask (heuristic t) natnump :margin get-text-property 0 display propertize tabbar-use-images on off margin image plist tabbar--buffer-show-groups] 6 (#$ . 58377)])
#@80 Return a label for TAB.
That is, a string used to represent it on the tab bar.
(defalias 'tabbar-buffer-tab-label #[(tab) "\203\305\306	\211A)\"\202\305\307	\211@)\"\203 \n\2029\310\n\311\312 \313 \211\211\314N)\f\211J)\233)G\245]\")\207" [tabbar--buffer-show-groups tab label tabbar-auto-scroll-flag tabset format "[%s]" "%s" tabbar-shorten 1 window-width tabbar-current-tabset start] 8 (#$ . 59779)])
#@54 Return the help string shown when mouse is onto TAB.
(defalias 'tabbar-buffer-help-on-tab #[(tab) "\203	\211A)\211\211\303N)\304\305\306	\211@)!\n#*\207\304\307\306	\211@)!\"\207" [tabbar--buffer-show-groups tab tabset select format "mouse-1: switch to buffer %S in group [%s]" buffer-name "mouse-1: switch to buffer %S\nmouse-2: pop to buffer, mouse-3: delete other windows"] 5 (#$ . 60202)])
#@29 On mouse EVENT, select TAB.
(defalias 'tabbar-buffer-select-tab #[(event tab) "\306!	\211@)\211\307=\203\310\n\311\"\210\202(\312=\203$\313 \210\202(\314\n!\210\315\211\315\211+\207" [event tab buffer mouse-button flag tabbar--buffer-show-groups event-basic-type mouse-2 pop-to-buffer t mouse-3 delete-other-windows switch-to-buffer nil tabbar-home-button-value] 4 (#$ . 60611)])
#@150 Handle a mouse click EVENT on the tab bar home button.
mouse-1, toggle the display of tabs for groups of buffers.
mouse-3, close the current buffer.
(defalias 'tabbar-buffer-click-on-home #[(event) "\305!\211\306=\203\n?\211\307\211)\202	\310=\205\311\307!)\207" [event mouse-button tabbar--buffer-show-groups flag tabbar-home-button-value event-basic-type mouse-1 nil mouse-3 kill-buffer] 3 (#$ . 61012)])
#@68 Return the help string shown when mouse is onto the toggle button.
(defalias 'tabbar-buffer-help-on-home #[nil "\203\301\202	\302\303P\207" [tabbar--buffer-show-groups "mouse-1: show buffers in selected group" "mouse-1: show groups of buffers" ", mouse-3: close current buffer"] 2 (#$ . 61436)])
#@335 Hook run just before actually killing a buffer.
In Tabbar mode, try to switch to a buffer in the current tab bar,
after the current buffer has been killed.  Try first the buffer in tab
after the current one, then the buffer in tab before.  On success, put
the sibling buffer in front of the buffer list, so it will be selected
first.
(defalias 'tabbar-buffer-track-killed #[nil "	=\205e\n\306=\205ep\307\310 !=\205e\311 \312\313\211J)\")p\314\211\211\203M
\204M@=\203@\315\202D@A\211\204.@\206T\f\211\205d\316\f!\205dr\317\f!),\207" [header-line-format tabbar-header-line-format tabbar-current-tabset-function tabset sibling found tabbar-buffer-tabs window-buffer selected-window tabbar-current-tabset mapcar tabbar-tab-value nil t buffer-live-p switch-to-buffer b bl] 5 (#$ . 61743)])
#@60 Initialize tab bar buffer data.
Run as `tabbar-init-hook'.
(defalias 'tabbar-buffer-init #[nil "\306\211\307\310\311\312\313\314\315\316\317\320\"\207" [tabbar--buffers tabbar--buffer-show-groups tabbar-current-tabset-function tabbar-tab-label-function tabbar-select-tab-function tabbar-help-on-tab-function nil tabbar-buffer-tabs tabbar-buffer-tab-label tabbar-buffer-select-tab tabbar-buffer-help-on-tab tabbar-buffer-button-label tabbar-buffer-click-on-home tabbar-buffer-help-on-home add-hook kill-buffer-hook tabbar-buffer-track-killed tabbar-button-label-function tabbar-home-function tabbar-home-help-function] 4 (#$ . 62571)])
#@49 Quit tab bar buffer.
Run as `tabbar-quit-hook'.
(defalias 'tabbar-buffer-quit #[nil "\306\211\306\211\306\211\306\211\n\306\f\307\310\311\"\207" [tabbar--buffers tabbar--buffer-show-groups tabbar-current-tabset-function tabbar-tab-label-function tabbar-select-tab-function tabbar-help-on-tab-function nil remove-hook kill-buffer-hook tabbar-buffer-track-killed tabbar-button-label-function tabbar-home-function tabbar-home-help-function] 4 (#$ . 63224)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\210\307\310!\207" [add-hook tabbar-init-hook tabbar-buffer-init tabbar-quit-hook tabbar-buffer-quit provide tabbar run-hooks tabbar-load-hook] 3)