Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/nxml/nxml-enc.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (byte-code "\301=\205\302\207" [system-type windows-nt (windows-nt)] 2))
(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\262
A\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 (#$ . 614)])
#@77 The function that `set-auto-coding-function' should call for non-XML files.
(defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1089))
#@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 (#$ . 1234)])
#@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 (#$ . 1541)])
#@14 

(fn LIMIT)
(defalias 'nxml-detect-coding-system #[257 "\211`\300\\W\203\301f\302=\203\303\207\304\207\301f`TfD\211\305\267\2023\306\307!\205_\307\202_\306\310!\205_\310\202_\302
>\203=\303\202_\311!\211:\203T\312\313@A\"!\206]\314\202]\211\203\\\304\202]\301\262
\207" [2 nil 0 no-conversion utf-8 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((254 255) 31 (255 254) 41)) coding-system-p utf-16-be utf-16-le xmltok-get-declared-encoding-position nxml-mime-charset-coding-system buffer-substring-no-properties raw-text] 7 (#$ . 1751)])
#@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 (#$ . 2356)])
#@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 (#$ . 2610) 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 (#$ . 2956) 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)