;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:59 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/fsf-compat-unicode.el ;;; emacs version 21.4 (patch 19) "Constant Variable" 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 "`fsf-compat-unicode.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "ÃÄ!«ŽÅÆÄÇÈÉ\"È\"\"Éa¬„ÊË!ˆÌÀ BÍÀÎÏ#ˆ\nÍÀÐÑÀ\n\"#ˆ)Ç" [fsf-compat-ccl-encode-to-ucs-2 current-load-list prog fboundp encode-char with-fboundp (encode-char decode-char) decode-char ucs 796 error "Unicode support needed for this file not available!" [1 10 131127 8 98872 65823 147513 8 82009 255 22] put variable-documentation "CCL program to transform Mule characters to UCS-2." ccl-program-idx register-ccl-program] 6) #@260 Make some Mule character sets that the FSF uses available in XEmacs. These character sets cover some Unicode code space explicitly; we use a different solution to the same problem, so you should only need these character sets if you're editing FSF source.  (defalias 'fsf-compat-init-mule-unicode-charsets #[nil "ÆÇƉƉ :«ö @‰‰A@ ‰A@ @ÈÉÊ \n#!Ë ÉÌ \n#ÍÎÏÐÑÒÓÔÕÖÀ×ØÙÉÚ\"ÛÉÜ \n#ÝÞ¯#ˆß‰#àX«§ß‰$àX«–áâ #$# \"ˆ T$T‰$ªf)#T‰#ªU) A‰ª.Ƈ" [final charset-symbol last-ucs #1=#:G12702 #2=#:G12703 first-ucs nil ((256 9471 ?1) (9472 13311 ?2) (57344 65535 ?3)) intern format "mule-unicode-%04x-%04x" make-charset "Unicode subset (U+%04X..U+%04X) for FSF compatibility." dimension 2 registries ["iso10646-1"] chars 96 columns 1 direction l2r graphic 0 short-name "Unicode subset %c" long-name "Unicode subset (U+%04X..U+%04X)" ccl-program fsf-compat-ccl-encode-to-ucs-2 32 127 set-unicode-conversion make-char ku ten] 25 (#$ . 1057)])