Commit d7136fd3 authored by Dave Love's avatar Dave Love
Browse files

*** empty log message ***

parent e5c230f4
2002-12-12 Dave Love <fx@gnu.org>
 
* international/subst-big5.el, international/subst-gb2312.el:
* international/subst-jis.el, international/subst-ksc.el: New.
* custom.el (defcustom, custom-set-variables): Doc fix.
 
* emacs-lisp/bytecomp.el (byte-compile-if): Suppress warnings from
......
This source diff could not be displayed because it is too large. You can view the blob instead.
;;; subst-gb2312.el --- Unicode/GB2312 translation -*-coding: euc-china;-*-
;; Copyright (C) 2002 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Provides translation tables between Unicode and chinese-gb2312 for
;; use by the `utf-translate-cjk' option. See subst-jis.el for the
;; method used.
;;; Code:
(mapc
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (and (>= unicode #x2e80) (<= unicode #xd7a3))
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa4 ?¤)
(#xa7 ?§)
(#xa8 ?¨)
(#xb0 ?°)
(#xb1 ?±)
(#xd7 ?×)
(#xe0 ?à)
(#xe1 ?á)
(#xe8 ?è)
(#xe9 ?é)
(#xea ?ê)
(#xec ?ì)
(#xed ?í)
(#xf2 ?ò)
(#xf3 ?ó)
(#xf7 ?÷)
(#xf9 ?ù)
(#xfa ?ú)
(#xfc ?ü)
(#x101 ?ā)
(#x113 ?ē)
(#x11b ?ě)
(#x12b ?ī)
(#x14d ?ō)
(#x16b ?ū)
(#x1ce ?ǎ)
(#x1d0 ?ǐ)
(#x1d2 ?ǒ)
(#x1d4 ?ǔ)
(#x1d6 ?ǖ)
(#x1d8 ?ǘ)
(#x1da ?ǚ)
(#x1dc ?ǜ)
(#x2c7 ?ˇ)
(#x2c9 ?ˉ)
(#x391 ?Α)
(#x392 ?Β)
(#x393 ?Γ)
(#x394 ?Δ)
(#x395 ?Ε)
(#x396 ?Ζ)
(#x397 ?Η)
(#x398 ?Θ)
(#x399 ?Ι)
(#x39a ?Κ)
(#x39b ?Λ)
(#x39c ?Μ)
(#x39d ?Ν)
(#x39e ?Ξ)
(#x39f ?Ο)
(#x3a0 ?Π)
(#x3a1 ?Ρ)
(#x3a3 ?Σ)
(#x3a4 ?Τ)
(#x3a5 ?Υ)
(#x3a6 ?Φ)
(#x3a7 ?Χ)
(#x3a8 ?Ψ)
(#x3a9 ?Ω)
(#x3b1 ?α)
(#x3b2 ?β)
(#x3b3 ?γ)
(#x3b4 ?δ)
(#x3b5 ?ε)
(#x3b6 ?ζ)
(#x3b7 ?η)
(#x3b8 ?θ)
(#x3b9 ?ι)
(#x3ba ?κ)
(#x3bb ?λ)
(#x3bc ?μ)
(#x3bd ?ν)
(#x3be ?ξ)
(#x3bf ?ο)
(#x3c0 ?π)
(#x3c1 ?ρ)
(#x3c3 ?σ)
(#x3c4 ?τ)
(#x3c5 ?υ)
(#x3c6 ?φ)
(#x3c7 ?χ)
(#x3c8 ?ψ)
(#x3c9 ?ω)
(#x401 ?Ё)
(#x410 ?А)
(#x411 ?Б)
(#x412 ?В)
(#x413 ?Г)
(#x414 ?Д)
(#x415 ?Е)
(#x416 ?Ж)
(#x417 ?З)
(#x418 ?И)
(#x419 ?Й)
(#x41a ?К)
(#x41b ?Л)
(#x41c ?М)
(#x41d ?Н)
(#x41e ?О)
(#x41f ?П)
(#x420 ?Р)
(#x421 ?С)
(#x422 ?Т)
(#x423 ?У)
(#x424 ?Ф)
(#x425 ?Х)
(#x426 ?Ц)
(#x427 ?Ч)
(#x428 ?Ш)
(#x429 ?Щ)
(#x42a ?Ъ)
(#x42b ?Ы)
(#x42c ?Ь)
(#x42d ?Э)
(#x42e ?Ю)
(#x42f ?Я)
(#x430 ?а)
(#x431 ?б)
(#x432 ?в)
(#x433 ?г)
(#x434 ?д)
(#x435 ?е)
(#x436 ?ж)
(#x437 ?з)
(#x438 ?и)
(#x439 ?й)
(#x43a ?к)
(#x43b ?л)
(#x43c ?м)
(#x43d ?н)
(#x43e ?о)
(#x43f ?п)
(#x440 ?р)
(#x441 ?с)
(#x442 ?т)
(#x443 ?у)
(#x444 ?ф)
(#x445 ?х)
(#x446 ?ц)
(#x447 ?ч)
(#x448 ?ш)
(#x449 ?щ)
(#x44a ?ъ)
(#x44b ?ы)
(#x44c ?ь)
(#x44d ?э)
(#x44e ?ю)
(#x44f ?я)
(#x451 ?ё)
(#x2015 ?—)
(#x2016 ?‖)
(#x2018 ?‘)
(#x2019 ?’)
(#x201c ?“)
(#x201d ?”)
(#x2026 ?…)
(#x2030 ?‰)
(#x2032 ?′)
(#x2033 ?″)
(#x203b ?※)
(#x2103 ?℃)
(#x2116 ?№)
(#x2160 ?Ⅰ)
(#x2161 ?Ⅱ)
(#x2162 ?Ⅲ)
(#x2163 ?Ⅳ)
(#x2164 ?Ⅴ)
(#x2165 ?Ⅵ)
(#x2166 ?Ⅶ)
(#x2167 ?Ⅷ)
(#x2168 ?Ⅸ)
(#x2169 ?Ⅹ)
(#x216a ?Ⅺ)
(#x216b ?Ⅻ)
(#x2190 ?←)
(#x2191 ?↑)
(#x2192 ?→)
(#x2193 ?↓)
(#x2208 ?∈)
(#x220f ?∏)
(#x2211 ?∑)
(#x221a ?√)
(#x221d ?∝)
(#x221e ?∞)
(#x2220 ?∠)
(#x2225 ?∥)
(#x2227 ?∧)
(#x2228 ?∨)
(#x2229 ?∩)
(#x222a ?∪)
(#x222b ?∫)
(#x222e ?∮)
(#x2234 ?∴)
(#x2235 ?∵)
(#x2236 ?∶)
(#x2237 ?∷)
(#x223d ?∽)
(#x2248 ?≈)
(#x224c ?≌)
(#x2260 ?≠)
(#x2261 ?≡)
(#x2264 ?≤)
(#x2265 ?≥)
(#x226e ?≮)
(#x226f ?≯)
(#x2299 ?⊙)
(#x22a5 ?⊥)
(#x2312 ?⌒)
(#x2460 ?①)
(#x2461 ?②)
(#x2462 ?③)
(#x2463 ?④)
(#x2464 ?⑤)
(#x2465 ?⑥)
(#x2466 ?⑦)
(#x2467 ?⑧)
(#x2468 ?⑨)
(#x2469 ?⑩)
(#x2474 ?⑴)
(#x2475 ?⑵)
(#x2476 ?⑶)
(#x2477 ?⑷)
(#x2478 ?⑸)
(#x2479 ?⑹)
(#x247a ?⑺)
(#x247b ?⑻)
(#x247c ?⑼)
(#x247d ?⑽)
(#x247e ?⑾)
(#x247f ?⑿)
(#x2480 ?⒀)
(#x2481 ?⒁)
(#x2482 ?⒂)
(#x2483 ?⒃)
(#x2484 ?⒄)
(#x2485 ?⒅)
(#x2486 ?⒆)
(#x2487 ?⒇)
(#x2488 ?⒈)
(#x2489 ?⒉)
(#x248a ?⒊)
(#x248b ?⒋)
(#x248c ?⒌)
(#x248d ?⒍)
(#x248e ?⒎)
(#x248f ?⒏)
(#x2490 ?⒐)
(#x2491 ?⒑)
(#x2492 ?⒒)
(#x2493 ?⒓)
(#x2494 ?⒔)
(#x2495 ?⒕)
(#x2496 ?⒖)
(#x2497 ?⒗)
(#x2498 ?⒘)
(#x2499 ?⒙)
(#x249a ?⒚)
(#x249b ?⒛)
(#x2500 ?─)
(#x2501 ?━)
(#x2502 ?│)
(#x2503 ?┃)
(#x2504 ?┄)
(#x2505 ?┅)
(#x2506 ?┆)
(#x2507 ?┇)
(#x2508 ?┈)
(#x2509 ?┉)
(#x250a ?┊)
(#x250b ?┋)
(#x250c ?┌)
(#x250d ?┍)
(#x250e ?┎)
(#x250f ?┏)
(#x2510 ?┐)
(#x2511 ?┑)
(#x2512 ?┒)
(#x2513 ?┓)
(#x2514 ?└)
(#x2515 ?┕)
(#x2516 ?┖)
(#x2517 ?┗)
(#x2518 ?┘)
(#x2519 ?┙)
(#x251a ?┚)
(#x251b ?┛)
(#x251c ?├)
(#x251d ?┝)
(#x251e ?┞)
(#x251f ?┟)
(#x2520 ?┠)
(#x2521 ?┡)
(#x2522 ?┢)
(#x2523 ?┣)
(#x2524 ?┤)
(#x2525 ?┥)
(#x2526 ?┦)
(#x2527 ?┧)
(#x2528 ?┨)
(#x2529 ?┩)
(#x252a ?┪)
(#x252b ?┫)
(#x252c ?┬)
(#x252d ?┭)
(#x252e ?┮)
(#x252f ?┯)
(#x2530 ?┰)
(#x2531 ?┱)
(#x2532 ?┲)
(#x2533 ?┳)
(#x2534 ?┴)
(#x2535 ?┵)
(#x2536 ?┶)
(#x2537 ?┷)
(#x2538 ?┸)
(#x2539 ?┹)
(#x253a ?┺)
(#x253b ?┻)
(#x253c ?┼)
(#x253d ?┽)
(#x253e ?┾)
(#x253f ?┿)
(#x2540 ?╀)
(#x2541 ?╁)
(#x2542 ?╂)
(#x2543 ?╃)
(#x2544 ?╄)
(#x2545 ?╅)
(#x2546 ?╆)
(#x2547 ?╇)
(#x2548 ?╈)
(#x2549 ?╉)
(#x254a ?╊)
(#x254b ?╋)
(#x25a0 ?■)
(#x25a1 ?□)
(#x25b2 ?▲)
(#x25b3 ?△)
(#x25c6 ?◆)
(#x25c7 ?◇)
(#x25cb ?○)
(#x25ce ?◎)
(#x25cf ?●)
(#x2605 ?★)
(#x2606 ?☆)
(#x2640 ?♀)
(#x2642 ?♂)
(#x3000 ? )
(#x3001 ?、)
(#x3002 ?。)
(#x3003 ?〃)
(#x3005 ?々)
(#x3008 ?\〈)
(#x3009 ?\〉)
(#x300a ?\《)
(#x300b ?\》)
(#x300c ?\「)
(#x300d ?\」)
(#x300e ?\『)
(#x300f ?\』)
(#x3010 ?\【)
(#x3011 ?\】)
(#x3013 ?〓)
(#x3014 ?\〔)
(#x3015 ?\〕)
(#x3016 ?\〖)
(#x3017 ?\〗)
(#x3041 ?ぁ)
(#x3042 ?あ)
(#x3043 ?ぃ)
(#x3044 ?い)
(#x3045 ?ぅ)
(#x3046 ?う)
(#x3047 ?ぇ)
(#x3048 ?え)
(#x3049 ?ぉ)
(#x304a ?お)
(#x304b ?か)
(#x304c ?が)
(#x304d ?き)
(#x304e ?ぎ)
(#x304f ?く)
(#x3050 ?ぐ)
(#x3051 ?け)
(#x3052 ?げ)
(#x3053 ?こ)
(#x3054 ?ご)
(#x3055 ?さ)
(#x3056 ?ざ)
(#x3057 ?し)
(#x3058 ?じ)
(#x3059 ?す)
(#x305a ?ず)
(#x305b ?せ)
(#x305c ?ぜ)
(#x305d ?そ)
(#x305e ?ぞ)
(#x305f ?た)
(#x3060 ?だ)
(#x3061 ?ち)
(#x3062 ?ぢ)
(#x3063 ?っ)
(#x3064 ?つ)
(#x3065 ?づ)
(#x3066 ?て)
(#x3067 ?で)
(#x3068 ?と)
(#x3069 ?ど)
(#x306a ?な)
(#x306b ?に)
(#x306c ?ぬ)
(#x306d ?ね)
(#x306e ?の)
(#x306f ?は)
(#x3070 ?ば)
(#x3071 ?ぱ)
(#x3072 ?ひ)
(#x3073 ?び)
(#x3074 ?ぴ)
(#x3075 ?ふ)
(#x3076 ?ぶ)
(#x3077 ?ぷ)
(#x3078 ?へ)
(#x3079 ?べ)
(#x307a ?ぺ)
(#x307b ?ほ)
(#x307c ?ぼ)
(#x307d ?ぽ)
(#x307e ?ま)
(#x307f ?み)
(#x3080 ?む)
(#x3081 ?め)
(#x3082 ?も)
(#x3083 ?ゃ)
(#x3084 ?や)
(#x3085 ?ゅ)
(#x3086 ?ゆ)
(#x3087 ?ょ)
(#x3088 ?よ)
(#x3089 ?ら)
(#x308a ?り)
(#x308b ?る)
(#x308c ?れ)
(#x308d ?ろ)
(#x308e ?ゎ)
(#x308f ?わ)
(#x3090 ?ゐ)
(#x3091 ?ゑ)
(#x3092 ?を)
(#x3093 ?ん)
(#x30a1 ?ァ)
(#x30a2 ?ア)
(#x30a3 ?ィ)
(#x30a4 ?イ)
(#x30a5 ?ゥ)
(#x30a6 ?ウ)
(#x30a7 ?ェ)
(#x30a8 ?エ)
(#x30a9 ?ォ)
(#x30aa ?オ)
(#x30ab ?カ)
(#x30ac ?ガ)
(#x30ad ?キ)
(#x30ae ?ギ)
(#x30af ?ク)
(#x30b0 ?グ)
(#x30b1 ?ケ)
(#x30b2 ?ゲ)
(#x30b3 ?コ)
(#x30b4 ?ゴ)
(#x30b5 ?サ)
(#x30b6 ?ザ)
(#x30b7 ?シ)
(#x30b8 ?ジ)
(#x30b9 ?ス)
(#x30ba ?ズ)
(#x30bb ?セ)
(#x30bc ?ゼ)
(#x30bd ?ソ)
(#x30be ?ゾ)
(#x30bf ?タ)
(#x30c0 ?ダ)
(#x30c1 ?チ)
(#x30c2 ?ヂ)
(#x30c3 ?ッ)
(#x30c4 ?ツ)
(#x30c5 ?ヅ)
(#x30c6 ?テ)
(#x30c7 ?デ)
(#x30c8 ?ト)
(#x30c9 ?ド)
(#x30ca ?ナ)
(#x30cb ?ニ)
(#x30cc ?ヌ)
(#x30cd ?ネ)
(#x30ce ?ノ)
(#x30cf ?ハ)
(#x30d0 ?バ)
(#x30d1 ?パ)
(#x30d2 ?ヒ)
(#x30d3 ?ビ)
(#x30d4 ?ピ)
(#x30d5 ?フ)
(#x30d6 ?ブ)
(#x30d7 ?プ)
(#x30d8 ?ヘ)
(#x30d9 ?ベ)
(#x30da ?ペ)
(#x30db ?ホ)
(#x30dc ?ボ)
(#x30dd ?ポ)
(#x30de ?マ)
(#x30df ?ミ)
(#x30e0 ?ム)
(#x30e1 ?メ)
(#x30e2 ?モ)
(#x30e3 ?ャ)
(#x30e4 ?ヤ)
(#x30e5 ?ュ)
(#x30e6 ?ユ)
(#x30e7 ?ョ)
(#x30e8 ?ヨ)
(#x30e9 ?ラ)
(#x30ea ?リ)
(#x30eb ?ル)
(#x30ec ?レ)
(#x30ed ?ロ)
(#x30ee ?ヮ)
(#x30ef ?ワ)
(#x30f0 ?ヰ)
(#x30f1 ?ヱ)
(#x30f2 ?ヲ)
(#x30f3 ?ン)
(#x30f4 ?ヴ)
(#x30f5 ?ヵ)
(#x30f6 ?ヶ)
(#x30fb ?·)
(#x3105 ?ㄅ)
(#x3106 ?ㄆ)
(#x3107 ?ㄇ)
(#x3108 ?ㄈ)
(#x3109 ?ㄉ)
(#x310a ?ㄊ)
(#x310b ?ㄋ)
(#x310c ?ㄌ)
(#x310d ?ㄍ)
(#x310e ?ㄎ)
(#x310f ?ㄏ)
(#x3110 ?ㄐ)
(#x3111 ?ㄑ)
(#x3112 ?ㄒ)
(#x3113 ?ㄓ)
(#x3114 ?ㄔ)
(#x3115 ?ㄕ)
(#x3116 ?ㄖ)
(#x3117 ?ㄗ)
(#x3118 ?ㄘ)
(#x3119 ?ㄙ)
(#x311a ?ㄚ)
(#x311b ?ㄛ)
(#x311c ?ㄜ)
(#x311d ?ㄝ)
(#x311e ?ㄞ)
(#x311f ?ㄟ)
(#x3120 ?ㄠ)
(#x3121 ?ㄡ)
(#x3122 ?ㄢ)
(#x3123 ?ㄣ)
(#x3124 ?ㄤ)
(#x3125 ?ㄥ)
(#x3126 ?ㄦ)
(#x3127 ?ㄧ)
(#x3128 ?ㄨ)
(#x3129 ?ㄩ)
(#x3220 ?㈠)
(#x3221 ?㈡)
(#x3222 ?㈢)
(#x3223 ?㈣)
(#x3224 ?㈤)
(#x3225 ?㈥)
(#x3226 ?㈦)
(#x3227 ?㈧)
(#x3228 ?㈨)
(#x3229 ?㈩)
(#x4e00 ?一)
(#x4e01 ?丁)
(#x4e03 ?七)
(#x4e07 ?万)
(#x4e08 ?丈)
(#x4e09 ?三)
(#x4e0a ?上)
(#x4e0b ?下)
(#x4e0c ?丌)
(#x4e0d ?不)
(#x4e0e ?与)
(#x4e10 ?丐)
(#x4e11 ?丑)
(#x4e13 ?专)
(#x4e14 ?且)
(#x4e15 ?丕)
(#x4e16 ?世)
(#x4e18 ?丘)
(#x4e19 ?丙)
(#x4e1a ?业)
(#x4e1b ?丛)
(#x4e1c ?东)
(#x4e1d ?丝)
(#x4e1e ?丞)
(#x4e22 ?丢)
(#x4e24 ?两)