;ELC ;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct 4 11:58:41 2004 ;;; from file /home/jjc/elisp/nxml-enc.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nxml-enc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302B\305\302!\204 \306>\303B\305\303!\204\307\304B\305\304!\204&\307\307\207" [current-load-list system-type nxml-file-name-ignore-case nxml-cached-file-name-auto-coding-regexp nxml-cached-auto-mode-alist boundp (vax-vms windows-nt) nil] 2) #@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 (#$ . 883)]) #@77 The function that `set-auto-coding-function' should call for non-XML files. (defvar nxml-non-xml-set-auto-coding-function nil (#$ . 1384)) (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 (#$ . 1820)]) (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 (#$ . 2827) 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 (#$ . 3175) nil]) (byte-code "\300\301!\204\302\301\303\304\305\306\307&\210\310\301\311\"\204\312\301\311\301#\210\300\313!\2032\310\313\314\"\315=\2032\312\313\314\316#\210\300\313!\203G\310\317\314\"\320=\203G\312\317\314\316#\210\321\322!\207" [coding-system-p us-ascii make-coding-system 2 45 "ISO 2022 based 7-bit encoding for ASCII (MIME:US-ASCII)" (ascii) ((safe-charsets ascii) (mime-charset . us-ascii)) coding-system-get mime-charset coding-system-put utf-16-le pre-write-conversion utf-16-le-pre-write-conversion nil utf-16-be utf-16-be-pre-write-conversion provide nxml-enc] 7)