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