;ELC
;;; Compiled
;;; in Emacs version 26.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 #[0 " =\203 \n\207 \305 \203) @A\306=\203\" @@B\262A\262\202 \211A\2043 \211@\2028 \307\310\311#\211)\207" [auto-mode-alist nxml-cached-auto-mode-alist nxml-cached-file-name-auto-coding-regexp nxml-file-name-ignore-case case-fold-search nil nxml-mode mapconcat #[257 "\300\301Q\207" ["\\(?:" "\\)"] 4 "\n\n(fn R)"] "\\|"] 7 (#$ . 572)])
#@77 The function that `set-auto-coding-function' should call for non-XML files.
(defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1047))
#@23
(fn FILE-NAME SIZE)
(defalias 'nxml-set-auto-coding #[514 "\303 \211\205
\304\")\266\202\203 \305\"\207\n\205 \n\"\207" [nxml-file-name-ignore-case case-fold-search nxml-non-xml-set-auto-coding-function nxml-file-name-auto-coding-regexp string-match nxml-set-xml-coding] 7 (#$ . 1192)])
#@98 Function to use as `set-auto-coding-function' when file is known to be XML.
(fn FILE-NAME SIZE)
(defalias 'nxml-set-xml-coding #[514 "\300`\301^\\!\207" [nxml-detect-coding-system 1024] 6 (#$ . 1499)])
#@14
(fn LIMIT)
(defalias 'nxml-detect-coding-system #[257 "\211`\300\\W\203 \301f\302=\203 \303\207\304\207\301f`TfD\211\305\232\203) \306\307!\205e \307\202e \211\310\232\2039 \306\311!\205e \311\202e \302>\203C \303\202e \312!\211:\203Z \313\314@A\"!\206c \315\202c \211\203b \304\202c \301\262\207" [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] 7 (#$ . 1709)])
#@16
(fn CHARSET)
(defalias 'nxml-mime-charset-coding-system #[257 "\300\227!\301\302!\303\211\203+ \211\204+ @\262\304\305\"=\203$ \262\202 A\262\202 \207" [intern coding-system-list t nil coding-system-get mime-charset] 8 (#$ . 2234)])
#@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 #[0 "\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 (#$ . 2488) nil])
#@70 Stop doing encoding auto-detection as specified in the XML standard.
(defalias 'nxml-stop-auto-coding #[0 "\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 (#$ . 2834) 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)
|