;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:56 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/utf-8.el ;;; in Emacs version 21.3 ;;; 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 "`utf-8.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@200 Char table mapping characters to latin-iso8859-1 or mule-unicode-*. If `unify-8859-on-encoding-mode' is non-nil, this table populates the translation-table named `utf-translation-table-for-encode'. (defvar ucs-mule-to-mule-unicode (make-char-table 'translation-table nil) (#$ . 627)) (byte-code "\304\305!\210\306\302 B\307\302\310\311#\210\307\302\312\313\302\"#\210)\314\303 B\307\303\310\315#\210\307\303\312\313\303\"#\210)\316\317\320\321\322\323\324&\210\325\326\317\"\207" [prog current-load-list ccl-decode-mule-utf-8 ccl-encode-mule-utf-8 define-translation-table utf-translation-table-for-encode [2 311 40609 32961 14 1051 16 128 17 76804 2331 16 192 1051 16 160 17695 260 17951 74244 21787 16 224 46 82425 192 5371 21 128 1051 16 160 17695 260 17951 1083 16 128 49 1540 1083 16 160 17727 260 17983 14852 96 320 81943 31 131095 6 81975 63 56 5179 16 128 1147 16 160 17791 260 18047 1115 16 128 81 1540 1115 16 160 17759 260 18015 7172 1083 16 160 17727 5892 1851 16 256 33025 16439 128 16447 3844 62465 16439 256 49657 96 247 32 132953 7 65591 96 761 32 1848 16447 52228 33563 16 240 302 78 129 82297 192 148217 2 82167 48 100216 1147 21 160 385 4100 82169 15 132985 12 82425 63 131319 6 1912 82681 63 1912 891 16 2048 385 8091 21 0 1051 16 160 17695 260 17951 1083 16 128 49 1540 1083 16 160 17727 260 17983 1115 16 128 81 1540 1115 16 160 17759 260 18015 16644 4219 16 9472 62465 16503 256 196727 96 1849 32 1017 32 131319 7 1848 16447 12292 4219 16 13312 61953 16503 9472 196727 96 1849 32 1017 32 131319 7 1848 16447 7940 4475 16 57344 1632 17183 827 16 160 1376 17215 1115 16 160 1376 260 1632 17247 3332 62209 16503 57344 196727 96 1849 32 1017 32 131319 7 1848 16447 18436 17947 16 254 558 334 110 17951 2363 16 160 1083 16 128 49 260 17727 260 17983 2395 16 160 1115 16 128 81 260 17759 260 18015 2427 16 160 1147 16 128 113 260 17791 260 18047 7451 20 248 46 2363 16 160 1083 16 128 49 260 17727 260 17983 3611 20 252 46 2363 16 160 1083 16 128 49 260 17727 260 17983 260 17951 -78588 22] put variable-documentation "CCL program to decode UTF-8.\nBasic decoding is done into the charsets ascii, latin-iso8859-1 and\nmule-unicode-*, but see also `utf-fragmentation-table' and\n`ucs-mule-cjk-to-unicode'.\nEncodings of un-representable Unicode characters are decoded asis into\neight-bit-control and eight-bit-graphic characters." ccl-program-idx register-ccl-program [1 209 -95 1979 16 0 -223 63 49215 (utf-translation-table-for-encode . translation-table-id) 772 1280 1568 -95 1051 18 0 49 48388 3867 18 129 82425 64 147703 6 100121 194 81975 63 98359 128 273 49 44292 13083 18 244 82425 16256 147703 7 16631 32 34585 96 81975 127 249 224 1848 3899 16 2048 82425 1984 147703 6 100121 192 81975 63 98359 128 273 49 4868 82425 61440 147703 12 100121 224 82425 63 100185 128 81975 4032 147511 6 98359 128 529 305 81 30980 8987 18 242 82425 16256 147703 7 16631 32 34585 96 81975 127 249 9440 1848 82425 61440 147703 12 100121 224 82425 63 100185 128 81975 4032 147511 6 98359 128 529 305 81 21764 8987 18 243 82425 16256 147703 7 16631 32 34585 96 81975 127 249 57312 1848 82425 61440 147703 12 100121 224 82425 63 100185 128 81975 4032 147511 6 98359 128 529 305 81 12548 1307 18 158 49684 49 11012 10011 18 128 49 -223 63 1819 21 128 1051 21 158 160 448 6331 16 0 95 1819 21 128 1051 21 158 160 704 1467 16 0 305 81 1796 1083 16 160 49 516 49684 49 772 61204 48916 48404 -52732 1083 20 160 49 1284 1083 20 128 49684 49 22] "CCL program to encode into UTF-8." make-coding-system mule-utf-8 4 117 "UTF-8 encoding for Emacs-supported Unicode characters.\nIt supports Unicode characters of these ranges:\n U+0000..U+33FF, U+E000..U+FFFF.\nThey correspond to these Emacs character sets:\n ascii, latin-iso8859-1, mule-unicode-0100-24ff,\n mule-unicode-2500-33ff, mule-unicode-e000-ffff\n\nOn decoding (e.g. reading a file), Unicode characters not in the above\nranges are decoded into sequences of eight-bit-control and\neight-bit-graphic characters to preserve their byte sequences. The\nbyte sequence is preserved on i/o for valid utf-8, but not necessarily\nfor invalid utf-8.\n\nOn encoding (e.g. writing a file), Emacs characters not belonging to\nany of the character sets listed above are encoded into the UTF-8 byte\nsequence representing U+FFFD (REPLACEMENT CHARACTER)." (ccl-decode-mule-utf-8 . ccl-encode-mule-utf-8) ((safe-charsets ascii eight-bit-control eight-bit-graphic latin-iso8859-1 mule-unicode-0100-24ff mule-unicode-2500-33ff mule-unicode-e000-ffff) (mime-charset . utf-8) (coding-category . coding-category-utf-8) (valid-codes (0 . 255)) (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)) define-coding-system-alias utf-8] 7)