;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/nxml-enc.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.

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


(defvar nxml-file-name-ignore-case (memq system-type '(windows-nt)))
(defvar nxml-cached-file-name-auto-coding-regexp nil)
(defvar nxml-cached-auto-mode-alist nil)
#@71 Return regexp for filenames for which XML auto-coding should be done.
(defalias 'nxml-file-name-auto-coding-regexp #[nil "	=\203\n\207\306\211\2037\211\f@A)\307=\203.\211\f@@)\fBA\211\204\fA\204A\f@\202F\310\311\f\312#\211+\207" [auto-mode-alist nxml-cached-auto-mode-alist nxml-cached-file-name-auto-coding-regexp nxml-file-name-ignore-case regexps case-fold-search nil nxml-mode mapconcat #[(r) "\301\302Q\207" [r "\\(?:" "\\)"] 3] "\\|" alist x] 5 (#$ . 720)])
#@77 The function that `set-auto-coding-function' should call for non-XML files.
(defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1221))
(defalias 'nxml-set-auto-coding #[(file-name size) "\306 	\205
\307	\"*\203\310\f\"\207
\205
\f\"\207" [nxml-file-name-ignore-case regexp case-fold-search file-name size nxml-non-xml-set-auto-coding-function nxml-file-name-auto-coding-regexp string-match nxml-set-xml-coding] 3])
#@77 Function to use as `set-auto-coding-function' when file is known to be XML.
(defalias 'nxml-set-xml-coding #[(file-name size) "\301`\302^\\!\207" [size nxml-detect-coding-system 1024] 4 (#$ . 1657)])
(defalias 'nxml-detect-coding-system #[(limit) "`\303\\W\203\304f\305=\203\306\207\307\207\304f`TfD\211\310\232\203*\311\312!\205f\312\202f	\313\232\203:\311\314!\205f\314\202f\305	>\203D\306\202f\315!\211:\203\\\316\317\n@\nA\"!\206e\320\202e\n\203d\307\202e\304))\207" [limit first-two-chars enc-pos 2 nil 0 no-conversion utf-8 (254 255) coding-system-p utf-16-be (255 254) utf-16-le xmltok-get-declared-encoding-position nxml-mime-charset-coding-system buffer-substring-no-properties raw-text] 5])
(defalias 'nxml-mime-charset-coding-system #[(charset) "\305\227!\306\307!\310\211\203-	\204-@\311\n\312\"\f=\203&\n\202
A\211\204	,\207" [charset ret coding-system coding-systems charset-sym intern coding-system-list t nil coding-system-get mime-charset] 5])
#@145 Do encoding auto-detection as specified in the XML standard.
Applied to any files that `auto-mode-alist' says should be handled by
`nxml-mode'.
(defalias 'nxml-start-auto-coding #[nil "\303=?\205\304\303\211)\207" [set-auto-coding-function inhibit-quit nxml-non-xml-set-auto-coding-function nxml-set-auto-coding t] 2 (#$ . 2664) nil])
#@70 Stop doing encoding auto-detection as specified in the XML standard.
(defalias 'nxml-stop-auto-coding #[nil "\303=\205\304\n\305\211)\207" [set-auto-coding-function inhibit-quit nxml-non-xml-set-auto-coding-function nxml-set-auto-coding t nil] 2 (#$ . 3012) nil])
(byte-code "\300\301\302\"\204
\303\301\302\301#\210\304\305!\207" [coding-system-get us-ascii mime-charset coding-system-put provide nxml-enc] 4)