;ELC   
;;; compiled by nk@arafel.viteno.net on Tue Jun 21 10:12:44 2005
;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/mule-ucs/lisp/unicode.el
;;; emacs version 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`unicode.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))


(byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!‡" [require mucs trans-util un-data] 2)
(defalias 'ucs-generic-elisp-representation #[(x) "§«‚‡;«„Á!‡ÂÃ\"‡" [x c-notated-string-to-number error "Invalid ucs-generic represenation:%S"] 3])
(mucs-define-type 'ucs-generic 'ucs-generic-elisp-representation 'identity)
(defalias 'ucs-representation-encoding-backend #[(char representation restriction) "ÂÃ	!!ˆ	Ä	!‰GÅU«‹A@Æ_Ç8\\ªƒA@)ˆ)ÈÉ	\"‡" [info char charset-id char-charset split-char 3 96 2 mucs-convert emacs-char-to-ucs-codepoint-conversion] 4])
(defalias 'ucs-representation-decoding-backend #[(representation object restriction) "§«…ÁÂ\"‡ÃÄÅD\"‡" [object mucs-convert ucs-codepoint-to-emacs-char-conversion signal wrong-type-argument numberp] 4])
(byte-code "ÀÁÂÃ#ˆÄÁÂÅ#‡" [mucs-register-representation-encoding-backend ucs nil ucs-representation-encoding-backend mucs-register-representation-decoding-backend ucs-representation-decoding-backend] 4)
#@503 Convert Unicode codepoint to an XEmacs character.
CODE should be a non-negative integer.

If `codepoint' cannot be represented as an XEmacs character--that is,
Mule-UCS doesn't know about any registered translation from it to some
character in the multiple-character-set non-Unified Mule model, return nil.
Beware that *many* Unicode codepoints have no representation in the Mule
model, and since the Mule-UCS coding systems have the same backend as does
this function, they will tend to trash data.  
(defalias 'ucs-to-char #[(codepoint) "ÁÂÃ#‡" [codepoint ucs-representation-decoding-backend ucs nil] 4 (#$ . 1546)])
#@42 Convert character to Unicode codepoint. 
(defalias 'char-to-ucs #[(char) "ÁÂÃ#‡" [char ucs-representation-encoding-backend ucs nil] 4 (#$ . 2172)])
#@62 Insert character which is converted from give UCS codepoint.
(defalias 'insert-ucs-character #[(codepoint) "ÁÂÃ#®„ÄÅ\"c‡" [codepoint ucs-representation-decoding-backend ucs nil error "Invalid or cannot translate:U+%X"] 4 (#$ . 2327) "nUCS codepoint:"])
(byte-code "ÀÁ!ˆÀÂ!‡" [provide mule-ucs-unicode unicode] 2)