ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/nxml-enc.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 \203/ @A\307=\203& @@\fB A\211 \204 \fA\2049 \f@\202> \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] 5 (#$ . 574)])
#@77 The function that `set-auto-coding-function' should call for non-XML files.
(defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1057))
(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 (#$ . 1493)])
(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 (#$ . 2500) 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 (#$ . 2848) 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)
Kontol Shell Bypass