;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/latexenc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@200 Mapping from LaTeX encodings in "inputenc.sty" to Emacs coding systems.
LaTeX encodings are specified with "\usepackage[encoding]{inputenc}".
Used by the function `latexenc-find-file-coding-system'.
(custom-declare-variable 'latex-inputenc-coding-alist '(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-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) '(#$ . 566) :group 'files :group 'mule :type '(alist :key-type (string :tag "LaTeX input encoding") :value-type (coding-system :tag "Coding system")))
#@128 Return the corresponding coding-system for the specified input encoding.
Return nil if no matching coding system can be found.
(defalias 'latexenc-inputenc-to-coding-system #[(inputenc) "\302	\"A\207" [inputenc latex-inputenc-coding-alist assoc] 3 (#$ . 1443)])
#@129 Return the corresponding input encoding for the specified coding system.
Return nil if no matching input encoding can be found.
(defalias 'latexenc-coding-system-to-inputenc #[(cs) "\301\300\302\215)\207" [result nil (byte-code "\306\211\2034\n@\211A\307!\203,\307\f!\203,\310\f!\310!=\203,	@\311\305
\"\210)\nA\211\204\306
*\207" [latex-inputenc-coding-alist elem --dolist-tail-- elem-cs cs result nil coding-system-p coding-system-base throw] 4)] 2 (#$ . 1713)])
#@66 Non-nil means don't follow TeX-master to find the coding system.
(defvar latexenc-dont-use-TeX-master-flag nil (#$ . 2201))
#@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 (#$ . 2331))
#@206 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'.
(defalias 'latexenc-find-file-coding-system #[(arg-list) "@\306=\203

\212eb\210\307\310\215\203@\311\312!\313	!\206\314	!\315\n!\203)\n\202<\316\317\320\321#\203;\315\n!\203;\n\202<\322*\202\377A@;\203O\323A@!\202P\320
\204\265db\210\324\325d\326Ze]\327#\210\330\331\320\321#\210\332\333\320\321#\203\265\311\334!*\335\336\337!\203\205\340P\202\206\335\341BB\320+\211,\203\264,@+\f\204\253\342*+P!\203\253*+P,A\211,\204\222+-\204\313\f\204\313\343\344!\203\313\345.\344 )\f\203\375\346\f!\203\375\347\f!\203\375\321\211-\350\f\321\"/\351r/q\2100\206\3671\206\367\322)!+\202\376\322*)\207\322\207" [arg-list match sym default-directory latexenc-main-file latexenc-dont-use-TeX-master-flag insert-file-contents cs (byte-code "\301\302\303\301\304#\205,\305\224b\210\306 \210\307\310!\204\307\311!\203%\312\313\304\"\210\202\305\225b\210\202)\207" [case-fold-search nil search-forward "inputenc" t 0 beginning-of-line looking-at "[^%\n]*\\\\usepackage\\[\\([^]]*\\)\\]{\\([^}]*,\\)?inputenc\\(,[^}]*\\)?}" "[^%\n]*\\\\inputencoding{\\([^}]*\\)}" throw cs] 4) match-string 1 latexenc-inputenc-to-coding-system intern coding-system-p require code-pages nil t undecided file-name-directory search-backward "\n\f" 3000 move search-forward "Local Variables:" re-search-forward "^%+ *\\(TeX-master\\|tex-main-file\\): *\"\\(.+\\)\"" 2 "" boundp TeX-default-extension "." (".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 file ext --dolist-tail-- latexenc-dont-use-tex-guess-main-file-flag tex-start-of-header latexenc-main-buffer coding-system-for-write buffer-file-coding-system] 5 (#$ . 2476)])
(provide 'latexenc)