;ELC   
;;; Compiled by buildd@lcy01-24.buildd on Tue Sep 19 22:18:17 2017
;;; from file /build/emacs24-8smh0b/emacs24-24.3+1/debian/build-x/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@@)\fBA\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 (#$ . 716)])
#@77 The function that `set-auto-coding-function' should call for non-XML files.
(defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1217))
(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 (#$ . 1653)])
(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 (#$ . 2660) 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 (#$ . 3008) 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)