;ELC   
;;; Compiled by root@bugs.build.redhat.com on Fri Feb  4 11:21:13 2005
;;; from file /usr/src/build/514901-i386/BUILD/emacs-21.3/Mule-UCS-current/lisp/mule-uni.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 "`mule-uni.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@30 ranges of mule-unicode-xxxx.
(defconst mule-unicode-xxxx-range-alist '((mule-unicode-0100-24ff (256 . 9471) (256 . 9471)) (mule-unicode-2500-33ff (9472 . 13311) (9472 . 13311)) (mule-unicode-e000-ffff (57344 . 65535) (57344 . 65278) (65280 . 65533))) (#$ . 655))
(byte-code "\301\302!\204\204 \303\304\305\"\210\306\3069\205 \307\310N!)\204! \311\312\306\313#\210\314\315\316\306!\317H!\304\"\210\320\3209\2058 \307\310N!)\204B \311\321\320\322#\210\314\315\316\320!\317H!\304\"\210\323\3239\205Y \307\310N!)\204c \311\324\323\325#\210\314\315\316\323!\317H!\304\"\210\326\3269\205z \307\310N!)\204\204 \311\327\326\330#\210\301\207" [object featurep xemacs define-category 117 "Mule unicode characters" mule-unicode-0100-24ff vectorp charset define-charset 244 [2 96 1 0 49 0 "Unicode subset" "Unicode subset (U+0100..U+24FF)" "Unicode characters of the range U+0100..U+24FF."] modify-category-entry make-char-internal charset-info 0 mule-unicode-2500-33ff 242 [2 96 1 0 50 0 "Unicode subset 2" "Unicode subset (U+2500..U+33FF)" "Unicode characters of the range U+2500..U+33FF."] mule-unicode-e000-ffff 243 [2 96 1 0 51 0 "Unicode subset 3" "Unicode subset (U+E000+FFFF)" "Unicode characters of the range U+E000..U+FFFF."] mule-ucs-unicode-multichar 223 [1 96 1 0 62 0 "Unicode multichar form" "Unicode multichar" "Unicode chars of Mule-UCS-Unicode multichar form"]] 4)
(defalias 'ucs-to-mule-unicode-xxxx #[(codepoint) "\305\211\211@\211\203* \nA@\211\203* \f	@Y\203# \f	AX\204* A\211\202 \2043 \306\307\f\"\210\f	@Z\310\311\n@!\312H\f\313\245\314\\\f\313\246\314\\#+\207" [mule-unicode-xxxx-range-alist r rs rsl codepoint nil error "The given codepoint is out of the range.:%d" make-char-internal charset-info 0 96 32] 6])
(defalias 'mule-unicode-xxxx-to-ucs #[(char) "\306\211\211\211\307!\2038 \310!\211A@\3118@\236\211\2038 \n\312Z\313_	\312Z\\\fA@@\\\202= \314\315\"-\207" [mule-unicode-xxxx-range-alist col row cs rs rsl nil char-valid-p split-char 2 32 96 error "The given char is invalid:%S" char] 6])
(byte-code "\306\211\211\211\211!!@\211\203m @A@AA!A!\307\310\311\312\n!\"!\n\211\"9\205< \313\"\302N!)\203 	\304\314\315\316\"EL\210\317\n\320	#\210\317\n\321\322\323\324\325\326\327\330\331\\\f@[\\\332\\EE\333BDD#\210\202 .\334\"\3349\205} \313\"\302N!)\203\212 \335\317\334\320\336#\210\337\340!\207" [mule-unicode-xxxx-range-alist assoc-sym charset rl range spec nil intern format "%s-vs-unicode-assoc" symbol-name vectorp (char-1 . ucs-generic) mapcar #[(re) "\301@!\301A!BB\207" [re ucs-to-mule-unicode-xxxx] 3] put unicode-assoc mccl-font-encoder list quote r2 += (r1 * 96) - 3072 0 32 ((r1 = (r2 >8 r2)) (r2 = r7)) mule-ucs-unicode-multichar (range (char-1 . ucs-generic) (((16777216 . 33554432) 0 . 16777216))) unicode-vs-mule-ucs-unicode-multichar-assoc provide mule-uni cls object] 12)