;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@40 Key=value options for newfloat macros. (defvar LaTeX-newfloat-key-val-options '(("fileext") ("listname") ("name") ("placement" ("t" "b" "p" "tbp" "htbp")) ("chapterlistsgaps" ("on" "off"))) (#$ . 150)) #@53 Buffer-local Key=value options for newfloat macros. (defvar LaTeX-newfloat-key-val-options-local nil (#$ . 358)) (make-variable-buffer-local 'LaTeX-newfloat-key-val-options-local) #@113 Information about newfloat-DeclareFloatingEnvironments in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-newfloat-DeclareFloatingEnvironment nil (#$ . 545)) #@113 Information about newfloat-DeclareFloatingEnvironments in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-newfloat-DeclareFloatingEnvironment-list nil (#$ . 735)) (make-variable-buffer-local 'LaTeX-newfloat-DeclareFloatingEnvironment-list) #@113 Information about newfloat-DeclareFloatingEnvironments in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-newfloat-DeclareFloatingEnvironment-changed nil (#$ . 1002)) (make-variable-buffer-local 'LaTeX-newfloat-DeclareFloatingEnvironment-changed) #@166 Add information about NEWFLOAT-DECLAREFLOATINGENVIRONMENTS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest NEWFLOAT-DECLAREFLOATINGENVIRONMENTS) (defalias 'LaTeX-add-newfloat-DeclareFloatingEnvironments #[128 "\300\301\"\207" [TeX-auto-add-information "newfloat-DeclareFloatingEnvironment"] 4 (#$ . 1276)]) #@110 List of newfloat-DeclareFloatingEnvironments active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-newfloat-DeclareFloatingEnvironment-list #[0 "\300\301!\207" [TeX-auto-list-information "newfloat-DeclareFloatingEnvironment"] 2 (#$ . 1611)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("newfloat-DeclareFloatingEnvironment" LaTeX-auto-newfloat-DeclareFloatingEnvironment LaTeX-add-newfloat-DeclareFloatingEnvironments LaTeX-newfloat-DeclareFloatingEnvironment-list LaTeX-newfloat-DeclareFloatingEnvironment-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-newfloat-DeclareFloatingEnvironment-list nil] 2]] 4) #@76 Matches the argument of `\DeclareFloatingEnvironment' from `newfloat.sty'. (defvar LaTeX-newfloat-DeclareFloatingEnvironment-regex (cons "\\\\DeclareFloatingEnvironment[ \n %]*\\[[ \n %{}a-zA-Z0-9=,-]*\\][ \n %]*{\\([^}]+\\)}\\(?:[ %]*{\\([^}]*\\)}\\)?" '((1 2) LaTeX-auto-newfloat-DeclareFloatingEnvironment)) (#$ . 2312)) #@72 Clear `LaTeX-auto-newfloat-DeclareFloatingEnvironment' before parsing. (defalias 'LaTeX-newfloat-auto-prepare #[0 "\301\211\207" [LaTeX-auto-newfloat-DeclareFloatingEnvironment nil] 2 (#$ . 2645)]) #@548 Process definded floats with \DeclareFloatingEnvironment. Depending on floating type passed as a comment to AUCTeX ("figure", "table" or "verbatim"), update `LaTeX-figure-label' and `LaTeX-table-label'. If RefTeX is loaded, add the new floating environment via `reftex-add-label-environments'. For "verbatim" environments, update `LaTeX-indent-environment-list' to suppress indentation. If `caption.el' is loaded, add the new floating environment to `LaTeX-caption-supported-float-types'. Also define the macros "listofENVs" and "listofENVes". (defalias 'LaTeX-newfloat-auto-cleanup #[0 "\302 \211\205\305\211@\211@A@\211\303\230\2035\304\305B!\210\306\307\300B\310#\210\311\312!\203\221\312\313\314BBBC!\210\202\221\211\315\230\203]\304\316B!\210\306\307\301B\310#\210\311\312!\203\221\312\317 \320BBBC!\210\202\221\211\321\230\203\213\304\322B!\210\306\323\324!\325B\310#\210\306\307\326B\310#\210\311\312!\203\221\312\327BC!\210\202\221\304\330B!\210\331\332!\203\236\306\323\332!\"\210\333\334O\335\230\203\262\336\337\340Q!\266\202\276\336\337\340Q\337\341Q\"\266A\266\202\202\207" [LaTeX-figure-label LaTeX-table-label LaTeX-newfloat-DeclareFloatingEnvironment-list "figure" LaTeX-add-environments (LaTeX-env-figure) add-to-list LaTeX-label-alist t fboundp reftex-add-label-environments 102 ("~\\ref{%s}" caption nil nil) "table" (LaTeX-env-figure) 116 ("~\\ref{%s}" caption nil nil) "verbatim" (["Float Position"]) make-local-variable LaTeX-indent-environment-list (current-indentation) LaTeX-listing-label (108 "lst:" "~\\ref{%s}" caption nil nil) (["Float Position"]) boundp LaTeX-caption-supported-float-types -1 nil "e" TeX-add-symbols "listof" "s" "es"] 9 (#$ . 2851)]) (byte-code "\301\302\303\304#\210\301\305\306\304#\210\301\307\310\304#\210\311\312\313#\207" [TeX-dialect add-hook TeX-auto-prepare-hook LaTeX-newfloat-auto-prepare t TeX-auto-cleanup-hook LaTeX-newfloat-auto-cleanup TeX-update-style-hook TeX-auto-parse TeX-add-style-hook "newfloat" #[0 "\304!\210\305 !\306 \307W\203\310\n\235\204&\310\nB\202&\311\n\235\204&\311\nB\312\313\314\315\316\317\320&\210\321\322!\205@ \323=\205@\324\325\326\"\207" [LaTeX-newfloat-DeclareFloatingEnvironment-regex LaTeX-newfloat-key-val-options LaTeX-newfloat-key-val-options-local TeX-install-font-lock TeX-auto-add-regexp copy-alist LaTeX-largest-level 2 ("within" ("chapter" "section" "none")) ("within" ("section" "none")) TeX-add-symbols ("DeclareFloatingEnvironment" [TeX-arg-key-val LaTeX-newfloat-key-val-options-local] (TeX-arg-eval (lambda nil (let ((newfloat (TeX-read-string (TeX-argument-prompt nil nil "Floating environment")))) (LaTeX-add-newfloat-DeclareFloatingEnvironments newfloat) (format "%s" newfloat))))) ("SetupFloatingEnvironment" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Floating environment") (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) (TeX-arg-key-val LaTeX-newfloat-key-val-options-local)) ("ForEachFloatingEnvironment" t) ("ForEachFloatingEnvironment*" t) ("PrepareListOf" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Floating environment") (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) t) ("newfloatsetup" (TeX-arg-eval (lambda nil (let ((keyvals (TeX-read-key-val nil (append '(("chapterlistsgap")) (if (< (LaTeX-largest-level) 2) '(("within" ("chapter" "section" "none"))) '(("within" ("section" "none")))))))) (format "%s" keyvals))))) featurep font-latex font-latex-setup font-latex-add-keywords (("DeclareFloatingEnvironment" "[{") ("SetupFloatingEnvironment" "{{") ("ForEachFloatingEnvironment" "*{") ("PrepareListOf" "{{") ("newfloatsetup" "{")) function] 7]] 4) #@54 Prompt for package options for the newfloat package. (defalias 'LaTeX-newfloat-package-options #[0 "\300\301\302\303\304 \305W\203\306\202\307\"\"\207" [TeX-read-key-val t append (("chapterlistsgap")) LaTeX-largest-level 2 (("within" ("chapter" "section" "none"))) (("within" ("section" "none")))] 6 (#$ . 6548)])