;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@48 Subdued expressions to highlight in TeX modes. (defconst tex-font-lock-keywords-1 '(("\\\\\\(begin\\|chapter\\|end\\|new\\(?:command\\|environment\\|theorem\\)\\|par\\(?:agraph\\|t\\)\\|renewcommand\\|s\\(?:ection\\|ub\\(?:paragraph\\|s\\(?:ection\\|ub\\(?:paragraph\\|section\\)\\)\\)\\)\\|title\\)\\*? *\\(\\[[^]]*\\] *\\)*{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 3 font-lock-function-name-face keep) ("\\\\\\(re\\)?newcommand\\** *\\(\\\\[A-Za-z@]+\\)" 2 font-lock-function-name-face keep) ("\\\\\\(addto\\(?:counter\\|length\\)\\|newcounter\\*?\\|set\\(?:counter\\|\\(?:leng\\|towid\\)th\\)\\) *{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 2 font-lock-variable-name-face) ("\\\\\\(bibliography\\|document\\(?:class\\|style\\)\\|epsf\\(?:ig\\)?\\|in\\(?:clude\\(?:graphics\\*?\\|only\\)?\\|put\\)\\|nofiles\\|psfig\\|usepackage\\|verbatiminput\\) *\\(\\[[^]]*\\] *\\)*{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 3 font-lock-builtin-face) ("^[ ]*\\\\def *\\\\\\(\\(\\w\\|@\\)+\\)" 1 font-lock-function-name-face)) (#$ . 87)) #@46 Gaudy expressions to highlight in TeX modes. (defconst tex-font-lock-keywords-2 (append tex-font-lock-keywords-1 '(("\\\\\\(bibitem\\|cite\\|eqref\\|glossary\\|index\\|label\\|nocite\\|\\(?:page\\|v\\)?ref\\) *\\(\\[[^]]*\\] *\\)*{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 3 font-lock-constant-face) ("\\(\"[<`]\\|<<\\|``\\|«\\)[^'\">»]+\\(\"['>]\\|''\\|>>\\|»\\)" . font-lock-string-face) ("\\\\\\(\\\\\\*?\\|allowdisplaybreaks\\|clear\\(?:\\(?:double\\)?page\\)\\|displaybreak\\|enlargethispage\\|linebreak\\|n\\(?:ew\\(?:\\(?:lin\\|pag\\)e\\)\\|o\\(?:\\(?:lin\\|pag\\)ebreak\\)\\)\\|pagebreak\\)" . font-lock-warning-face) "\\\\\\([a-zA-Z@]+\\**\\|[^ \n]\\)" ("\\\\\\(boldsymbol\\|pmb\\|text\\(?:bf\\|sc\\|up\\)\\) *{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 2 'bold append) ("\\\\\\(emph\\|text\\(?:it\\|sl\\)\\) *{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)" 2 'italic append) ("\\\\\\(\\(bf\\)\\|em\\|it\\|sl\\)\\>\\(\\([^}&\\]\\|\\\\[^\\]\\)+\\)" 3 (if (match-beginning 2) 'bold 'italic) append))) (#$ . 1123)) #@48 Default expressions to highlight in TeX modes. (defvar tex-font-lock-keywords tex-font-lock-keywords-1 (#$ . 2151)) (custom-declare-face 'tex-math-face '((t :inherit font-lock-string-face)) "Face used to highlight TeX math expressions." :group 'tex) (defvar tex-math-face 'tex-math-face) #@14 (fn STATE) (defalias 'tex-font-lock-syntactic-face-function #[257 "\3028\203\207 \207" [tex-math-face font-lock-comment-face 3] 3 (#$ . 2445)]) #@34 Setup font lock support for TeX. (defalias 'tex-font-setup #[0 "\301\300!\210\302\211\207" [font-lock-defaults make-local-variable ((tex-font-lock-keywords tex-font-lock-keywords-1 tex-font-lock-keywords-2) nil nil ((36 . "\"")) nil (font-lock-mark-block-function . mark-paragraph) (font-lock-syntactic-face-function . tex-font-lock-syntactic-face-function))] 2 (#$ . 2601)]) (provide 'tex-font)