Commit dee169ce authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Initial revision

parent 6cf2c826
;;; quail/hanja3.el --- Quail-package for Korean Hanja (KSC5601)
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Author: Koaunghi Un <koanughi.un@zdv.uni-tuebingen.de>
;; Keywords: mule, quail, multilingual, input method, Korean, Hanja
;; This file is part of GNU Emacs.
;; GNU Emacs 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.
;; GNU Emacs 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.
;;; Code:
(require 'quail)
(quail-define-package
"korean-hanja3" "Korean" "$(CyS(B3" t
"3$(C9z=D(BKSC$(CySm.(B: $(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B3$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B"
nil nil nil nil nil nil t)
(quail-define-rules
("kf" "$(CJ!J"J#J$J%J&J'J(J)J*J+J,J-J.J/J0J1J2J3J4J5J6J7J8J9J:J;J<J=(B")
("kfx" "$(CJ>J?J@JAJBJCJDJEJFJGJH(B")
("kfs" "$(CJIJJJKJLJMJNJOJPJQJRJSJTJUJVJWJXJYJZJ[J\J]J^J_J`(B")
("kfw" "$(CJaJbJcJdJeJfJgJhJiJj(B")
("kfz" "$(CJkJlJmJnJoJpJqJrJsJtJuJvJwJxJyJzJ{J|J}J~(B")
("kf3" "$(CK!K"K#K$K%K&(B")
("kfa" "$(CK'K(K)K*K+K,K-K.K/K0K1K2K3K4K5K6K7K8K9K:K;K<K=K>(B")
("kr" "$(CK?K@KAKBKCKDKEKFKGKHKIKJKKKLKMKNKOKPKQKR(B")
("krx" "$(CKSKT(B")
("kra" "$(CKUKVKWKX(B")
("k6x" "$(CKY(B")
("kt" "$(CKZK[K\K]K^K_K`KaKbKcKdKeKfKgKhKiKj(B")
("kts" "$(CKkKlKmKnKoKpKqKrKsKtKuKv(B")
("ktw" "$(CKwKxKyKz(B")
("ktz" "$(CK{K|K}K~L!L"L#(B")
("kt3" "$(CL$L%L&(B")
("kc" "$(CL'L(L)(B")
("kex" "$(CL*L+L,L-L.L/L0(B")
("kes" "$(CL1L2L3L4L5L6L7L8L9L:L;(B")
("kew" "$(CL<L=L>L?L@LA(B")
("kez" "$(CLBLCLDLELFLG(B")
("kea" "$(CLHLILJLKLLLMLNLOLPLQLRLSLTLULVLWLXLYLZL[L\L]L^L_L`LaLbLcLdLeLfLgLhLiLjLkLlLmLnLoLpLqLrLsLt(B")
("k7" "$(CLuLvLwLxLyLzL{L|L}L~M!M"M#M$M%M&M'M(M)M*M+M,M-M.(B")
("k/" "$(CM/M0M1M2M3M4M5M6M7M8M9M:M;M<M=M>M?M@MAMBMCMDMEMFMGMHMIMJMKMLMMMNMOMPMQMRMSMTMU(B")
("k/x" "$(CMVMWMXMYMZM[M\(B")
("k/s" "$(CM]M^M_M`MaMbMcMdMeMf(B")
("k/w" "$(CMgMhMi(B")
("k/a" "$(CMjMkMlMmMnMoMpMqMrMsMtMuMvMwMxMy(B")
("k/!" "$(CMz(B")
("k/f" "$(CM{M|M}M~N!N"N#N$N%N&N'N((B")
("k/fx" "$(CN)N*N+N,(B")
("k/fs" "$(CN-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=(B")
("k/fw" "$(CN>N?N@NA(B")
("k/fa" "$(CNBNCNDNENFNGNHNINJNKNLNMNN(B")
("k/r" "$(CNONPNQ(B")
("k/d" "$(CNRNSNTNUNVNWNXNYNZ(B")
("k/da" "$(CN[N\N]N^(B")
("k4" "$(CN_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNw(B")
("k9" "$(CNxNyNzN{N|N}N~O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOO(B")
("k9x" "$(COPOQOROSOTOU(B")
("k9s" "$(COVOWOXOYOZO[(B")
("k9w" "$(CO\O]O^O_(B")
("k9a" "$(CO`OaObOcOdOe(B")
("k9ts" "$(COfOgOhOiOjOkOlOmOnOo(B")
("k9tw" "$(COpOqOrOsOt(B")
("k9c" "$(COuOvOwOxOyOz(B")
("k9d" "$(CO{O|O}O~P!P"(B")
("k5" "$(CP#P$P%P&P'P(P)P*P+P,P-P.P/P0P1(B")
("k5s" "$(CP2P3P4P5P6P7P8(B")
("k5w" "$(CP9(B")
("kgx" "$(CP:P;P<P=P>P?P@(B")
("kgs" "$(CPAPBPCPDPEPFPGPHPIPJPKPLPMPNPO(B")
("kgw" "$(CPP(B")
("kgz" "$(CPQPRPSPTPUPVPWPXPYPZP[P\P]P^(B")
("kg3" "$(CP_P`PaPbPcPdPe(B")
("kga" "$(CPfPgPhPi(B")
("kd" "$(CPjPkPlPmPnPoPpPqPrPsPtPuPvPwPxPyPzP{P|P}P~Q!Q"Q#Q$Q%Q&Q'Q(Q)Q*Q+Q,Q-Q.Q/Q0Q1Q2Q3Q4Q5Q6Q7Q8Q9Q:Q;Q<Q=Q>Q?Q@QAQBQCQDQEQFQGQHQIQJQK(B")
("kds" "$(CQL(B")
("kdw" "$(CQMQNQOQP(B")
("kdz" "$(CQQ(B")
("kkdx" "$(CQR(B")
("hf" "$(CQSQTQUQVQWQXQYQZQ[Q\Q]Q^Q_Q`Qa(B")
("hfx" "$(CQbQcQdQeQfQgQhQi(B")
("hfs" "$(CQjQkQlQmQnQoQpQqQr(B")
("hfw" "$(CQsQt(B")
("hfz" "$(CQuQvQwQxQyQzQ{Q|Q}(B")
("hf3" "$(CQ~R!R"R#R$(B")
("hfa" "$(CR%R&R'R(R)R*R+(B")
("hr" "$(CR,R-R.R/R0R1(B")
("hra" "$(CR2(B")
("he" "$(CR3(B")
("hes" "$(CR4R5R6(B")
("hez" "$(CR7R8R9R:(B")
("hea" "$(CR;R<(B")
("h/" "$(CR=R>R?R@RARBRCRDRERFRGRHRIRJRKRLRMRN(B")
("h/x" "$(CRORPRQRRRSRT(B")
("h/s" "$(CRU(B")
("h/a" "$(CRVRWRXRYRZR[R\(B")
("h/d" "$(CR]R^R_R`RaRb(B")
("h4" "$(CRc(B")
("h9" "$(CRdReRfRgRhRiRjRk(B")
("h9s" "$(CRl(B")
("h9w" "$(CRm(B")
("h5" "$(CRnRo(B")
("hgx" "$(CRpRq(B")
("hgz" "$(CRr(B")
("hga" "$(CRsRtRuRvRwRx(B")
("hd" "$(CRyRz(B")
("hdx" "$(CR{R|(B")
("uf" "$(CR}R~(B")
("ufs" "$(CS!S"S#S$S%S&S'S(S)S*S+S,S-S.S/S0S1S2S3S4(B")
("ufw" "$(CS5S6S7S8S9(B")
("ufz" "$(CS:S;S<S=S>S?S@SASBSCSDSESFSGSHSISJ(B")
("uf3" "$(CSKSLSMSNSO(B")
("ufa" "$(CSPSQSRSSSTSUSVSWSXSYSZ(B")
("ur" "$(CS[S\S]S^S_S`SaSbScSdSeSfSgShSiSj(B")
("urx" "$(CSk(B")
("utx" "$(CSlSm(B")
("u/" "$(CSnSoSpSqSrSsStSuSvSwSxSySzS{S|S}S~T!T"T#T$T%T&T'T(T)T*T+T,T-T.T/T0T1T2T3T4T5T6T7(B")
("u/x" "$(CT8T9T:T;T<T=T>T?T@TA(B")
("u/s" "$(CTBTCTDTETFTGTHTITJTK(B")
("u/w" "$(CTLTM(B")
("u/a" "$(CTNTOTPTQTRTSTTTUTVTWTXTYTZT[T\T]T^(B")
("u9" "$(CT_T`TaTbTcTdTeTfTgThTi(B")
("u9s" "$(CTjTkTlTmTnTo(B")
("ugx" "$(CTp(B")
("uga" "$(CTqTrTsTtTuTvTwTxTy(B")
("yf" "$(CTzT{T|T}T~U!U"U#U$(B")
("yfx" "$(CU%U&U'U(U)U*U+U,U-(B")
("yfs" "$(CU.U/U0U1U2U3U4U5U6(B")
("yfw" "$(CU7U8(B")
("yfz" "$(CU9U:U;U<U=U>U?U@UAUB(B")
("yf3" "$(CUCUDUE(B")
("yfa" "$(CUFUGUHUIUJUKULUM(B")
("yr" "$(CUNUOUPUQ(B")
("yra" "$(CUR(B")
("y6x" "$(CUSUT(B")
("y6a" "$(CUUUVUWUXUYUZU[U\U]U^U_U`Ua(B")
("ye" "$(CUbUcUdUeUfUgUhUiUjUkUlUmUnUoUpUqUrUs(B")
("yex" "$(CUtUuUvUwUxUyUz(B")
("yes" "$(CU{U|U}U~V!V"V#V$V%V&V'V((B")
("yew" "$(CV)V*V+V,V-V.(B")
("yez" "$(CV/V0V1V2V3(B")
("ye3" "$(CV4(B")
("yea" "$(CV5V6V7V8V9V:V;V<V=V>V?V@VAVBVCVDVEVF(B")
("y7" "$(CVGVHVIVJVK(B")
("y/" "$(CVLVMVNVOVPVQVRVSVTVUVVVWVXVYVZV[V\V](B")
("y/x" "$(CV^V_V`VaVbVcVd(B")
("y/s" "$(CVe(B")
("y/a" "$(CVfVgVhViVjVkVl(B")
("y/d" "$(CVmVnVoVpVqVrVsVt(B")
("y4" "$(CVuVvVwVxVyVzV{V|V}V~W!W"(B")
("y4a" "$(CW#(B")
("y9" "$(CW$W%W&W'W(W)W*W+W,W-W.W/W0(B")
("y5" "$(CW1W2W3W4W5W6W7W8W9W:W;W<W=W>(B")
("y5x" "$(CW?W@WA(B")
("y5s" "$(CWBWCWDWEWFWG(B")
("y5w" "$(CWHWIWJWK(B")
("y5a" "$(CWL(B")
("ygx" "$(CWMWN(B")
("ygz" "$(CWO(B")
("yga" "$(CWPWQWRWSWTWU(B")
("yd" "$(CWVWWWXWYWZW[W\W]W^W_W`WaWbWcWdWeWfWgWhWiWjWkWlWmWnWo(B")
("yds" "$(CWpWqWrWsWtWuWvWwWx(B")
("ydz" "$(CWyWzW{W|W}(B")
("yd3" "$(CW~X!X"X#(B")
("if" "$(CX$X%X&X'X(X)X*X+(B")
("ifx" "$(CX,X-X.X/X0X1(B")
("ifs" "$(CX2X3X4X5X6X7X8X9X:X;X<X=X>X?X@XAXBXCXD(B")
("ifw" "$(CXEXFXGXHXIXJXK(B")
("ifa" "$(CXLXMXNXOXPXQXRXSXTXUXVXW(B")
("ir" "$(CXXXYXZX[X\X]X^X_X`XaXbXcXdXe(B")
("irx" "$(CXfXgXhXiXj(B")
("ira" "$(CXkXlXmXnXoXp(B")
("iex" "$(CXqXr(B")
("ies" "$(CXsXtXuXvXwXxXyXzX{X|X}(B")
("iew" "$(CX~Y!(B")
("iea" "$(CY"Y#Y$Y%Y&Y'Y(Y)Y*Y+Y,Y-Y.Y/Y0(B")
("i7" "$(CY1(B")
("i/" "$(CY2Y3Y4Y5Y6Y7Y8Y9Y:Y;Y<Y=Y>Y?Y@YAYBYCYDYEYFYGYHYI(B")
("i/x" "$(CYJYKYLYMYNYOYP(B")
("i/w" "$(CYQYR(B")
("i/a" "$(CYSYTYU(B")
("i4" "$(CYVYWYXYYYZY[Y\Y]Y^Y_Y`Ya(B")
("i9" "$(CYbYcYdYeYfYgYhYiYjYkYlYmYnYoYpYqYrYsYtYuYvYw(B")
("i9x" "$(CYxYy(B")
("i9s" "$(CYzY{Y|Y}Y~Z!Z"Z#Z$Z%Z&Z'(B")
("i9w" "$(CZ(Z)Z*(B")
("id" "$(CZ+Z,Z-Z.Z/Z0Z1Z2Z3Z4Z5Z6Z7Z8Z9Z:Z;Z<Z=(B")
("ids" "$(CZ>Z?Z@ZAZBZCZDZEZFZGZHZIZJ(B")
("idw" "$(CZKZLZM(B")
(";fx" "$(CZNZOZPZQZRZSZTZUZVZWZXZYZZZ[Z\Z]Z^Z_Z`(B")
(";fs" "$(CZaZbZcZdZeZfZgZhZiZjZkZlZmZnZoZpZqZrZsZtZuZvZwZxZy(B")
(";fw" "$(CZzZ{Z|Z}Z~[!["[#[$[%[&(B")
(";fa" "$(C['[([)[*[+[,[-[.[/[0[1[2[3[4[5[6[7[8[9[:[;[<[=[>[?[@[A[B(B")
(";r" "$(C[C[D[E[F[G[H[I[J[K[L[M[N[O[P[Q[R[S[T[U[V(B")
(";rx" "$(C[W[X[Y[Z[[[\[][^(B")
(";ts" "$(C[_[`[a[b[c[d[e[f[g[h(B")
(";tw" "$(C[i[j[k[l(B")
(";tz" "$(C[m[n[o[p[q[r[s[t[u(B")
(";t3" "$(C[v[w(B")
(";ex" "$(C[x[y[z[{[|[}[~\!\"\#\$(B")
(";es" "$(C\%\&\'\(\)\*\+(B")
(";ew" "$(C\,\-\.\/(B")
(";ea" "$(C\0\1\2\3\4\5\6\7\8\9\:\;\<\=\>\?\@(B")
(";/" "$(C\A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P(B")
(";/x" "$(C\Q\R\S\T\U\V\W\X\Y\Z\[\\\]\^\_\`\a(B")
(";/s" "$(C\b(B")
(";/w" "$(C\c(B")
(";/a" "$(C\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s(B")
(";9" "$(C\t\u\v\w\x\y\z\{\|\}\~]!]"]#]$]%]&]'](])]*]+],]-].]/]0]1]2]3]4]5]6]7]8]9]:];]<]=]>]?]@(B")
(";9x" "$(C]A(B")
(";9s" "$(C]B]C]D]E]F]G]H]I]J]K]L]M]N]O]P]Q]R]S]T(B")
(";9w" "$(C]U]V]W]X]Y(B")
(";9a" "$(C]Z][]\]]]^]_(B")
(";d" "$(C]`]a]b]c]d]e]f]g]h]i]j]k]l]m]n]o]p]q]r]s]t]u]v]w]x]y]z]{]|]}]~^!^"^#^$^%^&^'^(^)^*^+^,(B")
(";ds" "$(C^-^.^/^0^1^2^3^4^5^6^7^8^9^:(B")
(";da" "$(C^;^<^=^>(B")
("nf" "$(C^?^@^A^B^C^D^E^F^G^H^I^J^K^L^M^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^[^\^]^^^_^`^a^b^c^d^e^f^g^h^i^j^k^l^m^n^o^p^q^r^s^t^u^v^w^x^y^z(B")
("nfx" "$(C^{^|^}^~(B")
("nfs" "$(C_!_"_#_$_%_&_'_(_)_*_+_,(B")
("nfw" "$(C_-_._/_0_1(B")
("nfz" "$(C_2_3_4_5_6_7_8_9(B")
("nf3" "$(C_:_;_<_=(B")
("nfa" "$(C_>_?_@_A_B_C_D_E_F_G_H_I_J_K_L_M_N_O_P_Q_R_S_T_U_V_W_X_Y_Z_[_\(B")
("nr" "$(C_]_^__(B")
("nrx" "$(C_`_a_b_c_d(B")
("nra" "$(C_e_f_g_h_i(B")
("nt" "$(C_j_k_l_m_n_o_p_q_r_s_t_u_v_w_x_y_z_{_|_}_~`!`"`#`$`%`&`'`(`)(B")
("ntx" "$(C`*`+`,`-`.`/`0`1`2`3`4`5`6`7`8(B")
("nts" "$(C`9`:`;`<`=`>`?`@`A`B`C`D`E`F`G`H`I`J`K`L`M`N`O`P`Q`R`S`T`U`V`W`X(B")
("ntw" "$(C`Y`Z`[`\`]`^`_```a`b`c`d`e(B")
("ntz" "$(C`f`g`h`i`j`k`l`m(B")
("nt3" "$(C`n`o`p`q(B")
("nta" "$(C`r`s`t`u`v`w`x`y`z`{`|`}`~a!a"a#a$a%(B")
("nc" "$(Ca&a'a(a)a*a+a,a-a.(B")
("n/" "$(Ca/a0a1a2a3a4a5a6a7a8a9a:a;a<a=a>a?a@aAaBaCaDaEaFaGaHaIaJaKaLaMaNaOaPaQaRaS(B")
("n/x" "$(CaTaUaVaWaXaYaZa[a\(B")
("n/s" "$(Ca]a^a_a`aaab(B")
("n/w" "$(Cac(B")
("n/a" "$(Cadaeafagahaiajak(B")
("n/r" "$(Calamanaoap(B")
("n/d" "$(Caqar(B")
("n9" "$(Casatauavawaxayaza{a|a}a~b!b"b#b$b%b&b'b(b)b*b+b,b-b.b/b0b1b2b3b4b5b6b7b8b9b:b;b<b=b>b?b@bAbBbCbDbEbFbGbHbIbJbKbLbMbNbObPbQ(B")
("n9x" "$(CbRbSbTbUbVbWbXbYbZb[b\b](B")
("n9s" "$(Cb^b_b`babbbcbdbebfbgbhbibjbkblbmbnbobpbqbrbsbtbubvbwbx(B")
("n9w" "$(Cbybzb{b|(B")
("n9a" "$(Cb}b~c!(B")
("ngw" "$(Cc"c#c$(B")
("ng3" "$(Cc%c&c'c(c)(B")
("nga" "$(Cc*c+c,c-c.c/c0c1c2c3(B")
("nd" "$(Cc4c5c6c7c8c9c:c;c<c=c>c?c@cAcBcCcDcEcFcGcHcIcJcKcLcMcNcO(B")
("ndx" "$(CcPcQcRcScTcUcVcWcXcYcZc[c\c]c^(B")
("nds" "$(Cc_c`cacbcccdcecfcgchcicjckclcmcncocpcqcrcsctcucv(B")
("ndw" "$(Ccwcxcycz(B")
("ndz" "$(Cc{c|c}c~d!d"d#d$d%d&(B")
("nd3" "$(Cd'd(d)(B")
("nnfa" "$(Cd*(B")
("nnd" "$(Cd+(B")
("jf" "$(Cd,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=(B")
("jfx" "$(Cd>d?d@dAdBdCdDdEdFdGdHdIdJdK(B")
("jfs" "$(CdLdMdNdOdPdQdRdSdTdU(B")
("jfw" "$(CdVdWdXdY(B")
("jfz" "$(CdZd[d\d]d^d_d`da(B")
("jf3" "$(Cdbdcddde(B")
("jfa" "$(Cdfdgdhdidjdkdl(B")
("jr" "$(Cdmdndodpdqdrdsdtdudvdw(B")
("jrx" "$(Cdxdydzd{d|d}d~(B")
("jra" "$(Ce!e"e#e$(B")
("j6" "$(Ce%e&e'e(e)e*e+e,e-e.e/(B")
("j6x" "$(Ce0e1e2e3e4e5e6e7e8(B")
("j6a" "$(Ce9e:e;e<e=e>e?e@eAeBeCeDeEeFeGeHeIeJeKeLeMeNeOePeQeReSeTeUeVeW(B")
("jt" "$(CeXeYeZe[e\e]e^e_e`ea(B")
("jtx" "$(Cebecedeeef(B")
("jts" "$(Cegeheiejekel(B")
("jtw" "$(Cemen(B")
("jtz" "$(Ceoepeqereset(B")
("jt3" "$(Ceuev(B")
("jcs" "$(Cew(B")
("je" "$(Cexeyeze{e|e}e~f!f"f#f$f%f&f'f(f)f*f+f,f-f.f/f0f1(B")
("jex" "$(Cf2f3f4f5f6f7f8f9f:f;f<f=f>(B")
("jes" "$(Cf?f@fAfBfCfDfEfFfGfHfIfJfKfLfMfNfOfPfQfRfSfTfUfVfWfXfYfZf[f\f]f^f_f`fafbfcfdfefffgfhfi(B")
("jew" "$(Cfjfkflfmfnfofpfqfrfs(B")
("jez" "$(Cftfufvfwfxfyfzf{f|f}f~g!g"g#g$(B")
("je3" "$(Cg%g&g'g((B")
("jea" "$(Cg)g*g+g,g-g.g/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>g?g@gAgBgCgDgEgFgGgHgIgJgKgLgMgNgOgP(B")
("j7" "$(CgQgRgSgTgUgVgWgXgYgZg[g\g]g^g_g`gagbgcgdgegfgggh(B")
("j/" "$(Cgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg{g|g}g~h!h"h#h$h%h&h'h((B")
("j/x" "$(Ch)h*h+h,h-(B")
("j/s" "$(Ch.h/h0h1h2h3(B")
("j/w" "$(Ch4(B")
("j/a" "$(Ch5h6h7h8h9h:h;h<h=(B")
("j/f" "$(Ch>h?h@hAhBhChDhE(B")
("j/fs" "$(ChFhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhW(B")
("j/fw" "$(ChX(B")
("j/fa" "$(ChYhZh[h\h](B")
("j/r" "$(Ch^h_h`ha(B")
("j/d" "$(Chbhchdhehf(B")
("j4" "$(Chghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~i!i"i#i$i%i&i'i(i)i*i+i,i-i.(B")
("j4x" "$(Ci/i0i1i2i3i4(B")
("j4a" "$(Ci5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiL(B")
("j9" "$(CiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikil(B")
("j9x" "$(Ciminioipiqirisitiu(B")
("j9s" "$(Civiwixiyizi{i|i}i~j!j"j#j$(B")
("j9w" "$(Cj%j&j'(B")
("j9a" "$(Cj(j)(B")
("j9ts" "$(Cj*j+j,j-j.j/j0j1j2j3j4j5j6j7j8j9j:j;j<j=j>j?j@jAjBjCjD(B")
("j9tw" "$(CjEjFjG(B")
("j9d" "$(CjHjIjJjKjLjMjNjOjPjQjRjSjTjUjVjWjXjYjZj[j\j]j^j_j`(B")
("j5" "$(Cjajbjcjdjejfjgjhjijjjkjljmjnjojpjqjrjsjtjujvjwjxjyjzj{j|j}j~k!k"k#k$k%k&k'k(k)k*k+k,k-k.k/k0k1k2k3k4k5k6k7k8k9k:(B")
("j5x" "$(Ck;k<k=k>k?k@kA(B")
("j5s" "$(CkBkCkDkEkFkGkHkIkJkKkLkMkN(B")
("j5w" "$(CkOkPkQkRkS(B")
("j5a" "$(CkTkUkVkWkX(B")
("jgs" "$(CkYkZk[k\k]k^k_(B")
("jgw" "$(Ck`(B")
("jgz" "$(Ckakbkckdkekf(B")
("jg3" "$(Ckgkhki(B")
("jga" "$(Ckjkkklkm(B")
("j8" "$(Cknkokpkqkrksktkukvkwkxkykzk{k|k}k~l!l"(B")
("jd" "$(Cl#l$l%l&l'l(l)l*l+l,l-l.l/l0l1l2l3l4l5l6l7l8l9l:l;l<l=l>l?l@lAlBlClDlElFlGlH(B")
("jdx" "$(ClIlJlKlLlMlNlOlP(B")
("jds" "$(ClQlRlSlTlUlVlWlXlYlZl[l\l]l^l_l`lalblcldlelflglh(B")
("jdw" "$(Cliljlklllmlnlolplq(B")
("jdz" "$(Clrlsltlulvlwlxlylzl{l|(B")
("jd3" "$(Cl}l~m!m"m#(B")
("jda" "$(Cm$m%m&m'(B")
("lf" "$(Cm(m)m*m+m,m-m.m/m0m1m2m3m4m5m6m7m8m9m:m;m<m=m>m?m@mA(B")
("lfx" "$(CmBmCmDmEmFmGmHmImJmKmLmMmN(B")
("lfs" "$(CmOmPmQmRmS(B")
("lfz" "$(CmTmUmVmWmXmY(B")
("lf3" "$(CmZ(B")
("lfa" "$(Cm[m\m]m^m_m`mambmcmdmemfmgmhmimjmkmlmmmnmompmqmrmsmtmumvmwmxmymzm{m|m}m~n!(B")
("" "$(Cn3n4n5n6(B")
("lr" "$(Cn"n#n$n%n&n'n(n)n*n+n,n-n.n/n0n1n2(B")
("lt" "$(Cn7n8n9n:n;n<n=n>n?n@nAnBnCnDnEnFnGnHnInJnKnLnMnNnOnPnQnR(B")
("ltx" "$(CnSnTnUnVnWnXnYnZn[n\n]n^n_n`nanbncndnenfngnhninjnk(B")
("lts" "$(Cnlnmnnnonpnqnrnsntnunvnwnxnynzn{n|n}n~o!o"o#o$o%o&o'o(o)o*o+o,o-o.o/o0o1o2o3o4o5o6(B")
("ltw" "$(Co7o8o9o:o;o<o=o>(B")
("ltz" "$(Co?o@oAoBoCoDoEoFoG(B")
("lt3" "$(CoHoIoJ(B")
("lta" "$(CoKoLoMoNoOoPoQoRoSoToUoVoWoXoYoZo[o\o]o^o_o`oaobocodoeofogohoiojokolomonooopoqorosotouovowoxoyozo{o|o}o~p!p"p#(B")
("lc" "$(Cp$p%p&p'p(p)p*p+p,p-p.p/p0p1p2p3p4p5p6p7p8p9p:(B")
("l/" "$(Cp;p<p=p>p?p@pApBpCpDpEpFpGpHpIpJpKpLpMpNpOpPpQpRpSpTpUpVpWpXpYpZp[p\p]p^p_p`papbpcpdpepfpgph(B")
("l/x" "$(Cpipjpkpl(B")
("l/s" "$(Cpmpn(B")
("l/w" "$(Cpopppq(B")
("l/a" "$(Cprpsptpupvpwpxpypzp{p|p}p~q!q"q#q$(B")
("l/f" "$(Cq%q&q'q(q)(B")
("l/d" "$(Cq*(B")
("l9" "$(Cq+q,q-q.q/q0q1q2q3q4q5q6q7q8q9q:q;q<q=q>q?q@qAqBqCqDqEqFqGqHqIqJqKqLqMqNqOqPqQqR(B")
("l9x" "$(CqSqT(B")
("l9s" "$(CqUqVqWqXqYqZq[q\q]q^q_q`qaqbqcqdqeqfqg(B")
("l9w" "$(Cqh(B")
("l9a" "$(Cqiqjqkql(B")
("lgx" "$(Cqm(B")
("lgw" "$(Cqn(B")
("lg3" "$(Cqoqpqq(B")
("lga" "$(Cqrqsqtquqvqwqxqyqzq{q|(B")
("ld" "$(Cq}q~r!r"r#r$r%r&r'r(r)r*r+r,r-r.r/r0r1r2r3r4r5r6r7r8r9r:r;r<r=r>r?r@(B")
("ldx" "$(CrArBrCrDrE(B")
("lds" "$(CrFrGrHrIrJrKrLrMrNrOrPrQrRrSrTrUrVrWrXrYrZr[r\r]r^r_r`rarbrcrdrerfrgrh(B")
("ldw" "$(Crirjrkrlrmrnrorprqrrrsrtrurvrw(B")
("ldz" "$(Crxry(B")
("ld3" "$(Crzr{r|r}r~s!s"(B")
("lda" "$(Cs#s$s%(B")
("of" "$(Cs&s's(s)s*s+s,s-s.s/s0s1s2s3s4(B")
("ofx" "$(Cs5s6s7s8s9s:s;(B")
("ofs" "$(Cs<s=s>s?s@sAsBsCsDsEsFsGsHsIsJ(B")
("ofw" "$(CsKsLsMsNsO(B")
("ofz" "$(CsPsQsRsSsTsUsVsWsXsY(B")
("ofa" "$(CsZs[s\s]s^s_s`sasbscsdsesfsgshsisjskslsmsnso(B")
("or" "$(Cspsqsrssstsusvswsxsyszs{(B")
("orx" "$(Cs|s}s~t!(B")
("ot" "$(Ct"t#t$t%(B")
("otx" "$(Ct&t't(t)t*t+t,t-t.t/t0t1t2t3t4(B")
("ots" "$(Ct5t6t7t8t9t:t;t<t=t>t?t@tAtBtCtDtEtFtG(B")
("otw" "$(CtHtItJtKtLtMtNtOtPtQ(B")
("otz" "$(CtRtStTtUtVtWtXtYtZt[(B")
("ot3" "$(Ct\t]t^t_t`tatbtctdte(B")
("ota" "$(Ctftgthtitjtktltm(B")
("oc" "$(Ctntotptqtrtstttutvtw(B")
("o/" "$(Ctxtytzt{t|t}t~u!u"u#u$u%u&u'u(u)u*u+u,u-u.u/u0u1u2u3u4(B")
("o/x" "$(Cu5u6u7u8u9u:(B")
("o/s" "$(Cu;u<u=u>(B")
("o/a" "$(Cu?u@uAuBuCuDuEuFuGuH(B")
("o/fw" "$(CuI(B")
("o/d" "$(CuJuKuL(B")
("o9" "$(CuMuNuOuPuQuRuSuTuUuVuWuXuYuZu[u\u]u^u_u`uaubuc(B")
("o9x" "$(Cudueufuguhuiujukulumunuo(B")
("o9s" "$(Cupuqur(B")
("o9w" "$(Cusutuu(B")
("o9a" "$(Cuvuwuxuyuzu{(B")
("o9c" "$(Cu|u}u~v!(B")
("o9d" "$(Cv"v#v$v%v&v'v(v)v*v+v,v-v.v/(B")
("ogx" "$(Cv0v1v2v3v4(B")
("oga" "$(Cv5(B")
("od" "$(Cv6v7v8v9v:v;v<v=v>v?v@vAvBvCvDvEvFvGvHvIvJvKvLvM(B")
("odx" "$(CvNvOvP(B")
("ods" "$(CvQ(B")
("odw" "$(CvRvSvT(B")
("odz" "$(CvUvVvWvXvYvZv[v\v](B")
("od3" "$(Cv^(B")
("oda" "$(Cv_v`(B")
("0/r" "$(Cva(B")
("'f" "$(Cvbvcvdvevfvgvhvivjvkvlvmvnvo(B")
("'fx" "$(Cvpvqvrvsvtvuvvvwvxvyvzv{v|v}v~w!(B")
("'fs" "$(Cw"w#w$w%w&w'w(w)w*w+(B")
("'fw" "$(Cw,w-(B")
("'fz" "$(Cw.w/w0w1(B")
("'f3" "$(Cw2w3w4(B")
("'fa" "$(Cw5w6w7w8w9(B")
("'r" "$(Cw:w;w<w=w>w?w@wAwBwCwDwEwFwG(B")
("'rx" "$(CwHwIwJ(B")
("'ra" "$(CwK(B")
("'t" "$(CwL(B")
("'/" "$(CwMwNwOwP(B")
("'/a" "$(CwQwRwSwTwUwVwW(B")
("'/d" "$(CwXwYwZw[w\w](B")
("'9" "$(Cw^w_w`wawbwc(B")
("'gx" "$(Cwdwe(B")
("'gz" "$(Cwf(B")
("pf" "$(Cwgwhwiwjwkwlwmwnwowpwqwrwswtwuwv(B")
("pfs" "$(Cwwwxwywzw{w|w}w~x!(B")
("pfw" "$(Cx"x#x$(B")
("pr" "$(Cx%x&x'x(x)x*x+x,x-x.x/(B")
("pra" "$(Cx0x1x2x3(B")
("p6x" "$(Cx4(B")
("pes" "$(Cx5x6x7x8x9x:x;x<x=x>(B")
("pez" "$(Cx?(B")
("pea" "$(Cx@xAxBxCxD(B")
("p7" "$(CxExFxGxHxIxJxKxLxMxN(B")
("p/" "$(CxOxPxQxRxSxTxUxVxWxXxYxZx[x\x]x^x_x`xaxbxcxdxexfxgxhxixj(B")
("p/x" "$(Cxkxlxmxnxoxp(B")
("p4" "$(Cxqxrxsxtxuxvxwxxxyxzx{x|x}x~(B")
("p9z" "$(Cy!y"(B")
("p9a" "$(Cy#y$y%y&y'(B")
("pd" "$(Cy(y)y*y+y,y-y.(B")
("pdw" "$(Cy/y0y1y2y3y4y5y6y7y8(B")
("pd3" "$(Cy9y:(B")
("mf" "$(Cy;y<y=y>y?y@yAyByCyDyEyFyGyH(B")
("mfx" "$(CyIyJyKyLyM(B")
("mfs" "$(CyNyOyPyQyRySyTyUyVyWyXyYyZy[(B")
("mfw" "$(Cy\y](B")
("mfz" "$(Cy^y_y`yaybycydyeyfygyhyi(B")
("mf3" "$(Cyjykylymynyoyp(B")
("mfa" "$(Cyqyrysytyuyvywyxyyyzy{y|y}y~z!z"z#(B")
("mr" "$(Cz$z%z&z'z(z)z*z+z,z-z.z/z0z1z2z3z4z5(B")
("mrx" "$(Cz6z7(B")
("mra" "$(Cz8z9z:z;z<(B")
("m6a" "$(Cz=z>z?z@zAzBzCzDzE(B")
("mt" "$(CzFzGzHzI(B")
("mts" "$(CzJzKzLzM(B")
("mtw" "$(CzN(B")
("mtz" "$(CzOzP(B")
("mex" "$(CzQzRzSzT(B")
("mes" "$(CzUzVzWzXzYzZz[z\z]z^z_z`zazbzczdzezfzgzhzi(B")
("mew" "$(Czjzkzlzm(B")
("mez" "$(Czn(B")
("me3" "$(Czozpzqzrzsztzuzvzwzxzyzz(B")
("mea" "$(Cz{z|z}z~{!{"{#{${%{&{'{({){*{+{,{-{.{/{0(B")
("m7" "$(C{1{2{3{4{5{6{7{8{9(B")
("m/" "$(C{:{;{<{={>{?{@{A{B{C{D{E{F{G{H{I{J{K{L{M{N{O{P{Q{R{S{T{U{V{W{X{Y{Z{[{\{]{^{_{`{a{b(B")
("m/x" "$(C{c{d{e(B")
("m/s" "$(C{f{g{h{i{j{k(B")
("m/w" "$(C{l{m{n(B")
("m/a" "$(C{o{p{q{r{s{t{u{v{w{x(B")
("m/f" "$(C{y{z{{{|{}{~|!|"|#|$|%|&|'|((B")
("m/fx" "$(C|)|*|+|,|-|.(B")
("m/fs" "$(C|/|0|1|2|3|4|5|6|7|8|9|:|;|<|=|>|?(B")
("m/fw" "$(C|@|A|B|C|D(B")
("m/fa" "$(C|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|[|\(B")
("m/d" "$(C|]|^|_|`|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p(B")
("m/dx" "$(C|q|r(B")
("m/da" "$(C|s|t|u(B")
("m4" "$(C|v|w|x|y|z|{|||}|~}!}"}#}$(B")
("m9" "$(C}%}&}'}(})}*}+},}-}.}/}0}1(B")
("m9s" "$(C}2}3}4}5}6}7}8}9}:};(B")
("m9a" "$(C}<(B")
("m9ts" "$(C}=}>}?}@(B")
("m9c" "$(C}A}B}C(B")
("m9d" "$(C}D}E}F}G}H}I}J}K(B")
("m5" "$(C}L}M}N}O}P(B")
("m5w" "$(C}Q}R}S(B")
("m5a" "$(C}T}U}V}W}X(B")
("mgx" "$(C}Y(B")
("mgs" "$(C}Z}[}\}](B")
("mgw" "$(C}^}_}`}a(B")
("mgz" "$(C}b}c}d(B")
("mg3" "$(C}e}f}g}h(B")
("mga" "$(C}i(B")
("m8" "$(C}j}k}l}m}n}o}p}q}r}s}t}u}v}w}x}y}z}{}|}}(B")
("mdw" "$(C}~(B"))
;;; korea-util.el --- utilities for Korean
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Keywords: mule, multilingual, Korean
;; This file is part of GNU Emacs.
;; GNU Emacs 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.
;; GNU Emacs 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.
;;; Code:
;;;###autoload
(defvar default-korean-keyboard ""
"*The kind of Korean keyboard for Korean input method.
\"\" for 2, \"3\" for 3.")
;; functions useful for Korean text input
(defun toggle-korean-input-method ()
"Turn on or off a Korean text input method for the current buffer."
(interactive)
(if current-input-method
(inactivate-input-method)
(activate-input-method
(concat "korean-hangul" default-korean-keyboard))))
(defun quail-hangul-switch-symbol-ksc (&rest ignore)
"Swith to/from Korean symbol package."
(interactive "i")
(and current-input-method
(if (string-equal current-input-method "korean-symbol")
(activate-input-method (concat "korean-hangul"
default-korean-keyboard))
(activate-input-method "korean-symbol"))))
(defun quail-hangul-switch-hanja (&rest ignore)
"Swith to/from Korean hanja package."
(interactive "i")
(and current-input-method
(if (string-match "korean-hanja" current-input-method)
(activate-input-method (concat "korean-hangul"
default-korean-keyboard))
(activate-input-method (concat "korean-hanja"
default-korean-keyboard)))))
;; Information for exiting Korean environment.
(defvar exit-korean-environment-data nil)
;;;###autoload
(defun setup-korean-environment ()
"Setup multilingual environment (MULE) for Korean."
(interactive)
(setup-english-environment)
(setq coding-category-iso-8-2 'korean-iso-8bit)
(set-coding-priority
'(coding-category-iso-7
coding-category-iso-8-2
coding-category-iso-8-1))
(set-default-coding-systems 'korean-iso-8bit)
(setq default-input-method "korean-hangul")
(let ((key-bindings '(([?\S- ] . toggle-korean-input-method)
([C-f9] . quail-hangul-switch-symbol-ksc)
([f9] . quail-hangul-switch-hanja))))
(while key-bindings
(let ((prev-binding (global-key-binding (car (car key-bindings)))))
(setq exit-korean-environment-data
(cons (cons (car (car key-bindings)) prev-binding)
exit-korean-environment-data)))
(global-set-key (car (car key-bindings)) (cdr (car key-bindings)))
(setq key-bindings (cdr key-bindings)))))
(defun exit-korean-environment ()
"Exit Korean language environment."
(while exit-korean-environment-data
(global-set-key (car (car exit-korean-environment-data))
(cdr (car exit-korean-environment-data)))
(setq exit-korean-environment-data
(cdr exit-korean-environment-data))))