;ELC ;;; Compiled ;;; in Emacs version 25.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'tex) #@57 Key=value options for enumitem macros and environments. (defvar LaTeX-enumitem-key-val-options '(("topsep") ("partopsep") ("parsep") ("itemsep") ("leftmargin" ("*" "!")) ("itemindent" ("*" "!")) ("labelsep" ("*" "!")) ("labelwidth" ("*" "!")) ("labelindent" ("*" "!")) ("labelsep*") ("labelindent*") ("widest") ("widest*") ("rightmargin") ("label") ("label*") ("ref") ("font") ("format") ("align" ("left" "right" "parleft")) ("start") ("resume") ("resume*") ("series") ("beginpenalty") ("midpenalty") ("endpenalty") ("before") ("before*") ("after") ("after*") ("style" ("standard" "multiline" "nextline" "sameline" "unboxed")) ("noitemsep") ("nosep") ("wide") ("itemjoin") ("itemjoin*") ("afterlabel") ("mode" ("boxed" "unboxed"))) (#$ . 425)) #@70 Buffer-local key=value options for enumitem macros and environments. (defvar LaTeX-enumitem-key-val-options-local nil (#$ . 1175)) (make-variable-buffer-local 'LaTeX-enumitem-key-val-options-local) #@119 Local list of all environments definded with `\newlist' plus the ones initially available through `enumitem' package. (defvar LaTeX-enumitem-newlist-list-local nil (#$ . 1380)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-list-local) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-newlist nil (#$ . 1627)) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-newlist-list nil (#$ . 1779)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-list) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-newlist-changed nil (#$ . 1989)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-changed) #@98 Add information about ENUMITEM-NEWLISTS to the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-add-enumitem-newlists #[(&rest enumitem-newlists) "\301\302\"\207" [enumitem-newlists TeX-auto-add-information "enumitem-newlist"] 3 (#$ . 2205)]) #@91 List of enumitem-newlists active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-newlist-list #[nil "\300\301!\207" [TeX-auto-list-information "enumitem-newlist"] 2 (#$ . 2473)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-newlist" LaTeX-auto-enumitem-newlist LaTeX-add-enumitem-newlists LaTeX-enumitem-newlist-list LaTeX-enumitem-newlist-changed) t add-hook TeX-remove-style-hook #[nil "\301\211\207" [LaTeX-enumitem-newlist-list nil] 2]] 4) #@62 Matches the arguments of `\newlist' from `enumitem' package. (defvar LaTeX-enumitem-newlist-regexp '("\\\\newlist{\\([^}]+\\)}{\\([^}]+\\)}" (1 2) LaTeX-auto-enumitem-newlist) (#$ . 3007)) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetLabelAlign nil (#$ . 3203)) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetLabelAlign-list nil (#$ . 3368)) (make-variable-buffer-local 'LaTeX-enumitem-SetLabelAlign-list) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetLabelAlign-changed nil (#$ . 3597)) (make-variable-buffer-local 'LaTeX-enumitem-SetLabelAlign-changed) #@104 Add information about ENUMITEM-SETLABELALIGNS to the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-add-enumitem-SetLabelAligns #[(&rest enumitem-SetLabelAligns) "\301\302\"\207" [enumitem-SetLabelAligns TeX-auto-add-information "enumitem-SetLabelAlign"] 3 (#$ . 3832)]) #@97 List of enumitem-SetLabelAligns active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetLabelAlign-list #[nil "\300\301!\207" [TeX-auto-list-information "enumitem-SetLabelAlign"] 2 (#$ . 4130)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetLabelAlign" LaTeX-auto-enumitem-SetLabelAlign LaTeX-add-enumitem-SetLabelAligns LaTeX-enumitem-SetLabelAlign-list LaTeX-enumitem-SetLabelAlign-changed) t add-hook TeX-remove-style-hook #[nil "\301\211\207" [LaTeX-enumitem-SetLabelAlign-list nil] 2]] 4) #@67 Matches the argument of `\SetLabelAlign' from `enumitem' package. (defvar LaTeX-enumitem-SetLabelAlign-regexp '("\\\\SetLabelAlign{\\([^}]+\\)}" 1 LaTeX-auto-enumitem-SetLabelAlign) (#$ . 4718)) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetEnumitemKey nil (#$ . 4920)) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemKey-list nil (#$ . 5087)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemKey-list) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemKey-changed nil (#$ . 5319)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemKey-changed) #@105 Add information about ENUMITEM-SETENUMITEMKEYS to the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-add-enumitem-SetEnumitemKeys #[(&rest enumitem-SetEnumitemKeys) "\301\302\"\207" [enumitem-SetEnumitemKeys TeX-auto-add-information "enumitem-SetEnumitemKey"] 3 (#$ . 5557)]) #@98 List of enumitem-SetEnumitemKeys active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetEnumitemKey-list #[nil "\300\301!\207" [TeX-auto-list-information "enumitem-SetEnumitemKey"] 2 (#$ . 5860)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetEnumitemKey" LaTeX-auto-enumitem-SetEnumitemKey LaTeX-add-enumitem-SetEnumitemKeys LaTeX-enumitem-SetEnumitemKey-list LaTeX-enumitem-SetEnumitemKey-changed) t add-hook TeX-remove-style-hook #[nil "\301\211\207" [LaTeX-enumitem-SetEnumitemKey-list nil] 2]] 4) #@69 Matches the arguments of `\SetEnumitemKey' from `enumitem' package. (defvar LaTeX-enumitem-SetEnumitemKey-regexp '("\\\\SetEnumitemKey{\\([^}]+\\)}" 1 LaTeX-auto-enumitem-SetEnumitemKey) (#$ . 6457)) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetEnumitemValue nil (#$ . 6664)) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemValue-list nil (#$ . 6835)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemValue-list) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemValue-changed nil (#$ . 7073)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemValue-changed) #@107 Add information about ENUMITEM-SETENUMITEMVALUES to the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-add-enumitem-SetEnumitemValues #[(&rest enumitem-SetEnumitemValues) "\301\302\"\207" [enumitem-SetEnumitemValues TeX-auto-add-information "enumitem-SetEnumitemValue"] 3 (#$ . 7317)]) #@100 List of enumitem-SetEnumitemValues active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetEnumitemValue-list #[nil "\300\301!\207" [TeX-auto-list-information "enumitem-SetEnumitemValue"] 2 (#$ . 7631)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetEnumitemValue" LaTeX-auto-enumitem-SetEnumitemValue LaTeX-add-enumitem-SetEnumitemValues LaTeX-enumitem-SetEnumitemValue-list LaTeX-enumitem-SetEnumitemValue-changed) t add-hook TeX-remove-style-hook #[nil "\301\211\207" [LaTeX-enumitem-SetEnumitemValue-list nil] 2]] 4) #@71 Matches the arguments of `\SetEnumitemValue' from `enumitem' package. (defvar LaTeX-enumitem-SetEnumitemValue-regexp '("\\\\SetEnumitemValue{\\([^}]+\\)}{\\([^}]+\\)}" (0 1 2) LaTeX-auto-enumitem-SetEnumitemValue) (#$ . 8246)) #@50 Clear various `LaTeX-enumitem-*' before parsing. (defalias 'LaTeX-enumitem-auto-prepare #[nil "\304\211\304\211\211\207" [LaTeX-auto-enumitem-newlist LaTeX-auto-enumitem-SetLabelAlign LaTeX-auto-enumitem-SetEnumitemKey LaTeX-auto-enumitem-SetEnumitemValue nil] 3 (#$ . 8479)]) #@59 Move parsing results into right places for further usage. (defalias 'LaTeX-enumitem-auto-cleanup #[nil "\305 \306\211\203; @\211@A@\307\n\310D!\210 \311\230\204% \312\230\203,\313\314\n\315B\"\210\316\n\317BC!\210* A\211\204 *\305 \205N\320\321\322\321\323\305 \"\"\f\"\211\207" [env-type --dolist-tail-- env type LaTeX-enumitem-newlist-list-local LaTeX-enumitem-newlist-list nil LaTeX-add-environments LaTeX-enumitem-env-with-opts "description" "description*" add-to-list LaTeX-item-list LaTeX-item-argument TeX-ispell-skip-setcdr (ispell-tex-arg-end 0) append mapcar list car] 7 (#$ . 8766)]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\207" [add-hook TeX-auto-prepare-hook LaTeX-enumitem-auto-prepare t TeX-auto-cleanup-hook LaTeX-enumitem-auto-cleanup TeX-update-style-hook TeX-auto-parse] 4) #@92 Update available key-val options, then insert ENV and optional key-val and the first item. (defalias 'LaTeX-enumitem-env-with-opts #[(env) "\305 \210\306\307\310 \"\211\205\n\311\230?\205\312\313\n\")\"\210\314 \203*\315 \210\316\210\202-\317\210\320\316!\210\321\322\323 \324R!\203@`\325 |\210\326 \210\327 \210\330 \210\321\331!?\205f\332\f\"?\205f\325 \333 Z\334 V\205f\335\336!\207" [env LaTeX-enumitem-key-val-options-local opts TeX-comment-start-regexp LaTeX-indent-environment-list LaTeX-enumitem-update-key-val-options LaTeX-insert-environment TeX-read-key-val t "" format "[%s]" TeX-active-mark LaTeX-find-matching-begin 1 0 delete-char looking-at "^[ ]+$\\|" "^[ ]*" "+[ ]*$" line-end-position delete-horizontal-space TeX-deactivate-mark LaTeX-insert-item "$" assoc line-beginning-position current-fill-column LaTeX-fill-paragraph nil] 6 (#$ . 9610)]) #@100 Ask for new type (value) for the "align" key and add it to `LaTeX-enumitem-key-val-options-local'. (defalias 'LaTeX-arg-SetLabelAlign #[(optional) "\302 \210\303\304!\305 \"\210\306!)\207" [val optional LaTeX-enumitem-update-key-val-options TeX-read-string "Alignment: " TeX-argument-insert LaTeX-add-enumitem-SetLabelAligns] 3 (#$ . 10497)]) #@87 Ask for a new key to be defined and add it to `LaTeX-enumitem-key-val-options-local'. (defalias 'LaTeX-arg-SetEnumitemKey #[(optional) "\304 \210\305\306!\307 \310#\311 \"\210\311\n\"\210\312 !*\207" [optional LaTeX-enumitem-key-val-options-local replace key LaTeX-enumitem-update-key-val-options TeX-read-string "New Key: " TeX-read-key-val "Replacement" TeX-argument-insert LaTeX-add-enumitem-SetEnumitemKeys] 5 (#$ . 10849)]) #@88 Ask for a new value added to an existing key incl. the final replacement of the value. (defalias 'LaTeX-arg-SetEnumitemValue #[(optional) "\304 \210\305\306\"\307\310!\311\n \"\210\311 \"\210\312\313\n\314 \315\260\n E!*\207" [LaTeX-enumitem-key-val-options-local val key optional LaTeX-enumitem-update-key-val-options completing-read "Key: " TeX-read-string "String value: " TeX-argument-insert LaTeX-add-enumitem-SetEnumitemValues "\\SetEnumitemValue{" "}{" "}"] 6 (#$ . 11289)]) #@89 Update the buffer-local key-val options before offering them in `enumitem'-completions. (defalias 'LaTeX-enumitem-update-key-val-options #[nil "\306 \307\211\203 @\211\n\235\204\nB A\211\204 *\310 \307\211\203\227 @\211A@\311 8\312\n\"A\313\n!\314\312\"@\" \203p\315\316\317\fC #!D\211\235\203e\202jB)\202\212\fCD\211\235\203\202\202\207B)\313!- A\211\204'*\320 \307\211\205\361 @\321@\312\n\"A\313\n!\314\312\"@\"\315\316\317\fC #!D\211\235\203\333\202\340B)\313!- A\211\204\242\307*\207" [key --dolist-tail-- LaTeX-enumitem-key-val-options-local keyvals val val-match LaTeX-enumitem-SetEnumitemKey-list nil LaTeX-enumitem-SetEnumitemValue-list 2 assoc copy-alist assq-delete-all TeX-delete-duplicate-strings apply append LaTeX-enumitem-SetLabelAlign-list "align" temp opts #1=#:va #2=#:va newalign #3=#:va] 7 (#$ . 11782)]) (TeX-add-style-hook "enumitem" #[nil "\306!\210\306 !\210\306\n!\210\306 !\210\307\f!\310.\311\312\313\"\203%\314\315.\".\316\317\320\321#\210\311\312\313\"\203=\316\322\323\324#\210\325\326\327\"\210\330\331\332\333\334$\210\330\335\336\337\340\341\342\343&\210\311\312\344\"\203Z\330\345!\210\346\347!\205p/\350=\205p\351\352\353\"\210\351\354\355\"\207" [LaTeX-enumitem-newlist-regexp LaTeX-enumitem-SetEnumitemKey-regexp LaTeX-enumitem-SetEnumitemValue-regexp LaTeX-enumitem-SetLabelAlign-regexp LaTeX-enumitem-key-val-options LaTeX-enumitem-key-val-options-local TeX-auto-add-regexp copy-alist (("itemize") ("enumerate") ("description")) LaTeX-provided-package-options-member "enumitem" "inline" append (("itemize*") ("enumerate*") ("description*")) LaTeX-add-environments ("itemize" LaTeX-enumitem-env-with-opts) ("enumerate" LaTeX-enumitem-env-with-opts) ("description" LaTeX-enumitem-env-with-opts) ("itemize*" LaTeX-enumitem-env-with-opts) ("enumerate*" LaTeX-enumitem-env-with-opts) ("description*" LaTeX-enumitem-env-with-opts) add-to-list LaTeX-item-list ("description*" . LaTeX-item-argument) TeX-add-symbols ("newlist" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string "Name: ")) (type (completing-read "Type: " '(("itemize") ("enumerate") ("description") ("itemize*") ("enumerate*") ("description*")))) (depth (TeX-read-string "Max-depth: "))) (setq LaTeX-enumitem-newlist-list-local (append `(,(list name)) LaTeX-enumitem-newlist-list-local)) (when (or (string-equal type "description") (string-equal type "description*")) (add-to-list 'LaTeX-item-list `(,name . LaTeX-item-argument))) (LaTeX-add-environments `(,name LaTeX-enumitem-env-with-opts)) (LaTeX-add-enumitem-newlists (list name type)) (TeX-ispell-skip-setcdr `((,name ispell-tex-arg-end 0))) (TeX-argument-insert name optional) (TeX-argument-insert type optional) (format "%s" depth))))) ("renewlist" (TeX-arg-eval completing-read "Name: " LaTeX-enumitem-newlist-list-local) (TeX-arg-eval completing-read "Type: " '(("itemize") ("enumerate") ("description") ("itemize*") ("enumerate*") ("description*"))) "Max-depth") ("setlist" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple "Environment(s), level(s): " `(,@LaTeX-enumitem-newlist-list-local ("1") ("2") ("3") ("4"))) ","] (TeX-arg-eval (lambda nil (LaTeX-enumitem-update-key-val-options) (let ((opts (TeX-read-key-val nil LaTeX-enumitem-key-val-options-local))) (format "%s" opts))))) ("setlist*" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple "Environment, level: " `(,@LaTeX-enumitem-newlist-list-local ("1") ("2") ("3") ("4"))) ","] (TeX-arg-eval (lambda nil (LaTeX-enumitem-update-key-val-options) (let ((opts (TeX-read-key-val nil LaTeX-enumitem-key-val-options-local))) (format "%s" opts))))) ("setlistdepth" "Integer") ("AddEnumerateCounter" 3) ("AddEnumerateCounter*" 3) ("restartlist" (TeX-arg-eval (lambda nil (let ((enums '("enumerate"))) (when (LaTeX-provided-package-options-member "enumitem" "inline") (pushnew "enumerate*" enums :test #'equal)) (dolist (env-type (LaTeX-enumitem-newlist-list)) (let ((env (car env-type)) (type (cadr env-type))) (when (or (string-equal type "enumerate") (string-equal type "enumerate*")) (pushnew env enums :test #'equal)))) (completing-read "List name: " enums))))) ("SetLabelAlign" LaTeX-arg-SetLabelAlign t) ("SetEnumitemKey" LaTeX-arg-SetEnumitemKey) ("SetEnumitemValue" LaTeX-arg-SetEnumitemValue "Replacement") "shortlabels" ("SetEnumerateShortLabel" (TeX-arg-eval completing-read "Key: " '(("A") ("a") ("I") ("i") ("1"))) "Replacement") featurep font-latex font-latex-setup font-latex-add-keywords (("newlist" "{{{") ("renewlist" "{{{") ("setlist" "*[{") ("AddEnumerateCounter" "*{{{") ("SetLabelAlign" "{{") ("SetEnumitemKey" "{{") ("SetEnumitemValue" "{{{")) function (("restartlist" "{") ("setlistdepth" "{") ("SetEnumerateShortLabel" "{{")) variable LaTeX-enumitem-newlist-list-local TeX-install-font-lock] 8] LaTeX-dialect) #@43 Package options for the enumitem package. (defvar LaTeX-enumitem-package-options '("inline" "ignoredisplayed" "shortlabels" "loadonly") (#$ . 16686))