| Current File : //usr/share/emacs/24.3/lisp/international/latexenc.elc |
;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\377 A@;\203O \323A@!\202P \320
\204\265 db\210\324\325d\326Ze]\327#\210\330\331\320\321#\210\332\333\320\321#\203\265 \311\334! *\335\336\337!\203\205 \340 P\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\367 1\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)