;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@57 List of languages supported by the babel LaTeX package. (defvar LaTeX-babel-language-list '("afrikaans" "azerbaijani" "bahasa" "indonesian" "indon" "bahasai" "bahasam" "malay" "meyalu" "basque" "breton" "bulgarian" "catalan" "croatian" "czech" "danish" "dutch" "english" "USenglish" "american" "UKenglish" "british" "canadian" "australian" "newzealand" "esperanto" "estonian" "finnish" "french" "francais" "canadien" "acadian" "galician" "austrian" "german" "germanb" "ngerman" "naustrian" "greek" "polutonikogreek" "hebrew" "icelandic" "interlingua" "irish" "italian" "latin" "lowersorbian" "samin" "norsk" "nynorsk" "polish" "portuges" "portuguese" "brazilian" "brazil" "romanian" "russian" "scottish" "spanish" "slovak" "slovene" "swedish" "serbian" "turkish" "ukrainian" "uppersorbian" "welsh" "albanian" "hindi" "thai" "thaicjk" "latvian" "turkmen" "hungarian" "magyar" "mongolian" "romansh" "lithuanian" "spanglish" "vietnamese" "japanese" "pinyin" "arabinc" "farsi" "ibygreek" "bgreek" "serbianic" "frenchle" "ethiop" "friulan") (#$ . 150)) #@67 Key=value options for `\babelprovide' macro from `babel' package. (defvar LaTeX-babel-babelprovide-key-val-options (byte-code "\301\302\303\304\305\"D\306BBB\207" [LaTeX-babel-language-list ("import") ("captions") "hyphenrules" append ("+") (("main") ("script") ("language") ("mapfont") ("intraspace") ("intrapenalty"))] 6) (#$ . 1204)) #@50 Return a list of languages used in the document. (defalias 'LaTeX-babel-active-languages #[0 "\303\211\304@A\305\306 \"A\"\211\203K\211@\307\310\"\262\211@\311\232\203'\211A@\262\202D\307@\312\"@\262\211\n\235\203D\211\235\203?\202B\211B\262A\266\202\202\f\210\203_\235\203Z\211\202]B\262\211\237\207" [LaTeX-provided-class-options LaTeX-provided-package-options LaTeX-babel-language-list nil append assoc "babel" split-string "=" "main" "\\."] 7 (#$ . 1548)]) #@92 Information about babel-babeltags in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-babel-babeltag nil (#$ . 2042)) #@92 Information about babel-babeltags in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-babel-babeltag-list nil (#$ . 2190)) (make-variable-buffer-local 'LaTeX-babel-babeltag-list) #@92 Information about babel-babeltags in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-babel-babeltag-changed nil (#$ . 2394)) (make-variable-buffer-local 'LaTeX-babel-babeltag-changed) #@124 Add information about BABEL-BABELTAGS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest BABEL-BABELTAGS) (defalias 'LaTeX-add-babel-babeltags #[128 "\300\301\"\207" [TeX-auto-add-information "babel-babeltag"] 4 (#$ . 2605)]) #@89 List of babel-babeltags active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-babel-babeltag-list #[0 "\300\301!\207" [TeX-auto-list-information "babel-babeltag"] 2 (#$ . 2855)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("babel-babeltag" LaTeX-auto-babel-babeltag LaTeX-add-babel-babeltags LaTeX-babel-babeltag-list LaTeX-babel-babeltag-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-babel-babeltag-list nil] 2]] 4) #@60 Matches the argument of `\babeltags' from `babel' package. (defvar LaTeX-babel-babeltags-regexp '("\\\\babeltags{\\([^}]+\\)}" 1 LaTeX-auto-babel-babeltag) (#$ . 3367)) #@50 Parse defined babel tags and add them to AUCTeX. (defalias 'LaTeX-babel-cleanup-babeltags #[0 "\302 \205\234\303\211\211\211\304\305\306\307\310\302 \311##\262\311\303\312\313#)\266\203\203X\314\311\312#\211\203T\211@\314\315\312#@\262B\262\316P\312DB\262\317DB\262A\266\202\202*\210\202u\314\315\312#@\262B\262\316P\312DB\262\317DB\262\320\321\"\210\320\322\"\210\323\324!\205\232 \325=\205\232\326\327\330\"\331\"\210\326\327\332\"\333\"\266\204\207" [inhibit-changing-match-data TeX-install-font-lock LaTeX-babel-babeltag-list nil replace-regexp-in-string "\\(%.*$\\|[ \n ]\\)" #1="" mapconcat car "," t string-match split-string "=" "text" -1 mapc TeX-add-symbols LaTeX-add-environments featurep font-latex font-latex-setup font-latex-add-keywords mapcar #[257 "\300P\301D\207" ["text" "{"] 3 "\n\n(fn X)"] textual #[257 "\211\300D\207" [#1#] 3 "\n\n(fn X)"] type-declaration] 11 (#$ . 3542)]) #@93 Information about babel-babelfonts in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-babel-babelfont nil (#$ . 4489)) #@93 Information about babel-babelfonts in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-babel-babelfont-list nil (#$ . 4639)) (make-variable-buffer-local 'LaTeX-babel-babelfont-list) #@93 Information about babel-babelfonts in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-babel-babelfont-changed nil (#$ . 4846)) (make-variable-buffer-local 'LaTeX-babel-babelfont-changed) #@126 Add information about BABEL-BABELFONTS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest BABEL-BABELFONTS) (defalias 'LaTeX-add-babel-babelfonts #[128 "\300\301\"\207" [TeX-auto-add-information "babel-babelfont"] 4 (#$ . 5060)]) #@90 List of babel-babelfonts active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-babel-babelfont-list #[0 "\300\301!\207" [TeX-auto-list-information "babel-babelfont"] 2 (#$ . 5314)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("babel-babelfont" LaTeX-auto-babel-babelfont LaTeX-add-babel-babelfonts LaTeX-babel-babelfont-list LaTeX-babel-babelfont-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-babel-babelfont-list nil] 2]] 4) #@74 Matches the argument of `\babelfont' from `babel' package. (defvar LaTeX-babel-babelfont-regexp '("\\\\babelfont\\(?:\\[[^]]*\\]\\)?[ \n %]*{\\([^}]+\\)}" 1 LaTeX-auto-babel-babelfont) (#$ . 5835)) #@53 Parse defined font-families and add them to AUCTeX. (defalias 'LaTeX-babel-cleanup-babelfont #[0 "\301 \205W\302\303\301 \"\211\205U\211@\211\304\235\204N\211\305P\306P\307P\310\311\312B\313B\314BE\"\210\315\316!\203L\317=\203L\320\321B\322BD\323\"\210\320\324BC\325\"\210\266A\266\202\202\n\262\207" [TeX-install-font-lock LaTeX-babel-babelfont-list mapcar car ("rm" "sf" "tt") "family" "default" "text" apply TeX-add-symbols (-1) (-1) (t) featurep font-latex font-latex-setup font-latex-add-keywords (#1="") (#1#) type-declaration ("{") type-command] 11 (#$ . 6054)]) #@49 Clear `LaTeX-auto-babel-babel*' before parsing. (defalias 'LaTeX-babel-auto-prepare #[0 "\302\211\211\207" [LaTeX-auto-babel-babeltag LaTeX-auto-babel-babelfont nil] 3 (#$ . 6648)]) #@26 Process parsed elements. (defalias 'LaTeX-babel-auto-cleanup #[0 "\300 \210\301 \207" [LaTeX-babel-cleanup-babeltags LaTeX-babel-cleanup-babelfont] 1 (#$ . 6838)]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\207" [add-hook TeX-auto-prepare-hook LaTeX-babel-auto-prepare t TeX-auto-cleanup-hook LaTeX-babel-auto-cleanup TeX-update-style-hook TeX-auto-parse] 4) #@101 Prompt for a language with completion and insert it as an argument. (fn OPTIONAL &optional PROMPT) (defalias 'TeX-arg-babel-lang #[513 "\300\301\302\303#\304 \"\"\207" [TeX-argument-insert completing-read TeX-argument-prompt "Language" LaTeX-babel-active-languages] 8 (#$ . 7233)]) #@70 Prompt for a language and insert it as an argument of ENV. (fn ENV) (defalias 'LaTeX-env-babel-lang #[257 "\300\301\302\303\304\305 \"\"\"\207" [LaTeX-insert-environment format "{%s}" completing-read "Language: " LaTeX-babel-active-languages] 8 (#$ . 7525)]) #@45 Load style files of babel active languages. (defalias 'LaTeX-babel-load-languages #[0 "\300\301\302 \"\207" [mapc TeX-run-style-hooks LaTeX-babel-active-languages] 3 (#$ . 7792)]) (TeX-add-style-hook "babel" #[0 "\303 \210\304\305\303\306\307$\210\310!\210\310 !\210\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341&\210\342\343\344\345#\210\346\347!\205I\n\350=\205I\351\352\353\"\210\351\354\355\"\207" [LaTeX-babel-babeltags-regexp LaTeX-babel-babelfont-regexp TeX-install-font-lock LaTeX-babel-load-languages add-hook LaTeX-after-usepackage-hook nil t TeX-auto-add-regexp TeX-add-symbols ("selectlanguage" TeX-arg-babel-lang) ("foreignlanguage" TeX-arg-babel-lang t) ("babeltags" t) ("babelensure" (TeX-arg-key-val (("include") ("exclude") ("fontenc" ("OT1" "OT2" "OT3" "OT4" "OT6" "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" "X2" "LY1" "LV1" "LGR")))) TeX-arg-babel-lang) ("shorthandon" "Shorthands list") ("shorthandoff" "Shorthands list") ("shorthandoff*" "Shorthands list") ("useshorthands" "Character") ("useshorthands*" "Character") ("defineshorthand" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt t nil "Language(s)") (LaTeX-babel-active-languages)) #1=""] t nil) ("aliasshorthand" "Original" "Alias") ("languageshorthands" TeX-arg-babel-lang) ("babelshorthand" "Short hand") ("ifbabelshorthand" "Character" t nil) ("AfterBabelLanguage" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Language") LaTeX-babel-language-list) t) ("babelfont" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt t nil "Language(s)") LaTeX-babel-language-list) ","] (TeX-arg-eval let ((fontfam (completing-read (TeX-argument-prompt nil nil "font family") '("rm" "sf" "tt")))) (unless (member "fontspec" (TeX-style-list)) (require 'tex-buf) (TeX-check-engine-add-engines 'luatex 'xetex) (TeX-run-style-hooks "fontspec") (LaTeX-fontspec-auto-cleanup)) (LaTeX-add-babel-babelfonts fontfam) (LaTeX-babel-cleanup-babelfont) (format "%s" fontfam)) [TeX-arg-key-val LaTeX-fontspec-font-features-local] LaTeX-fontspec-arg-font) ("babelprovide" [TeX-arg-key-val LaTeX-babel-babelprovide-key-val-options] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Language") LaTeX-babel-language-list)) ("languagename" 0) ("iflanguage" TeX-arg-babel-lang t nil) ("babelhyphen" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Type/Text") '("soft" "hard" "repeat" "empty"))) ("babelhyphen*" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Type/Text") '("soft" "hard" "repeat" "empty"))) ("babelhyphenation" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt nil nil "Language(s)") LaTeX-babel-language-list) ","] t) ("ensureascii" "Text") ("languageattribute" TeX-arg-babel-lang t) LaTeX-add-environments ("otherlanguage" LaTeX-env-babel-lang) ("otherlanguage*" LaTeX-env-babel-lang) ("hyphenrules" LaTeX-env-babel-lang) featurep font-latex font-latex-setup font-latex-add-keywords (("selectlanguage" "{") ("foreignlanguage" "{{") ("babeltags" "{") ("babelensure" "{{") ("shorthandon" "{") ("shorthandoff" "*{") ("useshorthands" "*{") ("languageshorthands" "{") ("babelshorthand" "{") ("AfterBabelLanguage" "{") ("babelfont" "[{[{") ("babelprovide" "[{") ("languagename" #1#) ("iflanguage" "{{{") ("babelhyphen" "*{") ("babelhyphenation" "[{") ("ensureascii" "{")) function (("defineshorthand" "[{{") ("aliasshorthand" "{{") ("languageattribute" "{{")) variable] 25] TeX-dialect) #@51 Prompt for package options for the babel package. (defalias 'LaTeX-babel-package-options #[0 "\301\302\303\304\305\306\"\"\"\207" [LaTeX-babel-language-list TeX-read-key-val t append (("KeepShorthandsActive") ("activeacute") ("activegrave") ("shorthands" ("off")) ("safe" ("none" "ref" "bib")) ("math" ("active" "normal")) ("config") ("main" LaTeX-babel-language-list) ("headfoot" LaTeX-babel-language-list) ("noconfigs") ("nocase") ("silent") ("showlanguages") ("nocase") ("silent") ("strings" ("generic" "unicode" "encoded" "OT1" "OT2" "OT3" "OT4" "OT6" "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" "X2" "LY1" "LV1" "LGR")) ("hyphenmap" ("off" "main" "select" "other" "other*")) ("bidi" ("default" "basic" "basic-r" "bidi-l" "bidi-r")) ("layout" ("sectioning" "counters" "lists" "captions" "contents" "footnotes" "columns" "extras")) ("base")) mapcar list] 7 (#$ . 11350)])