;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tabbar easymenu] 2) #@38 Keymap for pop-up menu. Emacs only. (defalias 'tabbar-popup-menu #[nil "\301\302@\"\303B\207" [tabbar-last-tab format "%s" (["Close" tabbar-popup-close] ["Close all BUT this" tabbar-popup-close-but] "--" ["Save" tabbar-popup-save] ["Save As" tabbar-popup-save-as] "--" ["Rename File" tabbar-popup-rename :active (and (buffer-file-name (tabbar-tab-value tabbar-last-tab)) (file-exists-p (buffer-file-name (tabbar-tab-value tabbar-last-tab))))] ["Delete File" tabbar-popup-delete :active (and (buffer-file-name (tabbar-tab-value tabbar-last-tab)) (file-exists-p (buffer-file-name (tabbar-tab-value tabbar-last-tab))))] "--" ["Gzip File" tabbar-popup-gz :active (and (executable-find "gzip") (buffer-file-name (tabbar-tab-value tabbar-last-tab)) (file-exists-p (buffer-file-name (tabbar-tab-value tabbar-last-tab))) (not (string-match "\\.gz\\(?:~\\|\\.~[0-9]+~\\)?\\'" (buffer-file-name (tabbar-tab-value tabbar-last-tab)))))] ["Bzip File" tabbar-popup-bz2 :active (and (executable-find "bzip2") (buffer-file-name (tabbar-tab-value tabbar-last-tab)) (file-exists-p (buffer-file-name (tabbar-tab-value tabbar-last-tab))) (not (string-match "\\.bz2\\(?:~\\|\\.~[0-9]+~\\)?\\'" (buffer-file-name (tabbar-tab-value tabbar-last-tab)))))] ["Decompress File" tabbar-popup-decompress :active (and (buffer-file-name (tabbar-tab-value tabbar-last-tab)) (file-exists-p (buffer-file-name (tabbar-tab-value tabbar-last-tab))) (string-match "\\(?:\\.\\(?:Z\\|gz\\|bz2\\|tbz2?\\|tgz\\|svgz\\|sifz\\|xz\\|dz\\)\\)\\(\\(?:~\\|\\.~[0-9]+~\\)?\\)\\'" (buffer-file-name (tabbar-tab-value tabbar-last-tab))))])] 3 (#$ . 156)]) #@14 Print Buffer (defalias 'tabbar-popup-print #[nil "\300\207" [nil] 1 (#$ . 1768) nil]) #@22 Tab-bar pop up close (defalias 'tabbar-popup-close #[nil " !\207" [tabbar-close-tab-function tabbar-last-tab] 2 (#$ . 1860) nil]) #@35 Tab-bar close all BUT this buffer (defalias 'tabbar-popup-close-but #[nil " J\302\303 \")\207" [tabbar-current-tabset-function cur mapc #[(tab) " =?\205\n\n!\207" [tab tabbar-last-tab tabbar-close-tab-function] 2]] 3 (#$ . 1997) nil]) #@17 Tab-bar save as (defalias 'tabbar-popup-save-as #[nil "\211@)\212\nq\210\303\304!*\207" [tabbar-last-tab tab buf call-interactively write-file] 3 (#$ . 2243) nil]) #@16 Tab-bar rename (defalias 'tabbar-popup-rename #[nil "\211@)\304\n!\212\nq\210\305\306!\205% \304p!\230\203\"\307\310!\202%\311 !+\207" [tabbar-last-tab tab buf fn buffer-file-name call-interactively write-file error "Buffer has same name. Just saved instead." delete-file] 4 (#$ . 2416) nil]) #@21 Tab-bar delete file (defalias 'tabbar-popup-delete #[nil "\211@)\304\n!\305\306\307\n\"!\205#\212\nq\210\310\311!\210\312p!\210\313 !)*\207" [tabbar-last-tab tab buf fn buffer-file-name yes-or-no-p format "Are you sure you want to delete %s?" set-buffer-modified-p nil kill-buffer delete-file] 5 (#$ . 2723) nil]) #@66 Removes compression extension, and possibly adds a new extension (defalias 'tabbar-popup-remove-compression-ext #[(file-name &optional new-compression) "\303\304 \"\203\305\n\206\306\307\310 \"P\311\211 $\301J)\207" [file-name ret new-compression string-match "\\(\\(?:\\.\\(?:Z\\|gz\\|bz2\\|tbz2?\\|tgz\\|svgz\\|sifz\\|xz\\|dz\\)\\)?\\)\\(\\(?:~\\|\\.~[0-9]+~\\)?\\)\\'" replace-match "" match-string 2 t] 5 (#$ . 3048)]) #@16 Gzips the file (defalias 'tabbar-popup-gz #[(&optional ext err) "\211@)\306\n!\307 \f\206\310\" \230\203\311\312!\202C\212\nq\210\313 !\210\314 !\2049\311\315\2065\316\"\202B\314 !\205B\317 !)+\207" [tabbar-last-tab tab buf fn ext nfn buffer-file-name tabbar-popup-remove-compression-ext ".gz" error "Already has that compression!" write-file file-exists-p "%s" "Could not gzip file!" delete-file err] 4 (#$ . 3484) nil]) #@11 Bzip file (defalias 'tabbar-popup-bz2 #[nil "\300\301\302\"\207" [tabbar-popup-gz ".bz2" "Could not bzip the file!"] 3 (#$ . 3929) nil]) #@17 Decompress file (defalias 'tabbar-popup-decompress #[nil "\300\301\302\"\207" [tabbar-popup-gz "" "Could not decompress the file!"] 3 (#$ . 4072) nil]) #@24 Pop up a context menu. (defalias 'tabbar-context-menu #[nil "\300\301 !\207" [popup-menu tabbar-popup-menu] 2 (#$ . 4230) nil]) #@39 Gets the hexadecimal value of a color (defalias 'tabbar-hex-color #[(color) "\302!\303=\204\304\2023\305\306O\307\230\203 \226\2023\310!\2031\307\311\312\313!\314#P\2023\304\301J)\207" [color ret type-of string "None" 0 1 "#" color-defined-p mapconcat #[(val) "\301\302\303_\"\207" [val format "%02X" 255] 4] color-name-to-rgb ""] 5 (#$ . 4364)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\302\314\304\305\304\307&\207" [custom-declare-variable tabbar-ruler-swap-faces nil "Swap the selected / unselected tab colors" :type boolean :group tabbar-ruler tabbar-ruler-invert-deselected t "Invert deselected tabs" tabbar-ruler-modified-symbol "Add modified symbol in addition to changing the face."] 8) #@29 Installs faces for a frame. (defalias 'tabbar-install-faces #[(&optional frame) "\303\304\305#\210 \203K\303\306\307#\210\303\310\311#\210\n\203-\303\307\311\"\210\312\307\313\314$\210\315\307!\210\202<\312\307\316\317\320\321\322\320\"\313\314&\210\303\317\323#\210\303\322\324#\210\202\211\303\306\307#\210\303\310\311#\210\n\203n\303\307\311\"\210\312\311\313\314$\210\315\311!\210\202}\312\311\316\317\320\321\322\320\"\313\314&\210\303\317\324#\210\303\322\323#\210\312\325\316\305\313\314&\210\312\326\316\305\313\314&\207" [frame tabbar-ruler-swap-faces tabbar-ruler-invert-deselected copy-face mode-line tabbar-default default tabbar-selected shadow tabbar-unselected set-face-attribute :box nil invert-face :inherit mode-line-buffer-id :background face-attribute mode-line-inactive tabbar-unselected-highlight tabbar-selected-highlight tabbar-separator tabbar-button] 9 (#$ . 5142) nil]) (byte-code "\300\301\302\"\210\300\303\302\"\210\302 \207" [add-hook after-make-frame-functions tabbar-install-faces emacs-startup-hook] 3) #@124 Return a frame-local hash table that acts as a memoization cache for tabbar. Create one if the frame doesn't have one yet. (defalias 'tabbar-create-or-get-tabbar-cache #[nil "\301\302\303\"\206\304\305\306\"\307\302\303BC\"\210)\207" [table frame-parameter nil tabbar-cache make-hash-table :test equal modify-frame-parameters] 4 (#$ . 6211)]) #@139 Memoize FUNC. If argument is a symbol then install the tabbar-memoized function over the original function. Use frame-local memoization. (defalias 'tabbar-memoize #[(func) "9\203\301K!M\210\207\302!\205\301!\207" [func tabbar-memoize-wrap-frame-local functionp] 3 (#$ . 6566)]) #@84 Return the tabbar-memoized version of FUNC. The memoization cache is frame-local. (defalias 'tabbar-memoize-wrap-frame-local #[(func) "\304 \304 \304 \305\306D\307 !\310P\311\n\312B \313\nEDD\314 \211\315\316 E\nFFEF+\207" [args-sym val-sym cache-sym func gensym lambda &rest documentation "\n(tabbar-memoized function)" let* ((tabbar-create-or-get-tabbar-cache)) gethash if puthash apply] 13 (#$ . 6861)]) #@435 Creates a Tabbar Ruler Separator Image. FACE1 is the face to the left FACE2 is the face to the right FACE3 is the background face (optional) When FACE1 is nil and FACE2 is present this function creates the first tab image. When FACE2 is nil and FACE1 is present this function creates the last tab image. When FACE1 = FACE2, this creates a non-selected separator When FACE1 does not equal FACE2, this creates a selected separator  (defalias 'tabbar-ruler-tab-separator-image #[(face1 face2 &optional face3 next-on-top slope height) "\206\306\307 ]\n\206\310 \245 \311\211()\311\211*+\311\211,-.\2036\312\313.\314\"!\2027\315/.\203H\312\313.\316\"!\202I\31501\203Z\312\3131\314\"!\202[\31521\203l\312\3131\316\"!\202m\31534\203~\312\3134\314\"!\202\204\312\313\317\314\"!5\320'/2\230\203\232'\321P'\202\2561\204\250'\322P'\202\256'\323P''\324P'\325\326'\327\f! S$'\325\330'5#'\325\331'/#'\325\332'0#'\325\333'2#'\325\334'3#' \335Y\203T\327 S \245T!(\327 \\ Z \245!)1\203\214()Y\203\214)\335U\203!\336*\2022\337)S.\204.\340\202/\341\"*()U\203V6\204D.\204J\342+\202M\343+\336\211,-\202q.\203a\343+\202d\336+\337()Z\340\",\342-(\fU\203~\3367\202;\337\327\f!(Z\344\"7\202;.\203\2261\203\250()W\203\3526\204\352.\203\352)\335U\203\265\336*\202\275\337)S\341\"*\343+\336\211,-)\fU\203\323\3367\202;\337\327\f!)Z1\204\343\340\202\344\344\"7\202;()W\203;6\204\374.\204;(\335U\203 \336*\202\337(S.\204\340\202\341\"*\342+\336\211,-(\fU\2030\3367\202;\337\327\f!(Z\344\"7\325\345'*+,-7&' S\211\202\356\325\346'\"'\347J.\207" [height h slope m w i 20 frame-char-height 2 nil tabbar-hex-color face-attribute :background "None" :foreground default "/* XPM */\nstatic char * " "tabbar_ruler_default_separator" "tabbar_ruler_separator_end" "tabbar_ruler_separator_end_sel" "[] = {\n" format "%s\"%s %s 5 1\",\n" round "%s\" c %s\",\n" "%s\". c %s\",\n" "%s\"> c %s\",\n" "%s\"= c %s\",\n" "%s\"+ c %s\"" 1 "" make-string 32 46 "+" ">" 61 "%s,\n\"%s%s%s%s%s\"" "%s};" ret x1 x2 e1 e2 e3 e4 face1 color1 color1-border face2 color2 color2-border face3 color-background next-on-top e5] 9 (#$ . 7283)]) #@58 Returns the scroll-images (fn &key TYPE DISABLED COLOR) (defalias 'tabbar-ruler-image #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\f\203A\f@\312>\203*\fAA\211\202\313>A@\2038\314\211\202\315\316\f@\"\210\202)\n\203O\317\320\321\322\"!\202U\317\320\323\322\"! \206l\n\203f\317\320\321\324\"!\202l\317\320\323\324\"!! \325=\203~\326\327 !#\202\245\326\330\331 !\n\203\213\332\202\214\333 \334\267\202\243\335\202\244\336\202\244\337\202\244\340\202\244\314%-\207" [#1# type disabled color #2=#:--cl-keys-- clr plist-member :type :disabled :color (:type :disabled :color :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :disabled :color)" tabbar-hex-color face-attribute mode-line-inactive :background mode-line :foreground close format "/* XPM */\n static char * close_tab_xpm[] = {\n \"14 11 3 1\",\n \" c None\",\n \". c %s\",\n \"+ c %s\",\n \" ..... \",\n \" ....... \",\n \" ......... \",\n \" ... ... ... \",\n \" .... . .... \",\n \" ..... ..... \",\n \" .... . .... \",\n \" ... ... ... \",\n \" ......... \",\n \" ....... \",\n \" ..... \"};" "/* XPM */\nstatic char * scroll_%s_%s_xpm[] = {\n\"17 17 2 1\",\n\" c None\",\n\". c %s\",\n\" \",\n\" \",\n\" \",\n\" \",\n\" \",\n%s\n\" \",\n\" \",\n\" \",\n\" \",\n\" \",\n\" \"};\n" symbol-name "disabled" "enabled" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 147 left 151 up 155 down 159)) "\" \",\n\" .. \",\n\" .... \",\n\" ...... \",\n\" ..... \",\n\" ... \",\n" "\" \",\n\" .. \",\n\" .... \",\n\" ...... \",\n\" ..... \",\n\" ... \"," "\" . \",\n\" .. \",\n\" ... \",\n\" .... \",\n\" ..... \",\n\" ..... \"," "\" ..... \",\n\" ..... \",\n\" .... \",\n\" ... \",\n\" .. \",\n\" . \"," clr2] 8 (#$ . 9568)]) #@44 Default image for the enabled home button. (defconst tabbar-home-button-enabled-image (byte-code "\300\301\302\303\300\304\"FC\207" [:type xpm :data tabbar-ruler-image down] 6) (#$ . 12018)) #@44 Default image for the disabled home button (defconst tabbar-home-button-disabled-image (byte-code "\300\301\302\303\300\304\"FC\207" [:type xpm :data tabbar-ruler-image up] 6) (#$ . 12215)) (defconst tabbar-home-button (byte-code "\302B\303 BB\207" [tabbar-home-button-enabled-image tabbar-home-button-disabled-image "[o]" "[x]"] 3)) (byte-code "\306B\307 BB\310\311\312\313\310\314\"FC\310\311\312\313\310\314\315\316$FC\317 B\320\fBB\310\311\312\313\310\321\"FC\310\311\312\313\310\321\315\316$FC\322B\320BB\310\207" [tabbar-home-button-enabled-image tabbar-home-button-disabled-image tabbar-buffer-home-button tabbar-scroll-left-button-enabled-image tabbar-scroll-left-button-disabled-image tabbar-scroll-left-button "[+]" "[-]" :type xpm :data tabbar-ruler-image left :disabled t " <" " =" right " >" tabbar-scroll-right-button-enabled-image tabbar-scroll-right-button-disabled-image tabbar-scroll-right-button] 8) #@205 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. If optional NOMASK is non-nil, no mask property is included. (defalias 'tabbar-normalize-image #[(image &optional margin nomask) "A\304 \305\"\204\306 \305\307#\304 \310\"\204!\n\204!\306 \310\311#\312 !\2034\304 \313\"\2044\306 \313 #\210 \241\210)\207" [image plist nomask margin plist-get :ascent plist-put center :mask (heuristic t) natnump :margin] 4 (#$ . 13157)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tabbar-normalize-image speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@100 Function to call to close a tabbar tab. Passed a single argument, the tab construct to be closed. (defvar tabbar-close-tab-function nil (#$ . 13838)) #@115 Function to call to create a new buffer in tabbar-mode. Optional single argument is the MODE for the new buffer. (defvar tabbar-new-tab-function nil (#$ . 13996)) (defalias 'tabbar-buffer-close-tab #[(tab) "\211@)r q\210\302 !*\207" [tab buffer kill-buffer] 3]) (byte-code "\301\211\207" [tabbar-close-tab-function tabbar-buffer-close-tab] 2) (defvar tabbar-last-tab nil) #@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 action) "\211\306\307 !>)\203\202%\310>\206\311\312\313!\206$\314 `\315\316FD)\317\n!\211\320=\2038\f\321 \202\203\322=\203Q \311=\205\203\205\203\f!\202\203\205\203\211\306\307 !>)\203i\202}\310>\206p\311\312\313!\206|\314 `\315\316FD)\f\"\210\323 *\207" [type event mouse-event mouse-button tab tabbar-last-tab click event-modifiers (mouse-2 mouse-3) mouse-1 event-start nil selected-window (0 . 0) 0 event-basic-type mouse-3 tabbar-context-menu close-tab tabbar-display-update action tabbar-close-tab-function tabbar-select-tab-function] 7 (#$ . 14380)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tabbar-click-on-tab speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@27 Reset memoized functions. (defalias 'tabbar-reset #[nil "\300\301!\210\300\302!\210\300\303!\207" [tabbar-memoize tabbar-ruler-tab-separator-image tabbar-make-tab-keymap tabbar-ruler-image] 2 (#$ . 15424) nil]) (tabbar-reset) #@48 Return non-nil if EVENT is a mouse drag event. (defalias 'tabbar-drag-p #[(event) "\301\302!>\207" [event drag event-modifiers] 3 (#$ . 15656)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tabbar-drag-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@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!>)\203\253\310\311!!\312 A\313 @#\312 A\314 @# \211\306\307!>)\2034 \202H \315>\206;\316\311\317!\206G\320 `\321\322FD)\323 !\211\324=\203]\f\325 \202\250\n\326=\203v\316=\205\250\205\250\f!\202\250\205\250 \211\306\307!>)\203\216 \202\242 \315>\206\225\316\311\317!\206\241\320 `\321\322FD)\f\"\210\327 .\207\330\307!>)\205\332\310\311!!\310\331!! \332\312 A\313 @#\312A\313@##*\207" [event target action type tab mouse-event click event-modifiers posn-string event-start get-text-property tabbar-tab tabbar-action (mouse-2 mouse-3) mouse-1 nil selected-window (0 . 0) 0 event-basic-type mouse-3 tabbar-context-menu close-tab tabbar-display-update drag event-end tabbar-drag-tab mouse-button tabbar-last-tab tabbar-close-tab-function tabbar-select-tab-function end-target start-target] 6 (#$ . 15947) "@e"]) #@113 Handle DRAGGED-TAB dragged-and-dropped onto DROPPED-TAB. Include full mouse EVENT from drag-and-drop action. (defalias 'tabbar-drag-tab #[(dragged-tab dropped-tab event) "\211A)\211 \211A)=\205\307 =?\205\307\n\211J) >G >G D\306V\203?\307!\307 !\306\211\203\200@\211=\204w =\203h\310\"\202w\235\204wBA\211\204K*\nL\210\n\306\n\311\f\312\n#*\210\211\313\314!>)\203\253\202\300\315>\206\263\316\317\306!\206\277\320 `\321\322FD)\"\210\323 -)\207" [dragged-tab tab start-tabset dropped-tab tabset tabs nil reverse append put template click event-modifiers (mouse-2 mouse-3) mouse-1 event-start selected-window (0 . 0) 0 tabbar-display-update drop-tail-length drag-tail-length dragdrop-pair new-tablist thistab --dolist-tail-- tabbar-select-tab-function event type] 7 (#$ . 16974)]) #@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 &optional not-last sel) "\306 \211 \211\307N+=\310\211@)!\311\312\313\314\311\315\316 ?\317\f=\203-\320\321\322\"\202.\323&FC@ =\203?A\202\\B\205\\\324 \205\\\3251Z\326 !\211A @0\202\\\210\327)C\330!DE\205\307\311\312\313\331\f=\203w\332\202x\333F\205\212F@\f=\203\211\332\202\212\333\327F\205\231F@\f=\205\231\334$FC@ =\203\251A\202\306B\205\306\324 \205\306\3251\304\326 !\211A @0\202\306\210\327)G\n\203\331 \203\325\335\202\342\332\202\342 \203\341\336\202\342\333!\337\340\341!\342\343D\344\345\341!\346\347& \337H\203H!\202\342\343D\344\345\350\351\341!\346\347& \337 \203WI\203W\352\353\334\"JrJq\210\354\216\35518\356\357!0\210\202MK\3601F\361L!0\202KK\362c))\210\340c\210ed{+\202X\340\341!\342\343D\344\345\341!\346\347& M\203\337\352\353\334\"NrNq\210\363\216\3641\210\356\365!0\210\202\234K\3661\225\361\367!0\202\232K\370c))\210\371 +\372C\373\327OP\211QAR\374R\375\"\204\276\376R\375\377#R\374R\201U\"\204\331O\204\331\376R\201U\201V#R\201WP!\203\366\374R\201X\"\204\366\376R\201XP#\210QR\241\210)Q+\341!\346\347\342\343D\201Y\201Z& \202a\337\352\353\334\"SrSq\210\201[\216\201\\13\356\365!0\210\202IK\201]1B\361\367!0\202GK\370c))\210\340c\210\371 +\341!\346\347\342\343D\201Y\201Z& E\203\317\337\201^\372G\327\211OP\211QAR\374R\375\"\204\211\376R\375\377#R\374R\201U\"\204\244O\204\244\376R\201U\201V#R\201WP!\203\301\374R\201X\"\204\301\376R\201XP#\210QR\241\210)Q+#\202\321T\260.\207" [tab tabset selected-p modified-p sel specs tabbar-current-tabset select buffer-modified-p :type xpm :data tabbar-ruler-image close :disabled :color face-attribute default :foreground "gray10" display-images-p (error) find-image nil tabbar-make-tab-keymap tabbar-ruler-tab-separator-image tabbar-selected tabbar-unselected t tabbar-selected-modified tabbar-unselected-modified propertize " " face tabbar-tab local-map help-echo tabbar-help-on-tab pointer hand mouse-face tabbar-highlight generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) ucs-insert "207A" (error) insert-char "*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] (error) "00D7" (error) 215 "x" buffer-string display 0 plist-get :ascent plist-put center tabbar-cached-spec tabbar-cached-image tabbar-use-images close-button-image keymap tabbar-ruler-fancy-tab-separator not-last separator-image tabbar-tab-label-function tabbar-ruler-modified-symbol #1# err 0x207A tabbar-ruler-fancy-close-image #2# nomask margin image plist #3=#:temp-buffer tabbar-separator-value :mask (heuristic t) natnump :margin tabbar-action close-tab #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] (error) (error) "|"] 18 (#$ . 17853)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tabbar-line-tab speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@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% *@\316\211ABC\205\214\317\320\321\322\316\n@ =\203Y\323\202Z\324\"FCDED=\203lF\202\213G\205\213\325 \205\213\3261\211\327D!\211FDE0\202\213\210\316)HI\204\226\330 \210J\204\237\331\332!\210K\204\250\331\333!\210L\204\261\331\334!\210M\203 \n>\204\324\335\336\"\210\211\211\307N)\211J)\233)\202\266\n\203cA\204cC\203#\n@\nA N\211O\337 \211O\211\306N+=P\340O\211O@)!Q\317\320\321\341\317\342\343Q?\344O =\203 \313\315\345\"\202!\346&FCDED=\2034F\202SG\205S\325 \205S\3261Q\327D!\211FDE0\202S\210\316)R\347O!SC\205\304\317\320\321\322O =\203p\323\202q\324N\205\203N@ =\203\202\323\202\203\324\316N\205\222N@ =\205\222\350$FCDED=\203\244F\202\303G\205\303\325 \205\303\3261\301\327D!\211FDE0\202\303\210\316)HP\203\330Q\203\324\351\202\342\323\202\342Q\203\341\352\202\342\324\353\354\304\f\355O\356S\357\360\304\f\361\362& \353T\203TO!\202O\355O\356S\357\360\363\364\304\f\361\362& \353Q\203XU\203X\365\366\350\"VrVq\210\367\216\37019\371\372!0\210\202NW\3731G\374X!0\202LW\375c))\210\354c\210ed{+\202Y\354\304\f\355O\356S\357\360\304\f\361\362& Y\2035\353\365\366\350\"ZrZq\210\376\216\3771\212\371\201h!0\210\202\244W\201i1\233\374\201j!0\202\242W\201kc))\210\201l +\201mR\201n\316[\\\211]A^\201o^\201p\"\204\326\201q^\201p\201r#^\201o^\201s\"\204\365[\204\365\201q^\201s\201t#^\201u\\!\203\201o^\201v\"\204\201q^\201v\\#\210]^\241\210)]+\304\f\361\362\355O\356S\201w\201x& \202\211\353\365\366\350\"_r_q\210\201y\216\201z1U\371\201h!0\210\202oW\201{1f\374\201j!0\202mW\201kc))\210\354c\210\201l +\304\f\361\362\355O\356S\201w\201x& C\203 \353\201|\201mH\316\211[\\\211]A^\201o^\201p\"\204\275\201q^\201p\201r#^\201o^\201s\"\204\334[\204\334\201q^\201s\201t#^\201u\\!\203\375\201o^\201v\"\204\375\201q^\201v\\#\210]^\241\210)]+#\202 I\260. BBB\n@ =A\nA\211\202\325\n@\316\211N\211O\337 \211O\211\306N+=P\340O\211O@)!Q\317\320\321\341\317\342\343Q?\344O =\203`\313\315\345\"\202a\346&FCDED=\203tF\202\223G\205\223\325 \205\223\3261\221\327D!\211FDE0\202\223\210\316)R\347O!SC\205\317\320\321\322O =\203\260\323\202\261\324N\205\303N@ =\203\302\323\202\303\324\316N\205\322N@ =\205\322\350$FCDED=\203\344F\202G\205\325 \205\3261\327D!\211FDE0\202\210\316)HP\203Q\203\351\202\"\323\202\"Q\203!\352\202\"\324\353\354\304\f\355O\356S\357\360\304\f\361\362& \353T\203CTO!\202EO\355O\356S\357\360\363\364\304\f\361\362& \353Q\203\230U\203\230\365\366\350\"VrVq\210\367\216\3701y\371\372!0\210\202\216W\3731\207\374X!0\202\214W\375c))\210\354c\210ed{+\202\231\354\304\f\355O\356S\357\360\304\f\361\362& Y\203u\353\365\366\350\"ZrZq\210\376\216\3771\312\371\201h!0\210\202\344W\201i1\333\374\201j!0\202\342W\201kc))\210\201l +\201mR\201n\316[\\\211]A^\201o^\201p\"\204\201q^\201p\201r#^\201o^\201s\"\2045[\2045\201q^\201s\201t#^\201u\\!\203V\201o^\201v\"\204V\201q^\201v\\#\210]^\241\210)]+\304\f\361\362\355O\356S\201w\201x& \202\311\353\365\366\350\"_r_q\210\201y\216\201z1\225\371\201h!0\210\202\257W\201{1\246\374\201j!0\202\255W\201kc))\210\354c\210\201l +\304\f\361\362\355O\356S\201w\201x& C\203K\353\201|\201mH\316\211[\\\211]A^\201o^\201p\"\204\375\201q^\201p\201r#^\201o^\201s\"\204[\204\201q^\201s\201t#^\201u\\!\203=\201o^\201v\"\204=\201q^\201v\\#\210]^\241\210)]+#\202MI\260. BBB\n@ =A\nA\211\204\330B\237B\365\366\350\"`r`q\210\201}\216\316\350\316\211abc\316d\350e\201~\201f\203\234J@\202\237JA\211\307N)\201nV\203\262K@\202\265KA\211\307N)\211J)GSW\203\314L@\202\317LAIF)\"\210`BA\203d|\210db\210\201~\201B\"\210eb\210\201\200\201\201!\201nV\203\335\201\201\"\210BA\211B\202\332.B\237B\316M\n\203\231C\203_ \n@\nA N\211O\337 \211O\211\306N+=P\340O\211O@)!Q\317\320\321\341\317\342\343Q?\344O =\203b\313\315\345\"\202c\346&FCDED=\203vF\202\225G\205\225\325 \205\225\3261\223\327D!\211FDE0\202\225\210\316)R\347O!SC\205 \317\320\321\322O =\203\262\323\202\263\324N\205\305N@ =\203\304\323\202\305\324\316N\205\324N@ =\205\324\350$FCDED=\203\346F\202 G\205 \325 \205 \3261 \327D!\211FDE0\202 \210\316)HP\203 Q\203 \351\202$ \323\202$ Q\203# \352\202$ \324\353\354\304\f\355O\356S\357\360\304\f\361\362& \353T\203E TO!\202G O\355O\356S\357\360\363\364\304\f\361\362& \353Q\203\232 U\203\232 \365\366\350\"VrVq\210\367\216\3701{ \371\372!0\210\202\220 W\3731\211 \374X!0\202\216 W\375c))\210\354c\210ed{+\202\233 \354\304\f\355O\356S\357\360\304\f\361\362& Y\203w\n\353\365\366\350\"ZrZq\210\376\216\3771\314 \371\201h!0\210\202\346 W\201i1\335 \374\201j!0\202\344 W\201kc))\210\201l +\201mR\201n\316[\\\211]A^\201o^\201p\"\204\n\201q^\201p\201r#^\201o^\201s\"\2047\n[\2047\n\201q^\201s\201t#^\201u\\!\203X\n\201o^\201v\"\204X\n\201q^\201v\\#\210]^\241\210)]+\304\f\361\362\355O\356S\201w\201x& \202\313\n\353\365\366\350\"_r_q\210\201y\216\201z1\227\n\371\201h!0\210\202\261\nW\201{1\250\n\374\201j!0\202\257\nW\201kc))\210\354c\210\201l +\304\f\361\362\355O\356S\201w\201x& C\203M \353\201|\201mH\316\211[\\\211]A^\201o^\201p\"\204\377\n\201q^\201p\201r#^\201o^\201s\"\204 [\204 \201q^\201s\201t#^\201u\\!\203? \201o^\201v\"\204? \201q^\201v\\#\210]^\241\210)]+#\202O I\260. BBB\nA\211\202\n@\316\211N\211O\337 \211O\211\306N+=P\340O\211O@)!Q\317\320\321\341\317\342\343Q?\344O =\203\234 \313\315\345\"\202\235 \346&FCDED=\203\260 F\202\317 G\205\317 \325 \205\317 \3261\315 \327D!\211FDE0\202\317 \210\316)R\347O!SC\205@\f\317\320\321\322O =\203\354 \323\202\355 \324N\205\377 N@ =\203\376 \323\202\377 \324\316N\205\fN@ =\205\f\350$FCDED=\203 \fF\202?\fG\205?\f\325 \205?\f\3261=\f\327D!\211FDE0\202?\f\210\316)HP\203T\fQ\203P\f\351\202^\f\323\202^\fQ\203]\f\352\202^\f\324\353\354\304\f\355O\356S\357\360\304\f\361\362& \353T\203\fTO!\202\201\fO\355O\356S\357\360\363\364\304\f\361\362& \353Q\203\324\fU\203\324\f\365\366\350\"VrVq\210\367\216\3701\265\f\371\372!0\210\202\312\fW\3731\303\f\374X!0\202\310\fW\375c))\210\354c\210ed{+\202\325\f\354\304\f\355O\356S\357\360\304\f\361\362& Y\203\261 \353\365\366\350\"ZrZq\210\376\216\3771 \371\201h!0\210\202 W\201i1 \374\201j!0\202 W\201kc))\210\201l +\201mR\201n\316[\\\211]A^\201o^\201p\"\204R \201q^\201p\201r#^\201o^\201s\"\204q [\204q \201q^\201s\201t#^\201u\\!\203\222 \201o^\201v\"\204\222 \201q^\201v\\#\210]^\241\210)]+\304\f\361\362\355O\356S\201w\201x& \202\353\365\366\350\"_r_q\210\201y\216\201z1\321 \371\201h!0\210\202\353 W\201{1\342 \374\201j!0\202\351 W\201kc))\210\354c\210\201l +\304\f\361\362\355O\356S\201w\201x& C\203\207\353\201|\201mH\316\211[\\\211]A^\201o^\201p\"\2049\201q^\201p\201r#^\201o^\201s\"\204X[\204X\201q^\201s\201t#^\201u\\!\203y\201o^\201v\"\204y\201q^\201v\\#\210]^\241\210)]+#\202\211I\260. BBB\nA\211\204C\203\205\211f\203\254J@\202\257JA\211\307N)\201nV\203\302K@\202\305KA\211\307N)\211J)GSW\203\334L@\202\337LAIF)\353\201|\201mH\316\211[\\\211]A^\201o^\201p\"\204\201q^\201p\201r#^\201o^\201s\"\2041[\2041\201q^\201s\201t#^\201u\\!\203R\201o^\201v\"\204R\201q^\201v\\#\210]^\241\210)]+#B\237\353\201\202\304\201\203@\345@F\361\201\204%Fg\201\205\201gg#*\202\357\211f\203\223J@\202\226JA\211\307N)\201nV\203\251K@\202\254KA\211\307N)\211J)GSW\203\303L@\202\306LAIF)B\237\353\201\202\304\201\203@\345@F\361\201\204%Eg\201\205\201gg#*.\207" [tabset sel tabs tabbar-background-color face color select start tabbar-default face-background facep face-attribute :inherit default nil :type xpm :data tabbar-ruler-tab-separator-image tabbar-selected tabbar-unselected display-images-p (error) find-image tabbar-line-separator tabbar-line-button home scroll-left scroll-right tabbar-scroll -1 tabbar-current-tabset buffer-modified-p tabbar-ruler-image close :disabled :color :foreground "gray10" tabbar-make-tab-keymap t tabbar-selected-modified tabbar-unselected-modified propertize " " tabbar-tab local-map help-echo tabbar-help-on-tab pointer hand mouse-face tabbar-highlight generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) ucs-insert "207A" (error) insert-char "*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] (error) padcolor atsel elts tabbar-ruler-fancy-tab-separator specs tabbar-cached-spec tabbar-cached-image tabbar-use-images separator-image tabbar-separator-value tabbar-home-button-value tabbar-scroll-left-button-value tabbar-scroll-right-button-value tabbar--track-selected not-last tab selected-p modified-p close-button-image keymap tabbar-tab-label-function tabbar-ruler-modified-symbol #1# err 0x207A tabbar-ruler-fancy-close-image #2# nomask margin image plist #3=#:temp-buffer #4=#:temp-buffer deactivate-mark inhibit-modification-hooks truncate-partial-width-windows truncate-lines buffer-undo-list tabbar-home-function template "00D7" (error) 215 "x" buffer-string display 0 plist-get :ascent plist-put center :mask (heuristic t) natnump :margin tabbar-action close-tab #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] (error) (error) "|" #[nil "\301!\205 \302!\207" [#4# buffer-name kill-buffer] 2] apply insert vertical-motion 1 "%-" :background arrow put] 18 (#$ . 21102)]) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312\313\314%\210\307\315\316\317\313\314%\210\307\320\321\322\313\314%\207" [function-put tabbar-line-format speed -1 put byte-optimizer byte-compile-inline-expand custom-declare-face tabbar-selected-modified ((t :inherit tabbar-selected :foreground "DarkOrange3" :weight bold)) "Face used for selected tabs." :group tabbar tabbar-unselected-modified ((t :inherit tabbar-unselected :foreground "DarkOrange3" :weight bold)) "Face used for unselected tabs." tabbar-key-binding ((t :foreground "white")) "Face for unselected, highlighted tabs."] 7) (defalias 'tabbar-ruler-modification-state-change #[nil "\303\304\n\301 #*\210\305 \207" [tabbar-current-tabset template tabset nil put tabbar-display-update] 4]) (defalias 'tabbar-ruler-on-buffer-modification #[nil "\300\301!\210\302 \207" [set-buffer-modified-p t tabbar-ruler-modification-state-change] 2]) (byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\210\303\313\314\315\307\310\311\312&\210\303\316\314\317\307\310\311\312&\210\303\320\314\321\307\310\311\312&\210\303\322\314\323\307\310\311\312&\210\303\324\325\326\307\327\311\312&\210\303\330\331\332\307\327\311\312&\210\303\333\334\335\307\327\311\312&\210\303\336\337\340\307\341\311\312&\210\303\342\343\344\307\345\311\312&\210\303\346\314\347\307\310\311\312&\210\303\350\314\351\307\310\311\312&\210\303\352\353\354\307\355\311\312&\207" [add-hook after-save-hook tabbar-ruler-modification-state-change custom-declare-variable tabbar-ruler-global-tabbar 't "Should tabbar-ruler have a global tabbar?" :type boolean :group tabbar-ruler tabbar-ruler-global-ruler nil "Should tabbar-ruler have a global ruler?" tabbar-ruler-popup-menu "Should tabbar-ruler have a popup menu. As mouse moves toward top of window, the menu pops up." tabbar-ruler-popup-toolbar "Should tabbar-ruler have a popup toolbar. As mouse moves toward top of window, the toolbar pops up." tabbar-ruler-popup-scrollbar "Should tabbas-ruler have popup scrollbar. As mouse moves, the scroll-bar pops up. Otherwise the sroll-bar is turned off." tabbar-ruler-popup-menu-min-y 5 "Minimum number of pixels from the top before a menu/toolbar pops up." integer tabbar-ruler-popup-menu-min-y-leave 50 "Minimum number of pixels form the top before a menu/toolbar disappears." tabbar-ruler-do-not-switch-on-ruler-when-tabbar-is-on-y 75 "Minimum number of pixels to switch on ruler when tabbar is on." tabbar-ruler-excluded-buffers '("*Messages*" "*Completions*" "*ESS*") "Excluded buffers in tabbar." (repeat (string :tag "Buffer Name")) tabbar-ruler-fight-igore-modes '(info-mode helm-mode package-menu-mode) "Exclude these mode when changing between tabbar and ruler." (repeat (symbol :tag "Major Mode")) tabbar-ruler-fancy-tab-separator "Separate each tab with a fancy generated image" tabbar-ruler-fancy-close-image "Use an image for the close" tabbar-ruler-movement-timer-delay 0.1 "Timer Delay for `tabbar-ruler-movement-timer'" number] 8) (defvar tabbar-ruler-tabbar-off t) (defvar tabbar-ruler-ruler-off t) (byte-code "\300\301!\302L\210\300\303!\302L\207" [make-variable-buffer-local tabbar-ruler-toolbar-off nil tabbar-ruler-ruler-off] 2) (defvar tabbar-ruler-toolbar-off nil) (defvar tabbar-ruler-menu-off nil) (byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\207" [add-hook find-file-hook #[nil "\300\301!\207" [tabbar-ruler-tabbar-ruler-fight t] 2 nil nil] custom-declare-variable tabbar-ruler-ruler-display-commands '(ac-trigger-commands esn-upcase-char-self-insert esn-magic-$ right-char left-char previous-line next-line backward-paragraph forward-paragraph cua-scroll-down cua-scroll-up cua-paste cua-paste-pop scroll-up scroll-down autopair-newline autopair-insert-opening autopair-skip-close-maybe autopair-backspace backward-delete-char-untabify delete-backward-char self-insert-command) "Ruler display commands." :group tabbar-ruler :type (repeat symbol)] 8) #@69 Defines the fighting behavior of the tabbar-ruler ruler and tabbar. (defalias 'tabbar-ruler-tabbar-ruler-fight #[(&optional initialize) "\3061 \307 \203 \310\202\203\310\211\202\311 \312\216\313\314\315 \"*\203)\310\202\n \235\2033\310\202\n\316=\203=\310\202\f\317=\203H\320 \202 \203\370!\203\370\f\">\203\257#\203a\321\322!\210$\203m\323\324!\210\310$%\204y\325\322!\210\326%&\203\221'\204\221(\327=\204\216\330\322!\210\326')\205(\327=?\205*?\205\331\322!\210\326\211*\202\311 \332\216\313\333\334\335\f\"\"*\203\303\310\202+\204\322$\205%\205#\203\333\321\322!\210$\203\347\323\324!\210\310$%?\205\325\322!\210\326\211%\202 \203\f$\205\323\324!\210\310\211$\202!\205%\205\325\324!\210\310\211%0\207,\336\337\340,!\")\207" [tabbar-ruler-keep-tabbar save-match-data-internal major-mode tabbar-ruler-fight-igore-modes last-command tabbar-ruler-global-ruler (error) minibufferp nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "^[*]Org Src " buffer-name helm-mode mouse-drag-region tabbar-ruler-mouse-movement scroll-bar-mode -1 ruler-mode 1 tabbar-mode t darwin menu-bar-mode tool-bar-mode #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\(mouse\\|ignore\\|window\\|frame\\)" format "%s" message "Error in post-command-hook for Ruler/Tabbar: %s" error-message-string tabbar-ruler-global-tabbar tabbar-ruler-ruler-display-commands tabbar-ruler-popup-scrollbar tabbar-ruler-ruler-off tabbar-ruler-tabbar-off tabbar-ruler-popup-menu tabbar-ruler-menu-off system-type tabbar-ruler-popup-toolbar tabbar-ruler-toolbar-off initialize error] 6 (#$ . 35301)]) (add-hook 'post-command-hook 'tabbar-ruler-tabbar-ruler-fight) (defvar tabbar-ruler-movement-timer nil) (defvar tabbar-ruler-movement-x nil) (defvar tabbar-ruler-movement-y nil) #@25 Mouse Movement function (defalias 'tabbar-ruler-mouse-movement #[nil "\203\306!\210\307 AA\307 A@ \204 \n\204\f\f\203: \203:\f\203\337 \203\337\f\nU\203: U\204\337\n\203\337 \203\337 \203J\310\311!\210\n \204Z\312\313!\210\314\203f\315\311!\210\316\204p\203u\202w Y\203\257\203\224\203\224\317=\204\221\320\311!\210\316 \203\337\317=\204\337\203\337\321\311!\210\316\202\337\203\307\204\307\317=\204\304\320\313!\210\314 \203\337\317=\204\337\204\337\321\313!\210\314\322\323\324 \203\353\324 \202\356\325\326!\325!!\"\316\327#\211*\207" [tabbar-ruler-movement-timer y-pos x-pos tabbar-ruler-movement-y tabbar-ruler-movement-x tabbar-ruler-popup-scrollbar cancel-timer mouse-pixel-position scroll-bar-mode 1 ruler-mode -1 t tabbar-mode nil darwin menu-bar-mode tool-bar-mode run-with-idle-timer time-add current-idle-time seconds-to-time 0 tabbar-ruler-mouse-movement tabbar-ruler-ruler-off tabbar-ruler-tabbar-off tabbar-ruler-menu-off tabbar-ruler-toolbar-off tabbar-ruler-popup-menu-min-y tabbar-ruler-popup-menu-min-y-leave tabbar-ruler-popup-menu system-type tabbar-ruler-popup-toolbar tabbar-ruler-movement-timer-delay] 5 (#$ . 37223) nil]) (tabbar-ruler-mouse-movement) #@28 Mouse movement timer reset (defalias 'tabbar-ruler-movement-timer-reset #[nil "\203\302!\210\303\304 !\305\306#\211\207" [tabbar-ruler-movement-timer tabbar-ruler-movement-timer-delay cancel-timer run-with-idle-timer seconds-to-time nil tabbar-ruler-mouse-movement] 4 (#$ . 38499) nil]) (byte-code "\301\302\303\"\210\304\301\207" [tabbar-buffer-groups-function add-hook post-command-hook tabbar-ruler-movement-timer-reset tabbar-buffer-groups] 3) (defalias 'last-tabbar-ruler-tabbar-buffer-groups #[nil "\300\207" [nil] 1]) #@113 Return the list of group names the current buffer belongs to. Return a list of one element based on major mode. (defalias 'tabbar-ruler-tabbar-buffer-groups #[nil "\302\267\202\303\202\304\202\305\202\306C\301J\207" [major-mode last-tabbar-ruler-tabbar-buffer-groups #s(hash-table size 19 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dired-mode 6 help-mode 10 apropos-mode 10 Info-mode 10 Man-mode 10 rmail-mode 14 rmail-edit-mode 14 vm-summary-mode 14 vm-mode 14 mail-mode 14 mh-letter-mode 14 mh-show-mode 14 mh-folder-mode 14 gnus-summary-mode 14 message-mode 14 gnus-group-mode 14 gnus-article-mode 14 score-mode 14 gnus-browse-killed-mode 14)) "Dired" "Help" "Mail" "Files"] 2 (#$ . 39037)]) #@173 Return the list of buffers to show in tabs. Exclude buffers whose name starts with a space or *, when they are not visiting a file. The current buffer is always included. (defalias 'tabbar-ruler-tabbar-buffer-list #[nil "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[(b) "p=\203\207\302!\203\207\303! \235\203\304\207\305\306\303!\307H\"\203'\304\207\310!\205.\207" [b tabbar-ruler-excluded-buffers buffer-file-name buffer-name nil char-equal 32 0 buffer-live-p] 4] buffer-list] 5 (#$ . 39771)]) #@97 Buffer group for projectile. Should be buffer local and speed up calculation of buffer groups. (defvar tabbar-ruler-projectile-tabbar-buffer-group-calc nil (#$ . 40294)) #@94 Return the list of group names BUFFER belongs to. Return only one group for each buffer. (defalias 'tabbar-ruler-projectile-tabbar-buffer-groups #[nil "\203\300J\207\302\300!\210\303p!\204 \304>\203\305\202]\306 \307\310O\311\230\203)\312\202]\31313\314 0\2027\210\202@\203@\315 C\202] \316\267\202R\317\202]\320\202]\321\202] \322=\203\\\323\202]\324\300J\207" [tabbar-ruler-projectile-tabbar-buffer-group-calc major-mode make-local-variable get-buffer-process (comint-mode compilation-mode) ("Term") buffer-name 0 1 "*" ("Misc") (error) projectile-project-root projectile-project-name #s(hash-table size 16 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (emacs-lisp-mode 70 python-mode 70 c-mode 70 c++-mode 70 makefile-mode 70 lua-mode 70 vala-mode 70 javascript-mode 74 js-mode 74 nxhtml-mode 74 html-mode 74 css-mode 74 org-mode 78 calendar-mode 78 diary-mode 78)) ("Coding") ("HTML") ("Org") dired-mode ("Dir") ("Main")] 3 (#$ . 40471)]) #@30 Group by projectile project. (defalias 'tabbar-ruler-group-by-projectile-project #[nil "\301\211\207" [tabbar-buffer-groups-function tabbar-ruler-projectile-tabbar-buffer-groups] 2 (#$ . 41464) nil]) (defalias 'tabbar-ruler-group-user-buffers-helper #[nil "\301 \302\303O\304\230\203\305\202\306=\203\305\202\307C\207" [major-mode buffer-name 0 1 "*" "emacs's buffers" dired-mode "user's buffers"] 3]) (defalias 'tabbar-ruler-group-user-buffers #[nil "\301\211\207" [tabbar-buffer-groups-function tabbar-ruler-group-user-buffers-helper] 2 nil nil]) #@46 Use tabbar's major-mode grouping of buffers. (defalias 'tabbar-ruler-group-buffer-groups #[nil "\301\211\207" [tabbar-buffer-groups-function tabbar-buffer-groups] 2 (#$ . 42030) nil]) (tabbar-ruler-group-user-buffers) #@27 Tabbar movement functions (defvar tabbar-display-functions '(tabbar-press-home tabbar-backward tabbar-forward tabbar-backward-tab tabbar-forward-tab tabbar-backward-group tabbar-forward-group tabbar-press-scroll-left tabbar-press-scroll-right) (#$ . 42255)) (defvar tabbar-ruler-keep-tabbar nil) (mapc #[(x) "\301\302\303\304\305!P!\306\307\305!\310Q\311\312\313\314\315\316\317DD\320BBBBBBBBBB!\207" [x eval defun intern "tabbar-ruler-" symbol-name (&optional arg) "Turn on tabbar before running `" "'" (interactive "p") (setq tabbar-ruler-keep-tabbar t) (unless tabbar-ruler-ruler-off (ruler-mode -1) (setq tabbar-ruler-ruler-off 't)) (when tabbar-ruler-tabbar-off (tabbar-mode 1) (setq tabbar-ruler-tabbar-off nil)) (setq current-prefix-arg current-prefix-arg) call-interactively quote ((setq tabbar-ruler-keep-tabbar t) (unless tabbar-ruler-ruler-off (ruler-mode -1) (setq tabbar-ruler-ruler-off 't)) (when tabbar-ruler-tabbar-off (tabbar-mode 1) (setq tabbar-ruler-tabbar-off nil)))] 13] tabbar-display-functions) #@22 Tabbar press up key. (defalias 'tabbar-ruler-up #[(&optional arg) "\301\302!\207" [current-prefix-arg call-interactively tabbar-ruler-tabbar-press-home] 2 (#$ . 43283) "p"]) #@129 Forward ruler. Takes into consideration if the home-key was pressed. This is based on the variable `tabbar--buffer-show-groups' (defalias 'tabbar-ruler-forward #[(&optional arg) "\203 \302\303!\210\304 \207 \302\305!\207" [tabbar--buffer-show-groups current-prefix-arg call-interactively tabbar-ruler-tabbar-forward-group tabbar-ruler-tabbar-press-home tabbar-ruler-tabbar-forward-tab] 2 (#$ . 43466) "p"]) #@72 Backward ruler. Takes into consideration if the home-key was pressed. (defalias 'tabbar-ruler-backward #[(&optional arg) "\203 \302\303!\210\304 \207 \302\305!\207" [tabbar--buffer-show-groups current-prefix-arg call-interactively tabbar-ruler-tabbar-backward-group tabbar-ruler-tabbar-press-home tabbar-ruler-tabbar-backward-tab] 2 (#$ . 43884) "p"]) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp set-temporary-overlay-map defalias #[(map &optional keep-pred) "\306\307!\306\310!\211\nBC\311\312\313\f\204\312\2020\f\314=\203+\315\316\317\320\nD\321BBE\2020\322\320\fDD\323\324\320DE\325\326\327\320 D\330BBEFE \211L\210 M\210\331\332\"\210 B\211,\207" [clearfunsym overlaysym map alist keep-pred clearfun make-symbol "clear-temporary-overlay-map" "t" lambda nil unless t eq this-command lookup-key quote ((this-command-keys-vector)) funcall remove-hook 'pre-command-hook setq emulation-mode-map-alists delq (emulation-mode-map-alists) add-hook pre-command-hook] 11 "Set a new keymap that will only exist for a short period of time.\nThe new keymap to use must be given in the MAP variable. When to\nremove the keymap depends on user input and KEEP-PRED:\n\n- if KEEP-PRED is nil (the default), the keymap disappears as\n soon as any key is pressed, whether or not the key is in MAP;\n\n- if KEEP-PRED is t, the keymap disappears as soon as a key *not*\n i in MAP is pressed;\n\n- otherwise, KEEP-PRED must be a 0-arguments predicate that will\n decide if the keymap should be removed (if predicate returns\n nil) or kept (otherwise). The predicate will be called after\n each key sequence."]] 3) #@34 Keymap for tabbar-ruler movement (defvar tabbar-ruler-move-keymap (make-sparse-keymap) (#$ . 45532)) (byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\306#\210\301\312\310#\210\301\313\314#\210\301\315\316#\207" [tabbar-ruler-move-keymap define-key [remap previous-line] tabbar-ruler-up [remap next-line] [remap backward-char] tabbar-ruler-backward [remap forward-char] tabbar-ruler-forward [remap left-char] [remap right-char] " " #[nil "\300\301!\207" [message "Exited tabbar-movement"] 2 nil nil] [return] #[nil "\300\301!\207" [message "Exited tabbar-movement"] 2 nil nil]] 4) #@117 Determines if emacs should keep the temporary keymap `tabbar-ruler-move-keymap' when running `tabbar-ruler-move'. (defalias 'tabbar-ruler-move-pred #[nil "\301>\207" [this-command (tabbar-ruler-up tabbar-ruler-backward tabbar-ruler-forward)] 2 (#$ . 46167)]) #@35 Start the movement for the tabbar (defalias 'tabbar-ruler-move #[nil "\304 \204\f\305\306!\210\304\n\203\307\310!\210\311\312\313!\210\314 \315\"\207" [tabbar-ruler-keep-tabbar tabbar-ruler-ruler-off tabbar-ruler-tabbar-off tabbar-ruler-move-keymap t ruler-mode -1 tabbar-mode 1 nil message "Use arrow keys to change buffers (or line movement commands). Exit with space/return or any other key." set-temporary-overlay-map tabbar-ruler-move-pred] 3 (#$ . 46435) nil]) (defalias 'on-saving-buffer #[nil "\303\304\n\301 #*\210\305 \207" [tabbar-current-tabset template tabset nil put tabbar-display-update] 4]) (defalias 'on-modifying-buffer #[nil "\303\304 !\210\305\306\n\301 #*\210\307 \207" [tabbar-current-tabset template tabset set-buffer-modified-p buffer-modified-p nil put tabbar-display-update] 4]) (defalias 'after-modifying-buffer #[(begin end length) "\303\304 !\210\305\306\n\301 #*\210\307 \207" [tabbar-current-tabset template tabset set-buffer-modified-p buffer-modified-p nil put tabbar-display-update] 4]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [add-hook after-save-hook on-saving-buffer first-change-hook on-modifying-buffer after-change-functions after-modifying-buffer] 3) #@33 Remove caches for tabbar-ruler. (defalias 'tabbar-ruler-remove-caches #[nil "\300\301\302 \"\207" [mapc #[(frame) "\301\302\"\207" [frame modify-frame-parameters ((tabbar-cache))] 3] frame-list] 3 (#$ . 47678)]) (byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\210\303\311\312\306\307$\210\310\311\307\"\207" [add-hook desktop-after-read-hook tabbar-ruler-remove-caches ad-add-advice enable-theme (tabbar-ruler-enable-theme-after nil t (advice lambda nil "Fix the tabbar faces when you change themes." (tabbar-install-faces))) after nil ad-activate disable-theme (tabbar-ruler-disable-theme-after nil t (advice lambda nil "Fix the tabbar faces when you change themes." (tabbar-install-faces)))] 5) #@1151 Eval BODY, then restore the buffer state under the assumption that no significant modification has been made in BODY. A change is considered significant if it affects the buffer text in any way that isn't completely restored again. Changes in text properties like `face' or `syntax-table' are considered insignificant. This macro allows text properties to be changed, even in a read-only buffer. This macro should be placed around all calculations which set "insignificant" text properties in a buffer, even when the buffer is known to be writeable. That way, these text properties remain set even if the user undoes the command which set them. This macro should ALWAYS be placed around "temporary" internal buffer changes (like adding a newline to calculate a text-property then deleting it again), so that the user never sees them on his `buffer-undo-list'. However, any user-visible changes to the buffer (like auto-newlines) must not be within a `ergoemacs-save-buffer-state', since the user then wouldn't be able to undo them. The return value is the value of the last form in BODY. This was stole/modified from `c-save-buffer-state' (defalias 'tabbar-ruler-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t) before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename) unwind-protect progn ((and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))] 5 (#$ . 48406)])) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\306\307!\207" [ad-add-advice tabbar-display-update (tabbar-ruler-fix-select-word nil t (advice lambda nil "Fix the tabbar selection of a word with the mouse." (tabbar-ruler-save-buffer-state ad-do-it))) around nil ad-activate provide tabbar-ruler] 5)