Commit | Line | Data |
---|---|---|
047eced5 | 1 | ;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*- |
24b31c88 | 2 | |
95df8112 | 3 | ;; Copyright (C) 1997, 2001-2011 Free Software Foundation, Inc. |
03ba6797 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
5df4f04c | 5 | ;; 2006, 2007, 2008, 2009, 2010, 2011 |
698218a2 KH |
6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
7 | ;; Registration Number H14PRO021 | |
24b31c88 KH |
8 | |
9 | ;; Keywords: multilingual, input method, Korean, Hangul | |
10 | ||
11 | ;; This file is part of GNU Emacs. | |
12 | ||
3d544458 | 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
24b31c88 | 14 | ;; it under the terms of the GNU General Public License as published by |
3d544458 GM |
15 | ;; the Free Software Foundation, either version 3 of the License, or |
16 | ;; (at your option) any later version. | |
24b31c88 KH |
17 | |
18 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | ;; GNU General Public License for more details. | |
22 | ||
23 | ;; You should have received a copy of the GNU General Public License | |
3d544458 | 24 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
24b31c88 KH |
25 | |
26 | ;;; 94.10.24 Written for Mule Ver.2.0 (koaunghi.un@zdv.uni-tuebingen.de) | |
27 | ;;; 94.11.04 Updated for Mule Ver.2.1 (koaunghi.un@zdv.uni-tuebingen.de) | |
28 | ;;; 96.09.23 Updated for emacs-19.33-beta (koaunghi.un@zdv.uni-tuebingen.de) | |
29 | ||
be567141 | 30 | ;;; Commentary: |
24b31c88 KH |
31 | |
32 | ;;; Code: | |
33 | ||
34 | (require 'quail) | |
d71da2a6 | 35 | (require 'korea-util) |
24b31c88 KH |
36 | |
37 | (quail-define-package | |
d71da2a6 | 38 | "korean-symbol" "Korean" "\e$(C=I9z\e(B" t |
24b31c88 KH |
39 | "\e$(CGQ1[=I9z@T7BG%\e(B: |
40 | \e$(C!<\e(B(\e$(C!=0}H#?-1b!<\e(Barrow\e$(C!=H-;l!<\e(Bsex\e$(C!=!N!O!<\e(Bindex\e$(C!=C7@Z\e(B \e$(C!<\e(Baccent\e$(C!=>G<>F.\e(B | |
41 | \e$(C!<\e(B)\e$(C!=0}H#4]1b!<\e(Bmusic\e$(C!=@=>G!<\e(Bdot\e$(C!=A!\e(B \e$(C!<\e(Bquote\e$(C!=5{?HG%!<\e(Bxtext\e$(C!=!W!X"R"."/\e(B | |
42 | \e$(C!<\e(BUnit\e$(C!=!I!J!K"5!<\e(Bmath\e$(C!=<vGP1bH#!<\e(Bpic\e$(C!=;sG|9.@Z!<\e(Bline\e$(C!=<19.@Z\e(B | |
43 | \e$(C!<\e(Bunit\e$(C!=4\@'\e(B \e$(C!<\e(Bfrac\e$(C!=:P<v\e(B \e$(C!<\e(Btextline\e$(C!=!)!*!+!,!-\e(B | |
44 | \e$(C!<\e(Bwn\e$(C!="_!<\e(Bks\e$(C!="^!<\e(BNo\e$(C!="`!<"a!="a\e(B \e$(C!<\e(Bdag\e$(C!="S\e(B \e$(C!<\e(Bddag\e$(C!="T!<\e(Bpercent\e$(C!="6\e(B | |
45 | \e$(C!<\e(Bam\e$(C!="c!<\e(Bpm\e$(C!="d!<"b!="b!<\e(BTel\e$(C!="e!<\e(Bwon\e$(C!=#\\e(B \e$(C!<\e(Byen\e$(C!=!M\e(B \e$(C!<\e(Bpound\e$(C!=!L\e(B | |
6bbe46e8 | 46 | \e$(C!<\e(BEng\e$(C!=#A#B#C!&\e(B \e$(C!<\e(Benum\e$(C!=#0#1#2!&\e(B \e$(C!<\e(BRuss\e$(C!=,!,",#!&!<\e(BGreek\e$(C!=%A%B%C!&\e(B |
24b31c88 | 47 | \e$(C!<\e(Beng\e$(C!=#a#b#c!&\e(B \e$(C!<\e(Beasc\e$(C!=?5>n\e(BASCII\e$(C!<\e(Bruss\e$(C!=,Q,R,S!&!<\e(Bgreek\e$(C!=%a%b%c!&\e(B |
6bbe46e8 JL |
48 | \e$(C!<\e(BRom\e$(C!=%0%1%2!&\e(B \e$(C!<\e(BScan\e$(C!=(!("(#!&\e(B \e$(C!<\e(Bhira\e$(C!=*!*"*#\e(B |
49 | \e$(C!<\e(Brom\e$(C!=%!%"%#!&\e(B \e$(C!<\e(Bscan\e$(C!=)!)")#!&\e(B \e$(C!<\e(Bkata\e$(C!=+!+"+#\e(B | |
24b31c88 KH |
50 | \e$(C!<\e(Bojaso\e$(C!=(1!-(>!<\e(Bpjaso\e$(C!=)1!-)>!<\e(Boeng\e$(C!=(M!-(f!<\e(Bpeng\e$(C!=)M!-)f\e(B |
51 | \e$(C!<\e(Bogana\e$(C!=(?!-(L!<\e(Bpgana\e$(C!=)?!-)L!<\e(Bonum\e$(C!=(g!-(u!<\e(Bpnum\e$(C!=)g!-)u\e(B | |
20b5aff9 | 52 | \e$(C!<@Z<R!=\e(B2\e$(C9z=D\e(B + \e$(C$U\e(B(S) \e$(C$o\e(B(t_) \e$(C$q\e(B(D) \e$(C$p\e(B(DD) \e$(C$a\e(B(aD) \e$(C$v\e(B(_d) \e$(C$u\e(B(G) \e$(C$}\e(B(uk)") |
24b31c88 KH |
53 | |
54 | (quail-define-rules | |
24b31c88 KH |
55 | ("(" "\e$(C!2!4!6!8!:!<\e(B") |
56 | (")" "\e$(C!3!5!7!9!;!=\e(B") | |
6bbe46e8 JL |
57 | ("math" "\e$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"!"""#"$"1"2"3\e(B") |
58 | ("pic" "\e$(C!Y!Z![!\!]!^!_!`!a!b!c!d!e"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"4\e(B") | |
24b31c88 | 59 | ("arrow" "\e$(C!f!g!h!i!j"U"V"W"X"Y\e(B") |
6bbe46e8 | 60 | ("music" "\e$(C"Z"["\"]\e(B") |
24b31c88 KH |
61 | ("won" "\e$(C#\\e(B") |
62 | ("yen" "\e$(C!M\e(B") | |
63 | ("pound" "\e$(C!L\e(B") | |
64 | ("xtext" "\e$(C!W!X"R"."/\e(B") | |
65 | ("dot" "\e$(C!$!%!&!'"0\e(B") | |
66 | ("quote" "\e$(C!"!#!(!.!/!0!1!F!G!H"%")\e(B") | |
67 | ("textline" "\e$(C!)!*!+!,!-\e(B") | |
68 | ("Unit" "\e$(C!I!J!K"5\e(B") | |
69 | ("sex" "\e$(C!N!O\e(B") | |
70 | ("accent" "\e$(C"&"'"("*"+","-\e(B") | |
71 | ("percent" "\e$(C"6\e(B") | |
72 | ("dag" "\e$(C"S\e(B") | |
73 | ("ddag" "\e$(C"T\e(B") | |
74 | ("wn" "\e$(C"_\e(B") | |
75 | ("ks" "\e$(C"^\e(B") | |
76 | ("No" "\e$(C"`\e(B") | |
77 | ("Co" "\e$(C"a\e(B") | |
78 | ("TM" "\e$(C"b\e(B") | |
79 | ("am" "\e$(C"c\e(B") | |
80 | ("pm" "\e$(C"d\e(B") | |
81 | ("Tel" "\e$(C"e\e(B") | |
6bbe46e8 | 82 | ("easc" "\e$(C#!#"###$#%#&#'#(#)#*#+#,#-#.#/#:#;#<#=#>#?#@#[#]#^#_#`#{#|#}#~\e(B") |
24b31c88 KH |
83 | ("enum" "\e$(C#0#1#2#3#4#5#6#7#8#9\e(B") |
84 | ("Eng" "\e$(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\e(B") | |
85 | ("eng" "\e$(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\e(B") | |
86 | ("r" "\e$(C$!\e(B") | |
87 | ("R" "\e$(C$"\e(B") | |
88 | ("rt" "\e$(C$#\e(B") | |
89 | ("s" "\e$(C$$\e(B") | |
90 | ("sw" "\e$(C$%\e(B") | |
91 | ("sg" "\e$(C$&\e(B") | |
92 | ("e" "\e$(C$'\e(B") | |
93 | ("E" "\e$(C$(\e(B") | |
94 | ("f" "\e$(C$)\e(B") | |
95 | ("fr" "\e$(C$*\e(B") | |
96 | ("fa" "\e$(C$+\e(B") | |
97 | ("fq" "\e$(C$,\e(B") | |
98 | ("ft" "\e$(C$-\e(B") | |
99 | ("fx" "\e$(C$.\e(B") | |
100 | ("fv" "\e$(C$/\e(B") | |
101 | ("fg" "\e$(C$0\e(B") | |
102 | ("a" "\e$(C$1\e(B") | |
103 | ("q" "\e$(C$2\e(B") | |
104 | ("Q" "\e$(C$3\e(B") | |
105 | ("qt" "\e$(C$4\e(B") | |
106 | ("t" "\e$(C$5\e(B") | |
107 | ("T" "\e$(C$6\e(B") | |
108 | ("d" "\e$(C$7\e(B") | |
109 | ("w" "\e$(C$8\e(B") | |
110 | ("W" "\e$(C$9\e(B") | |
111 | ("c" "\e$(C$:\e(B") | |
112 | ("z" "\e$(C$;\e(B") | |
113 | ("x" "\e$(C$<\e(B") | |
114 | ("v" "\e$(C$=\e(B") | |
115 | ("g" "\e$(C$>\e(B") | |
116 | ("k" "\e$(C$?\e(B") | |
117 | ("o" "\e$(C$@\e(B") | |
118 | ("i" "\e$(C$A\e(B") | |
20b5aff9 | 119 | ("O" "\e$(C$B\e(B") |
24b31c88 KH |
120 | ("j" "\e$(C$C\e(B") |
121 | ("p" "\e$(C$D\e(B") | |
122 | ("u" "\e$(C$E\e(B") | |
123 | ("P" "\e$(C$F\e(B") | |
124 | ("h" "\e$(C$G\e(B") | |
125 | ("hk" "\e$(C$H\e(B") | |
126 | ("ho" "\e$(C$I\e(B") | |
127 | ("hl" "\e$(C$J\e(B") | |
128 | ("y" "\e$(C$K\e(B") | |
129 | ("n" "\e$(C$L\e(B") | |
20b5aff9 | 130 | ("nj" "\e$(C$M\e(B") |
24b31c88 KH |
131 | ("np" "\e$(C$N\e(B") |
132 | ("nl" "\e$(C$O\e(B") | |
133 | ("b" "\e$(C$P\e(B") | |
134 | ("m" "\e$(C$Q\e(B") | |
135 | ("ml" "\e$(C$R\e(B") | |
136 | ("l" "\e$(C$S\e(B") | |
137 | ("S" "\e$(C$U\e(B") | |
138 | ("se" "\e$(C$V\e(B") | |
139 | ("st" "\e$(C$W\e(B") | |
140 | ("st_" "\e$(C$X\e(B") | |
141 | ("frt" "\e$(C$Y\e(B") | |
142 | ("fqt" "\e$(C$[\e(B") | |
143 | ("fe" "\e$(C$Z\e(B") | |
144 | ("ft_" "\e$(C$\\e(B") | |
20b5aff9 | 145 | ("f_d" "\e$(C$]\e(B") |
24b31c88 KH |
146 | ("aq" "\e$(C$^\e(B") |
147 | ("at" "\e$(C$_\e(B") | |
148 | ("at_" "\e$(C$`\e(B") | |
149 | ("aD" "\e$(C$a\e(B") | |
150 | ("qr" "\e$(C$b\e(B") | |
151 | ("qe" "\e$(C$c\e(B") | |
152 | ("qtr" "\e$(C$d\e(B") | |
153 | ("qte" "\e$(C$e\e(B") | |
154 | ("qw" "\e$(C$f\e(B") | |
155 | ("qx" "\e$(C$g\e(B") | |
156 | ("qD" "\e$(C$h\e(B") | |
157 | ("QD" "\e$(C$i\e(B") | |
158 | ("tr" "\e$(C$j\e(B") | |
159 | ("ts" "\e$(C$k\e(B") | |
160 | ("te" "\e$(C$l\e(B") | |
161 | ("tq" "\e$(C$m\e(B") | |
162 | ("tw" "\e$(C$n\e(B") | |
163 | ("t_" "\e$(C$o\e(B") | |
164 | ("DD" "\e$(C$p\e(B") | |
165 | ("D" "\e$(C$q\e(B") | |
20b5aff9 | 166 | ("Dt" "\e$(C$r\e(B") |
24b31c88 KH |
167 | ("Dt_" "\e$(C$s\e(B") |
168 | ("vD" "\e$(C$t\e(B") | |
20b5aff9 KH |
169 | ("G" "\e$(C$u\e(B") |
170 | ("_d" "\e$(C$v\e(B") | |
24b31c88 KH |
171 | ("yi" "\e$(C$w\e(B") |
172 | ("yO" "\e$(C$x\e(B") | |
173 | ("yl" "\e$(C$y\e(B") | |
174 | ("bu" "\e$(C$z\e(B") | |
175 | ("bP" "\e$(C${\e(B") | |
176 | ("bl" "\e$(C$|\e(B") | |
177 | ("uk" "\e$(C$}\e(B") | |
178 | ("ukl" "\e$(C$~\e(B") | |
179 | ("Rom" "\e$(C%0%1%2%3%4%5%6%7%8%9\e(B") | |
180 | ("rom" "\e$(C%!%"%#%$%%%&%'%(%)%*\e(B") | |
181 | ("Greek" "\e$(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\e(B") | |
182 | ("greek" "\e$(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\e(B") | |
6bbe46e8 JL |
183 | ("line" "\e$(C&!&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&3&4&5&6&7&8&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&Y&Z&[&\&]&^&_&`&a&b&c&d\e(B") |
184 | ("unit" "\e$(C'!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'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'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o\e(B") | |
185 | ("Scan" "\e$(C(!("(#($(&((()(*(+(,(-(.(/\e(B") | |
24b31c88 KH |
186 | ("ojaso" "\e$(C(1(2(3(4(5(6(7(8(9(:(;(<(=(>\e(B") |
187 | ("ogana" "\e$(C(?(@(A(B(C(D(E(F(G(H(I(J(K(L\e(B") | |
188 | ("oeng" "\e$(C(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f\e(B") | |
189 | ("onum" "\e$(C(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u\e(B") | |
190 | ("frac" "\e$(C(v(w(x(y(z({(|(}(~\e(B") | |
6bbe46e8 | 191 | ("scan" "\e$(C)!)")#)$)%)&)')()))*)+),)-).)/)0\e(B") |
24b31c88 KH |
192 | ("pjaso" "\e$(C)1)2)3)4)5)6)7)8)9):);)<)=)>\e(B>") |
193 | ("pgana" "\e$(C)?)@)A)B)C)D)E)F)G)H)I)J)K)L\e(B") | |
194 | ("peng" "\e$(C)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f\e(B") | |
195 | ("pnum" "\e$(C)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u\e(B") | |
196 | ("index" "\e$(C)v)w)x)y)z){)|)})~\e(B") | |
6bbe46e8 JL |
197 | ("hira" "\e$(C*!*"*#*$*%*&*'*(*)***+*,*-*.*/*0*1*2*3*4*5*6*7*8*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*Y*Z*[*\*]*^*_*`*a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s\e(B") |
198 | ("kata" "\e$(C+!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+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+Y+Z+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v\e(B") | |
199 | ("Russ" "\e$(C,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A\e(B") | |
200 | ("russ" "\e$(C,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\e(B")) | |
be567141 PJ |
201 | |
202 | ;;; symbol-ksc.el ends here |