;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312& \207" [custom-declare-variable latex-inputenc-coding-alist funcall function #[0 "\300\301!\207" [purecopy (("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-9) ("latin9" . iso-8859-15) ("latin10" . iso-8859-16) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))] 2 ""] "Mapping from LaTeX encodings in \"inputenc.sty\" to Emacs coding systems.\nLaTeX encodings are specified with \"\\usepackage[encoding]{inputenc}\".\nUsed by the function `latexenc-find-file-coding-system'." :group files mule :type (alist :key-type (string :tag "LaTeX input encoding") :value-type (coding-system :tag "Coding system"))] 10)#@143 Return the corresponding coding-system for the specified input encoding. Return nil if no matching coding system can be found. (fn INPUTENC) (defalias 'latexenc-inputenc-to-coding-system #[257 "\301\"A\207" [latex-inputenc-coding-alist assoc] 4 (#$ . 1081)])#@138 Return the corresponding input encoding for the specified coding system. Return nil if no matching input encoding can be found. (fn CS) (defalias 'latexenc-coding-system-to-inputenc #[257 "\301\30229\211\2035\211@\211A\303!\203-\303!\203-\304!\304!=\203-@\262\305\302\"\210\210A\266\202\202\2620\207" [latex-inputenc-coding-alist nil result coding-system-p coding-system-base throw] 8 (#$ . 1349)])#@66 Non-nil means don't follow TeX-master to find the coding system. (defvar latexenc-dont-use-TeX-master-flag nil (#$ . 1772))#@71 Non-nil means don't use tex-guessmain-file to find the coding system. (defvar latexenc-dont-use-tex-guess-main-file-flag nil (#$ . 1901))#@221 Determine the coding system of a LaTeX file if it uses "inputenc.sty". The mapping from LaTeX's "inputenc.sty" encoding names to Emacs coding system names is determined from `latex-inputenc-coding-alist'. (fn ARG-LIST) (defalias 'latexenc-find-file-coding-system #[257 "\211@\306=\203#\212eb\210\3072=\310\311\312\310\313#\205;\314\224b\210\315 \210\316\317!\204,\316\320!\2034\321\307\313\"\210\202\314\225b\210\202)0\203r\322\323!\324!\206L\325!\326!\203X\211\266\202\202!\327\330\310\313#\203l\326!\203l\211\266\202\202!\266\331\202!\211A@;\203\201\332A@!\202\202 \310\n\204\330db\210\333\334d\335Ze]\336#\210\311\337\310\313#\210\340\341\310\313#\203\330\322\342!\343\344\303!\203\264\345 P\202\265\343\346BB\211\203\326\211@\204\317\347P!\203\317P\262A\266\202\202\270\266\f\204\355\211\204\355\350\351!\203\355\352\351 )\262\211\203\353!\203\354!\203\313\211\355\313\"\356rq\210/\2060\206\331)!*\262\202\331)\266\202)\207\331\207" [case-fold-search default-directory latexenc-dont-use-TeX-master-flag TeX-default-extension latexenc-dont-use-tex-guess-main-file-flag tex-start-of-header insert-file-contents cs nil search-forward "inputenc" t 0 beginning-of-line looking-at "[^%\n]*\\\\usepackage\\[\\([^]]*\\)\\]{\\([^}]*,\\)?inputenc\\(,[^}]*\\)?}" "[^%\n]*\\\\inputencoding{\\([^}]*\\)}" throw match-string 1 latexenc-inputenc-to-coding-system intern coding-system-p require code-pages undecided file-name-directory search-backward "\n\f" 3000 move "Local Variables:" re-search-forward "^%+ *\\(TeX-master\\|tex-main-file\\): *\"\\(.+\\)\"" 2 "" boundp "." (".tex" ".ltx" ".dtx" ".drv") file-exists-p fboundp tex-guess-main-file "\\\\document\\(style\\|class\\)" file-regular-p file-readable-p find-file-noselect coding-system-base coding-system-for-write buffer-file-coding-system] 10 (#$ . 2045)]) (provide 'latexenc)