;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require tex latex tex-buf] 2) #@94 Information about polyglossia-langs in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-polyglossia-lang nil (#$ . 171)) #@94 Information about polyglossia-langs in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-polyglossia-lang-list nil (#$ . 322)) (make-variable-buffer-local 'LaTeX-polyglossia-lang-list) #@94 Information about polyglossia-langs in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-polyglossia-lang-changed nil (#$ . 531)) (make-variable-buffer-local 'LaTeX-polyglossia-lang-changed) #@128 Add information about POLYGLOSSIA-LANGS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest POLYGLOSSIA-LANGS) (defalias 'LaTeX-add-polyglossia-langs #[128 "\300\301\"\207" [TeX-auto-add-information "polyglossia-lang"] 4 (#$ . 747)]) #@91 List of polyglossia-langs active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-polyglossia-lang-list #[0 "\300\301!\207" [TeX-auto-list-information "polyglossia-lang"] 2 (#$ . 1004)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("polyglossia-lang" LaTeX-auto-polyglossia-lang LaTeX-add-polyglossia-langs LaTeX-polyglossia-lang-list LaTeX-polyglossia-lang-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-polyglossia-lang-list nil] 2]] 4) #@48 Matches languages set with polyglossia macros. (defvar LaTeX-polyglossia-lang-regexp "\\\\set\\(defaultlanguage\\|mainlanguage\\|otherlanguages?\\)[ \n ]*\\(?:\\[\\(.*\\)\\]\\)?[ \n ]*{\\([A-Za-z, ]+\\)}" (#$ . 1534)) #@60 Matches polyglossia languages options set using " etkeys". (defvar LaTeX-polyglossia-setkeys-regexp "\\\\setkeys[ \n ]*{\\([A-Za-z]+\\)}[ \n ]*{\\([^}]*\\)}" (#$ . 1760)) #@46 Temporary for parsing polyglossia languages. (defvar LaTeX-auto-polyglossia-lang nil (#$ . 1939)) #@53 Temporary for parsing polyglossia language options. (defvar LaTeX-auto-polyglossia-setkeys nil (#$ . 2043)) #@46 Clear some polyglossia variables before use. (defalias 'LaTeX-polyglossia-prepare #[0 "\303\211\303\211\207" [LaTeX-auto-polyglossia-lang LaTeX-auto-polyglossia-setkeys LaTeX-polyglossia-lang-list nil] 3 (#$ . 2157)]) #@103 Move languages and their options from `LaTeX-auto-polyglossia-lang' to `LaTeX-polyglossia-lang-list'. (defalias 'LaTeX-polyglossia-cleanup #[0 "\301C\301C\302\303\304#\"\207" [LaTeX-auto-polyglossia-lang nil mapc make-closure #[257 "\302\303\304\300\301$\305@!\"\207" [V0 V1 mapc make-closure #[257 "\300\302AA\240\210\301\305 \"A@\240\210\306C\302A@C\300\242\307\232?\205#\310\300\242@!\301\242\205,\310\301\242!$\211\f\235\2035\f\207\306\fC\"\211\207" [V0 V1 V2 LaTeX-auto-polyglossia-setkeys LaTeX-polyglossia-lang-list assoc append ("") LaTeX-listify-package-options] 7 "\n\n(fn LANGUAGE)"] LaTeX-listify-package-options] 7 "\n\n(fn ELT)"]] 7 (#$ . 2385)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\307#\210\300\305\310\307#\207" [add-hook TeX-auto-prepare-hook LaTeX-polyglossia-prepare TeX-auto-cleanup-hook LaTeX-polyglossia-cleanup TeX-update-style-hook TeX-auto-parse t LaTeX-polyglossia-load-languages] 4) #@63 List of languages supported by the polyglossia LaTeX package. (defvar LaTeX-polyglossia-language-list '("albanian" "amharic" "arabic" "armenian" "asturian" "bahasai" "bahasam" "basque" "bengali" "brazil" "breton" "bulgarian" "catalan" "coptic" "croatian" "czech" "danish" "divehi" "dutch" "english" "esperanto" "estonian" "farsi" "finnish" "french" "friulan" "galician" "german" "greek" "hebrew" "hindi" "icelandic" "interlingua" "irish" "italian" "kannada" "khmer" "korean" "lao" "latin" "latvian" "lithuanian" "lsorbian" "magyar" "malayalam" "marathi" "nko" "norsk" "nynorsk" "occitan" "piedmontese" "polish" "portuges" "romanian" "romansh" "russian" "samin" "sanskrit" "scottish" "serbian" "slovak" "slovenian" "spanish" "swedish" "syriac" "tamil" "telugu" "thai" "tibetan" "turkish" "turkmen" "ukrainian" "urdu" "usorbian" "vietnamese" "welsh") (#$ . 3338)) #@100 Return a list of polyglossia languages used in the document. The last language is the default one. (defalias 'LaTeX-polyglossia-active-languages #[0 "\301C\301C\302\303\304#\"\210\242\207" [LaTeX-polyglossia-lang-list nil mapc make-closure #[257 "\301A@\302\230\206A@\303\230\240\210\301\242\203\300\304\300\242@C\"\240\207\211\211\300\242@B\240\207" [V0 V1 "defaultlanguage" "mainlanguage" append] 5 "\n\n(fn ELT)"]] 7 (#$ . 4207)]) #@161 Return non-nil if OPTION has been given to polyglossia LANGUAGE. The value is actually the tail of the list of options given to LANGUAGE. (fn LANGUAGE OPTION) (defalias 'LaTeX-polyglossia-lang-option-member #[514 "\211\301\"AA\235\207" [LaTeX-polyglossia-lang-list assoc] 6 (#$ . 4660)]) #@418 Prompt for language and its options with completion and insert them as arguments. This function is triggered by " etdefaultlanguage", " etotherlanguage", " etotherlanguages", and " etkeys" macros by polyglossia package. OPTIONAL and DEFAULT are ignored, if MULTIPLE is non-nil prompt for multiple languages, if SETKEYS is non-nil insert options as second mandatory argument. (fn OPTIONAL DEFAULT MULTIPLE SETKEYS) (defalias 'LaTeX-arg-polyglossia-lang #[1028 "\203\305\202 \306\203\307\202\310\203\311 \202\"\312\211\203+\313\314\"\210\2021\315\316P!\210\2039\317\202V\320\321\322\"!\262\323!\203UJ\203U\324?J\"\202V\317\262\204f \n\325\326\"\210*\203q\327\330\331#\262\325\312\"\210\205~\325\312\"\207" [LaTeX-polyglossia-language-list LaTeX-optop LaTeX-optcl TeX-arg-closing-brace TeX-arg-opening-brace TeX-completing-read-multiple completing-read "Languages: " "Language: " LaTeX-polyglossia-active-languages nil mapc #[257 "\300\301P!\207" [TeX-run-style-hooks "gloss-"] 4 "\n\n(fn ELT)"] TeX-run-style-hooks "gloss-" "" intern format "LaTeX-polyglossia-%s-options-list" boundp TeX-read-key-val TeX-argument-insert t mapconcat identity ","] 11 (#$ . 4958)]) #@171 Prompt for setup options of polyglossia package. If OPTIONAL is non-nil, insert the resulting value as an optional argument, otherwise as a mandatory one. (fn OPTIONAL) (defalias 'LaTeX-arg-polyglossiasetup-options #[257 "\300\301\"\207" [TeX-arg-key-val (("language") ("hyphennames") ("script") ("direction" ("RL" "LR")) ("scripttag") ("langtag") ("hyphenmins") ("frenchspacing" ("true" "false")) ("indentfirst" ("true" "false")) ("fontsetup" ("true" "false")))] 4 (#$ . 6177)]) #@45 Load style files of babel active languages. (defalias 'LaTeX-polyglossia-load-languages #[0 "\300\301\302 \"\207" [mapc #[257 "\300\301P!\207" [TeX-run-style-hooks "gloss-"] 4 "\n\n(fn ELT)"] LaTeX-polyglossia-active-languages] 3 (#$ . 6665)]) (TeX-add-style-hook "polyglossia" #[0 "\303\304!\204\n\305\304!\210\306\307\310\"\210\311\312B!\210\311 \313B!\210\314\315\316\317\320$\210\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337&\210\340\341\342\330\343\332\333\334\335\336\337&\n\210\303\344!\205R\n\345=\205R\346\347\350\"\207" [LaTeX-polyglossia-lang-regexp LaTeX-polyglossia-setkeys-regexp TeX-install-font-lock featurep tex-buf require TeX-check-engine-add-engines luatex xetex TeX-auto-add-regexp ((3 1 2) LaTeX-auto-polyglossia-lang) ((1 2) LaTeX-auto-polyglossia-setkeys) TeX-run-style-hooks "etoolbox" "makecmds" "xkeyval" "fontspec" TeX-add-symbols ("setdefaultlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) ("setmainlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) ("setotherlanguage" (LaTeX-arg-polyglossia-lang nil nil nil)) ("setotherlanguages" (LaTeX-arg-polyglossia-lang nil t nil)) ("setkeys" (LaTeX-arg-polyglossia-lang nil nil t)) ("PolyglossiaSetup" (TeX-arg-eval completing-read "Language: " (LaTeX-polyglossia-active-languages)) LaTeX-arg-polyglossiasetup-options) "selectbackgroundlanguage" ("resetdefaultlanguage" ["argument"] 1) "normalfontlatin" "rmfamilylatin" "sffamilylatin" "ttfamilylatin" "selectlanguage" "foreignlanguage" TeX-declare-expert-macros "polyglossia" "PolyglossiaSetup" "resetdefaultlanguage" font-latex font-latex-setup font-latex-add-keywords (("setdefaultlanguage" "[{") ("setmainlanguage" "[{") ("setotherlanguage" "[{") ("setotherlanguages" "{") ("setkeys" "{{")) function] 15] TeX-dialect) #@54 Arabic language options for the polyglossia package. (defvar LaTeX-polyglossia-arabic-options-list '(("calendar" ("gregorian" "islamic")) ("locale" ("default" "mashriq" "libya" "algeria" "tunisia" "morocco" "mauritania")) ("numerals" ("mashriq" "maghrib")) ("abjadjimnotail" ("false" "true"))) (#$ . 8436)) #@55 Bengali language options for the polyglossia package. (defvar LaTeX-polyglossia-bengali-options-list '(("numerals" ("Western" "Devanagari")) ("changecounternumbering" ("true" "false"))) (#$ . 8749)) #@55 Catalan language options for the polyglossia package. (defvar LaTeX-polyglossia-catalan-options-list '(("babelshorthands" ("true" "false"))) (#$ . 8954)) #@53 Dutch language options for the polyglossia package. (defvar LaTeX-polyglossia-dutch-options-list '(("babelshorthands" ("true" "false"))) (#$ . 9114)) #@55 English language options for the polyglossia package. (defvar LaTeX-polyglossia-english-options-list '(("variant" ("american" "usmax" "british" "australian" "newzealand")) ("ordinalmonthday" ("true" "false"))) (#$ . 9270)) #@53 Farsi language options for the polyglossia package. (defvar LaTeX-polyglossia-farsi-options-list '(("numerals" ("western" "eastern"))) (#$ . 9499)) #@54 German language options for the polyglossia package. (defvar LaTeX-polyglossia-german-options-list '(("variant" ("german" "austrian" "swiss")) ("spelling" ("new" "old")) ("latesthyphen" ("true" "false")) ("babelshorthands" ("true" "false")) ("script" ("latin" "fraktur"))) (#$ . 9653)) #@53 Greek language options for the polyglossia package. (defvar LaTeX-polyglossia-greek-options-list '(("variant" ("monotonic" "polytonic" "ancient")) ("numerals" ("greek" "arabic")) ("attic" ("true" "false"))) (#$ . 9945)) #@54 Hebrew language options for the polyglossia package. (defvar LaTeX-polyglossia-hebrew-options-list '(("numerals" ("hebrew" "arabic")) ("calendar" ("hebrew" "gregorian"))) (#$ . 10171)) #@53 Hindi language options for the polyglossia package. (defvar LaTeX-polyglossia-hindi-options-list '(("numerals" ("Western" "Devanagari"))) (#$ . 10362)) #@51 Lao language options for the polyglossia package. (defvar LaTeX-polyglossia-lao-options-list '(("numerals" ("lao" "arabic"))) (#$ . 10520)) #@55 Russian language options for the polyglossia package. (defvar LaTeX-polyglossia-russian-options-list '(("spelling" ("modern" "old")) ("babelshorthands" ("true" "false"))) (#$ . 10666)) #@56 Sanskrit language options for the polyglossia package. (defvar LaTeX-polyglossia-sanskrit-options-list '(("Script" ("Devanagari"))) (#$ . 10857)) #@55 Serbian language options for the polyglossia package. (defvar LaTeX-polyglossia-serbian-options-list '(("script" ("cyrillic" "latin"))) (#$ . 11009)) #@54 Syriac language options for the polyglossia package. (defvar LaTeX-polyglossia-syriac-options-list '(("numerals" ("western" "eastern" "abjad"))) (#$ . 11165)) #@52 Thai language options for the polyglossia package. (defvar LaTeX-polyglossia-thai-options-list '(("numerals" ("thai" "arabic"))) (#$ . 11330)) #@46 Package options for the polyglossia package. (defvar LaTeX-polyglossia-package-options '("babelshorthands" "localmarks" "nolocalmarks" "quiet") (#$ . 11479))