;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require custom toolbar-x tex-buf latex] 2) #@117 Return the help string of ITEM in `TeX-command-list'. If there is no help, the empty string is returned. (fn ITEM) (defalias 'TeX-bar-help-from-command-list #[257 "\301\302\">A@\211\203 \207\303\207" [TeX-command-list :help assoc ""] 5 (#$ . 198)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\300\316\302\317\304\301%\210\306\320\310\311\321DD\322\314\323\304\316&\210\306\324\310\311\325DD\326\314\327\304\316&\207" [custom-declare-group TeX-tool-bar nil "Tool bar support in AUCTeX." :group AUCTeX custom-declare-variable TeX-bar-TeX-buttons funcall function #[0 "\300\207" [(new-file open-file dired kill-buffer save-buffer cut copy paste undo separator tex next-error view bibtex spell)] 1] "List of buttons available in `tex-mode'.\nIt should be a list in the same format of the BUTTONS parameter\nin function `toolbarx-install-toolbar', often a symbol that\nlabels a button.\n\nType `\\[TeX-bar-TeX-buttons]' for a list of available buttons.\n\nButtons are defined in alists (labels associated to properties\nthat define a button). For a list of variables that hold such\nalists, see variable `TeX-bar-TeX-all-button-alists'." :type (list (set :inline t (const new-file) (const open-file) (const dired) (const kill-buffer) (const save-buffer) (const write-file) (const undo) (const cut) (const copy) (const paste) (const search-forward) (const print-buffer) (const separator) (const tex) (const next-error) (const view) (const file) (const bibtex) (const clean) (const spell)) (repeat (choice (symbol :tag "Label") (sexp :tag "General element")))) TeX-tool-bar-button-definitions "Collections of button definitions." TeX-bar-TeX-all-button-alists #[0 "\300\207" [(TeX-bar-TeX-button-alist toolbarx-default-toolbar-meaning-alist)] 1] "List of variables that hold buttons properties.\nEach element should be a symbol bound to list in the format of\nthe argument BUTTON-ALIST in function `toolbarx-install-toolbar'." (repeat variable) TeX-bar-TeX-button-alist #[0 "\300\207" [((tex :image (lambda nil (if TeX-PDF-mode "pdftex" "tex")) :command (progn (TeX-save-document #'TeX-master-file) (TeX-command "TeX" #'TeX-master-file -1)) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "TeX"))) (pdftex :image "pdftex" :command (progn (TeX-save-document #'TeX-master-file) (TeX-command "PDFTeX" #'TeX-master-file -1)) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "PDFTeX"))) (next-error :image "error" :command TeX-next-error :enable (TeX-error-report-has-errors-p) :visible (TeX-error-report-has-errors-p)) (view :image (lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi")) :command (TeX-command "View" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "View"))) (file :image "dvips" :command (TeX-command "File" #'TeX-master-file -1) :visible (not TeX-PDF-mode) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "File"))) (bibtex :image "bibtex" :command (TeX-command "BibTeX" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "BibTeX"))) (clean :image "delete" :command (TeX-command "Clean" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "Clean"))) (spell :image "spell" :command (TeX-command "Spell" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "Spell"))))] 1] "Alist for button definitions in TeX bar.\nValue should le a list where each element is of format (KEY .\nPROPS), where KEY is a symbol that labels the button and PROPS is\na list of properties of the button. For a description of the\nformat of PROPS, please see documentation of function\n`toolbarx-install-toolbar'. This custom variable is in the same\nformat of the argument MEANING-ALIST in the mentioned function." (alist :key-type symbol :value-type sexp)] 8) #@57 Display in a buffer a list of buttons for `tex-bar.el'. (defalias 'TeX-bar-TeX-buttons #[0 "\301\211\211\2033\211@\301\262\302\303\"\211\203#\211@\211@B\262A\266\202\202\210\211\237BB\262A\266\202\202\210\237\262r\304\305!q\210\306 \210\307c\210\211\203v\211@\310\311@\"c\210\211A\211\203g\211@\310\312\"c\210A\266\202\202T\210\313\314 \315 \"\210A\266\202\202E\210)\316\305\303\"\207" [TeX-bar-TeX-all-button-alists nil eval t get-buffer-create "*TeX tool bar buttons*" erase-buffer "Available buttons for TeX mode\n================================" format "\n\n`%s' provides the following buttons:\n " " %s" fill-region point-at-bol point-at-eol display-buffer] 9 (#$ . 4070) nil]) #@39 Install toolbar buttons for TeX mode. (defalias 'TeX-install-toolbar #[0 "\303\304!\210\305\306\307\310\"\"\210\311\312\313\314\315$\210\316 \314\n\211\203-\211@\317\320\315\"\"\262A\266\202\202\210\211\262\"\207" [TeX-data-directory TeX-bar-TeX-buttons TeX-bar-TeX-all-button-alists require toolbar-x add-to-list toolbarx-image-path expand-file-name "images" add-hook TeX-PDF-mode-hook toolbarx-refresh nil t toolbarx-install-toolbar append eval] 10 (#$ . 4788) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315\310\311%\210\300\316\302\303\317DD\320\306\321\310\313&\210\300\322\302\303\323DD\324\306\325\310\313&\207" [custom-declare-variable TeX-bar-LaTeX-buttons funcall function #[0 "\300\207" [(new-file open-file dired kill-buffer save-buffer cut copy paste undo separator latex next-error view bibtex spell)] 1] "List of buttons available in `latex-mode'.\nIt should be a list in the same format of the BUTTONS parameter\nin function `toolbarx-install-toolbar', often a symbol that\nlabels a button.\n\nType `\\[TeX-bar-LaTeX-buttons]' for a list of available buttons.\n\nButtons are defined in alists (labels associated to properties\nthat define a button). For a list of variables that hold such\nalists, see variable `TeX-bar-LaTeX-all-button-alists'." :type (list (set :inline t (const new-file) (const open-file) (const dired) (const kill-buffer) (const save-buffer) (const write-file) (const undo) (const cut) (const copy) (const paste) (const search-forward) (const print-buffer) (const separator) (const latex) (const next-error) (const view) (const file) (const bibtex) (const clean) (const spell) (const latex-symbols-experimental)) (repeat (choice (symbol :tag "Label") (sexp :tag "General element")))) :group TeX-tool-bar custom-declare-group TeX-tool-bar-button-definitions nil "Collections of button definitions." TeX-bar-LaTeX-all-button-alists #[0 "\300\207" [(TeX-bar-LaTeX-button-alist toolbarx-default-toolbar-meaning-alist)] 1] "List of variables that hold buttons properties.\nEach element should be a symbol bound to list in the format of\nthe argument BUTTON-ALIST in function `toolbarx-install-toolbar'." (repeat variable) TeX-bar-LaTeX-button-alist #[0 "\300\207" [((latex :image (lambda nil (if TeX-PDF-mode "pdftex" "tex")) :command (progn (TeX-save-document #'TeX-master-file) (TeX-command "LaTeX" #'TeX-master-file -1)) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "LaTeX"))) (pdflatex :image "pdftex" :command (progn (TeX-save-document #'TeX-master-file) (TeX-command "PDFLaTeX" #'TeX-master-file -1)) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "PDFLaTeX"))) (next-error :image "error" :command TeX-next-error :enable (TeX-error-report-has-errors-p) :visible (TeX-error-report-has-errors-p)) (view :image (lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi")) :command (TeX-command "View" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "View"))) (file :image "dvips" :command (TeX-command "File" #'TeX-master-file -1) :visible (not TeX-PDF-mode) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "File"))) (bibtex :image "bibtex" :command (TeX-command (if LaTeX-using-Biber "Biber" "BibTeX") #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list (if LaTeX-using-Biber "Biber" "BibTeX")))) (clean :image "delete" :command (TeX-command "Clean" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "Clean"))) (spell :image "spell" :command (TeX-command "Spell" #'TeX-master-file -1) :help (lambda (&rest ignored) (TeX-bar-help-from-command-list "Spell"))) (latex-symbols-experimental :alias :eval-group LaTeX-symbols-toolbar-switch-contents LaTeX-symbols-toolbar-contents))] 1] "Alist for button definitions in TeX bar.\nValue should le a list where each element is of format (KEY .\nPROPS), where KEY is a symbol that labels the button and PROPS is\na list of properties of the button. For a description of the\nformat of PROPS, please see documentation of function\n`toolbarx-install-toolbar'. This custom variable is in the same\nformat of the argument MEANING-ALIST in the mentioned function." (alist :key-type symbol :value-type sexp)] 8) #@57 Display in a buffer a list of buttons for `tex-bar.el'. (defalias 'TeX-bar-LaTeX-buttons #[0 "\301\211\211\2033\211@\301\262\302\303\"\211\203#\211@\211@B\262A\266\202\202\210\211\237BB\262A\266\202\202\210\237\262r\304\305!q\210\306 \210\307c\210\211\203v\211@\310\311@\"c\210\211A\211\203g\211@\310\312\"c\210A\266\202\202T\210\313\314 \315 \"\210A\266\202\202E\210)\316\305\303\"\207" [TeX-bar-LaTeX-all-button-alists nil eval t get-buffer-create "*TeX tool bar buttons*" erase-buffer "Available buttons for LaTeX mode\n================================" format "\n\n`%s' provides the following buttons:\n " " %s" fill-region point-at-bol point-at-eol display-buffer] 9 (#$ . 9063) nil]) #@41 Install toolbar buttons for LaTeX mode. (defalias 'LaTeX-install-toolbar #[0 "\303\304!\210\305\306\307\310\"\"\210\311\312\313\314\315$\210\311\316\313\315\211$\210\317 \314\n\211\2034\211@\320\321\315\"\"\262A\266\202\202\210\211\262\"\207" [TeX-data-directory TeX-bar-LaTeX-buttons TeX-bar-LaTeX-all-button-alists require toolbar-x add-to-list toolbarx-image-path expand-file-name "images" add-hook TeX-PDF-mode-hook toolbarx-refresh nil t TeX-update-style-hook toolbarx-install-toolbar append eval] 10 (#$ . 9787) nil]) #@91 Return the filename (no extension) for the image button of TEX-COMMAND. (fn TEX-COMMAND) (defalias 'TeX-bar-img-filename #[257 "\300\301\"\301\211\203\260\211@\211\302Y\203\"\211\303X\203\"\304BB\262\202\251\211\305Y\2036\211\306X\2036\211B\262\202\251\211\307\267\202\230\310B\262\311B\262\312B\262\304B\262\304B\262\202\251\311B\262\311B\262\312B\262\304B\262\304B\262\202\251\313B\262\304B\262\304B\262\202\251\314B\262\304B\262\304B\262\202\251\211\305Y\203\251\211\306X\203\251\211B\262A\266\202\202\210\211\237\260\207" [append nil 65 90 45 97 122 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 60 125 88 124 116 47 134)) 111 99 98 118 115] 8 (#$ . 10326)]) (byte-code "\301A\211\203\273\211@\211<\203\264\302A@!\203X\211@\301A\211\203F\211@\303\304\305H!!\306\307\304\305H!P\310\305H\311\312H\257B\262A\266\202\202\210\211\237\262CBB\262\266\202\264\211@\313PA\211\203\262\211@\211@\314\232\204\253@P\301A\211\203\233\211@\303\305H!\306\307\304\305H!P\310\305H\311\312H\257B\262A\266\202\202r\210\211\237\262CBB\262\266A\266\202\202^\266A\266\202\202\237\262\262\301\211\203\326\211@\211@B\262A\266\202\202\303\237\262\262\315\301!\210\316\317\306\320\311\321\310\322\323\324\325\326\327\330\331\332DE\333BBBBBE\257\334\335\336#D!\210\337\301\305\211\203)\211@T\262\334A\340\341\342ED\"B\262A\266\202\202 \334\237\343\"\262\266\202!\266\344\345!\207" [LaTeX-math-menu nil vectorp intern TeX-bar-img-filename 0 :image "symb-pics/" :help :command 1 " " "Special" (lambda (def-tmp-var) (defvar LaTeX-symbols-toolbar-visible-flag def-tmp-var "Non-nil means that the LaTeX symbols on toolbar are visible.\nInternal variable.")) (lambda (def-tmp-var) (defconst LaTeX-symbols-toolbar-switch-contents def-tmp-var)) latex-symbols-switch (lambda nil (if LaTeX-symbols-toolbar-visible-flag "ltx-symb-turn-off" "ltx-symb-turn-on")) (progn (setq LaTeX-symbols-toolbar-visible-flag (not LaTeX-symbols-toolbar-visible-flag)) (toolbarx-refresh)) lambda (&rest ignore) concat "Turn " (if LaTeX-symbols-toolbar-visible-flag "off " "on ") "the toolbar of LaTeX symbols (current class: " nth (1- LaTeX-symbols-active-menuitem) quote (")") append (:dropdown-group) (:variable LaTeX-symbols-active-menuitem :save offer :dropdown-prepend-command (setq LaTeX-symbols-toolbar-visible-flag t) :dropdown-help "Select a class of symbols to be displayed") (lambda (def-tmp-var) (defconst LaTeX-symbols-toolbar-contents def-tmp-var)) :insert eq LaTeX-symbols-active-menuitem (:insert LaTeX-symbols-toolbar-visible-flag :toolbar (bottom . top)) provide tex-bar] 19)