;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'tex)
#@41 List of logos provided by "hologo.sty".
(defvar LaTeX-hologo-logo-names '("(La)TeX" "AmSLaTeX" "AmSTeX" "biber" "BibTeX" "BibTeX8" "ConTeXt" "emTeX" "eTeX" "ExTeX" "HanTheThanh" "iniTeX" "KOMAScript" "La" "LaTeX" "LaTeX2e" "LaTeX3" "LaTeXe" "LaTeXML" "LaTeXTeX" "LuaLaTeX" "LuaTeX" "LyX" "METAFONT" "MetaFun" "METAPOST" "MetaPost" "MiKTeX" "NTS" "OzMF" "OzMP" "OzTeX" "OzTtH" "PCTeX" "pdfTeX" "pdfLaTeX" "PiC" "PiCTeX" "plainTeX" "SageTeX" "SLiTeX" "SliTeX" "teTeX" "TeX" "TeX4ht" "TTH" "virTeX" "VTeX" "Xe" "XeLaTeX" "XeTeX") (#$ . 102))
#@45 Global key=value options for hologo macros.
(defvar LaTeX-hologo-key-val-options-global '(("break" ("true" "false")) ("hyphenbreak" ("true" "false")) ("spacebreak" ("true" "false")) ("discretionarybreak" ("true" "false"))) (#$ . 647))
#@44 Local key=value options for hologo macros.
(defvar LaTeX-hologo-key-val-options-local '(("variant" ("sf" "sc" "lift" "narrow" "simple" "space" "hyphen" "runtogether"))) (#$ . 888))
#@17 

(fn OPTIONAL)
(defalias 'LaTeX-hologo--arg-use-region-or-query-logo-name #[257 "\303 \203 \304 \305 {\235\203 	c\210\305 b\210\nc\207\306\307\310\"\"\207" [LaTeX-hologo-logo-names TeX-grop TeX-grcl use-region-p region-beginning region-end TeX-argument-insert completing-read "Logo name: "] 5 (#$ . 1075)])
(TeX-add-style-hook "hologo" #[0 "\301\302\303\304\305\306\307\310\311\312\313\314&\210\315\316!\205$ \317=\205$ \320\321\322\"\210\320\323\324\"\207" [TeX-install-font-lock TeX-add-symbols ("hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) ("Hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) ("hologoSetup" (TeX-arg-key-val LaTeX-hologo-key-val-options-global)) ("hologoLogoSetup" (TeX-arg-eval (lambda nil (let* ((logo (completing-read "Logo name: " LaTeX-hologo-logo-names)) (keyval (TeX-read-key-val nil (cond ((string= logo "BibTeX") (append '(("variant" ("sf" "sc"))) LaTeX-hologo-key-val-options-global)) ((string= logo "ConTeXt") (append '(("variant" ("narrow" "simple"))) LaTeX-hologo-key-val-options-global)) ((string= logo "plainTeX") (append '(("variant" ("space" "hyphen" "runtogether"))) LaTeX-hologo-key-val-options-global)) ((or (string= logo "SLiTeX") (string= logo "SliTeX")) (append '(("variant" ("lift" "narrow" "lift"))) LaTeX-hologo-key-val-options-global)) (t LaTeX-hologo-key-val-options-global))))) (TeX-argument-insert logo nil) (format "%s" keyval))))) ("hologoDriverSetup" (TeX-arg-eval completing-read "Driver: " '("pdftex" "luatex" "dvipdfm" "dvipdfmx" "dvips" "dvipsone" "xdvi" "xetex" "vtex" "driverfallback"))) ("hologoFontSetup" (TeX-arg-key-val (("general") ("bibsf") ("rm") ("sc") ("sf") ("sy") ("logo")))) ("hologoLogoFontSetup" (TeX-arg-eval (lambda nil (let* ((logo (completing-read "Logo name: " '("BibTeX" "ExTeX" "SliTeX" "AmS" "NTS" "KOMAScript" "METAFONT" "METAPOST"))) (keyval (TeX-read-key-val nil (cond ((string= logo "BibTeX") '(("bibsf") ("sc"))) ((string= logo "ExTeX") '(("rm") ("sy"))) ((string= logo "SliTeX") '(("rm") ("sc"))) ((or (string= logo "AmS") (string= logo "NTS")) '(("sy"))) ((string= logo "KOMAScript") '(("sf"))) ((or (string= logo "METAFONT") (string= logo "METAPOST")) '(("logo"))) (t nil))))) (TeX-argument-insert logo nil) (format "%s" keyval))))) ("hologoVariant" LaTeX-hologo--arg-use-region-or-query-logo-name (TeX-arg-eval (lambda nil (let ((setup (TeX-read-key-val nil (append LaTeX-hologo-key-val-options-local LaTeX-hologo-key-val-options-global)))) (format "%s" setup))))) ("HologoVariant" LaTeX-hologo--arg-use-region-or-query-logo-name (TeX-arg-eval (lambda nil (let ((setup (TeX-read-key-val nil (append LaTeX-hologo-key-val-options-local LaTeX-hologo-key-val-options-global)))) (format "%s" setup))))) ("hologoList" 0) ("hologoEntry" "Logo name" "Variant" "Since") featurep font-latex font-latex-setup font-latex-add-keywords (("hologo" "{") ("Hologo" "{")) textual (("hologoSetup" "{") ("hologoLogoSetup" "{{") ("hologoDriverSetup" "{") ("hologoFontSetup" "{") ("hologoLogoFontSetup" "{{") ("hologoVariant" "{{") ("HologoVariant" "{{") ("hologoList" "") ("hologoEntry" "{{{")) function] 12] TeX-dialect)
#@41 Package options for the hologo package.
(defvar LaTeX-hologo-package-options nil (#$ . 4199))