;ELC ;;; Compiled ;;; in Emacs version 27.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 (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\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 (#$ . 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)