Mercurial > emacs
annotate leim/quail/symbol-ksc.el @ 55312:3b7a4fa9b2d8
(bibtex-sort-buffer): Remove error message.
(bibtex-clean-entry): Disentangle code.
(bibtex-realign): New function.
(bibtex-reformat): Use mapcar and bibtex-realign. Do not use
bibtex-beginning-of-first-entry and bibtex-skip-to-valid-entry.
Remove undocumented optional arg called-by-convert-alien.
(bibtex-convert-alien): Use bibtex-realign. Use bibtex-reformat
for sorting instead of bibtex-sort-buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 02 May 2004 17:17:57 +0000 |
parents | 695cf19ef79e |
children | 23a17af379b1 375f2633d815 |
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 |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 | |
6 ;; Keywords: multilingual, input method, Korean, Hangul | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; 94.10.24 Written for Mule Ver.2.0 (koaunghi.un@zdv.uni-tuebingen.de) | |
26 ;;; 94.11.04 Updated for Mule Ver.2.1 (koaunghi.un@zdv.uni-tuebingen.de) | |
27 ;;; 96.09.23 Updated for emacs-19.33-beta (koaunghi.un@zdv.uni-tuebingen.de) | |
28 | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
22673
diff
changeset
|
29 ;;; Commentary: |
18673 | 30 |
31 ;;; Code: | |
32 | |
33 (require 'quail) | |
20438
1c8c81e873ac
Title string of the input method
Kenichi Handa <handa@m17n.org>
parents:
19414
diff
changeset
|
34 (require 'korea-util) |
18673 | 35 |
36 (quail-define-package | |
20438
1c8c81e873ac
Title string of the input method
Kenichi Handa <handa@m17n.org>
parents:
19414
diff
changeset
|
37 "korean-symbol" "Korean" "$(C=I9z(B" t |
18673 | 38 "$(CGQ1[=I9z@T7BG%(B: |
39 $(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 | |
40 $(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 | |
41 $(C!<(BUnit$(C!=!I!J!K"5!<(Bmath$(C!=<vGP1bH#!<(Bpic$(C!=;sG|9.@Z!<(Bline$(C!=<19.@Z(B | |
42 $(C!<(Bunit$(C!=4\@'(B $(C!<(Bfrac$(C!=:P<v(B $(C!<(Btextline$(C!=!)!*!+!,!-(B | |
43 $(C!<(Bwn$(C!="_!<(Bks$(C!="^!<(BNo$(C!="`!<"a!="a(B $(C!<(Bdag$(C!="S(B $(C!<(Bddag$(C!="T!<(Bpercent$(C!="6(B | |
44 $(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 | |
45 $(C!<(BEng$(C!=#A#B#C!&(B $(C!<(Benum$(C!=#0#1#2!&(B $(C!<(BRuss$(C!=,",#,$!&!<(BGreek$(C!=%A%B%C!&(B | |
46 $(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 | |
47 $(C!<(BRom$(C!=%0%1%2!&(B $(C!<(BScan$(C!=("(#($!&(B $(C!<(Bhira$(C!=*"*#*$(B | |
48 $(C!<(Brom$(C!=%!%"%#!&(B $(C!<(Bscan$(C!=)")#)$!&(B $(C!<(Bkata$(C!=+"+#+$(B | |
49 $(C!<(Bojaso$(C!=(1!-(>!<(Bpjaso$(C!=)1!-)>!<(Boeng$(C!=(M!-(f!<(Bpeng$(C!=)M!-)f(B | |
50 $(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
|
51 $(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 | 52 |
53 (quail-define-rules | |
54 ("(" "$(C!2!4!6!8!:!<(B") | |
55 (")" "$(C!3!5!7!9!;!=(B") | |
56 ("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") | |
57 ("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") | |
58 ("arrow" "$(C!f!g!h!i!j"U"V"W"X"Y(B") | |
59 ("music" "$(C"["Z"\"](B") | |
60 ("won" "$(C#\(B") | |
61 ("yen" "$(C!M(B") | |
62 ("pound" "$(C!L(B") | |
63 ("xtext" "$(C!W!X"R"."/(B") | |
64 ("dot" "$(C!$!%!&!'"0(B") | |
65 ("quote" "$(C!"!#!(!.!/!0!1!F!G!H"%")(B") | |
66 ("textline" "$(C!)!*!+!,!-(B") | |
67 ("Unit" "$(C!I!J!K"5(B") | |
68 ("sex" "$(C!N!O(B") | |
69 ("accent" "$(C"&"'"("*"+","-(B") | |
70 ("percent" "$(C"6(B") | |
71 ("dag" "$(C"S(B") | |
72 ("ddag" "$(C"T(B") | |
73 ("wn" "$(C"_(B") | |
74 ("ks" "$(C"^(B") | |
75 ("No" "$(C"`(B") | |
76 ("Co" "$(C"a(B") | |
77 ("TM" "$(C"b(B") | |
78 ("am" "$(C"c(B") | |
79 ("pm" "$(C"d(B") | |
80 ("Tel" "$(C"e(B") | |
81 ("easc" "$(C#"###$#%#&#'#(#)#*#+#,#-#.#/#:#;#<#=#>#?#@#[#]#^#_#`#{#|#}#~(B") | |
82 ("enum" "$(C#0#1#2#3#4#5#6#7#8#9(B") | |
83 ("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") | |
84 ("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") | |
85 ("r" "$(C$!(B") | |
86 ("R" "$(C$"(B") | |
87 ("rt" "$(C$#(B") | |
88 ("s" "$(C$$(B") | |
89 ("sw" "$(C$%(B") | |
90 ("sg" "$(C$&(B") | |
91 ("e" "$(C$'(B") | |
92 ("E" "$(C$((B") | |
93 ("f" "$(C$)(B") | |
94 ("fr" "$(C$*(B") | |
95 ("fa" "$(C$+(B") | |
96 ("fq" "$(C$,(B") | |
97 ("ft" "$(C$-(B") | |
98 ("fx" "$(C$.(B") | |
99 ("fv" "$(C$/(B") | |
100 ("fg" "$(C$0(B") | |
101 ("a" "$(C$1(B") | |
102 ("q" "$(C$2(B") | |
103 ("Q" "$(C$3(B") | |
104 ("qt" "$(C$4(B") | |
105 ("t" "$(C$5(B") | |
106 ("T" "$(C$6(B") | |
107 ("d" "$(C$7(B") | |
108 ("w" "$(C$8(B") | |
109 ("W" "$(C$9(B") | |
110 ("c" "$(C$:(B") | |
111 ("z" "$(C$;(B") | |
112 ("x" "$(C$<(B") | |
113 ("v" "$(C$=(B") | |
114 ("g" "$(C$>(B") | |
115 ("k" "$(C$?(B") | |
116 ("o" "$(C$@(B") | |
117 ("i" "$(C$A(B") | |
22673
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
118 ("O" "$(C$B(B") |
18673 | 119 ("j" "$(C$C(B") |
120 ("p" "$(C$D(B") | |
121 ("u" "$(C$E(B") | |
122 ("P" "$(C$F(B") | |
123 ("h" "$(C$G(B") | |
124 ("hk" "$(C$H(B") | |
125 ("ho" "$(C$I(B") | |
126 ("hl" "$(C$J(B") | |
127 ("y" "$(C$K(B") | |
128 ("n" "$(C$L(B") | |
22673
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
129 ("nj" "$(C$M(B") |
18673 | 130 ("np" "$(C$N(B") |
131 ("nl" "$(C$O(B") | |
132 ("b" "$(C$P(B") | |
133 ("m" "$(C$Q(B") | |
134 ("ml" "$(C$R(B") | |
135 ("l" "$(C$S(B") | |
136 ("S" "$(C$U(B") | |
137 ("se" "$(C$V(B") | |
138 ("st" "$(C$W(B") | |
139 ("st_" "$(C$X(B") | |
140 ("frt" "$(C$Y(B") | |
141 ("fqt" "$(C$[(B") | |
142 ("fe" "$(C$Z(B") | |
143 ("ft_" "$(C$\(B") | |
22673
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
144 ("f_d" "$(C$](B") |
18673 | 145 ("aq" "$(C$^(B") |
146 ("at" "$(C$_(B") | |
147 ("at_" "$(C$`(B") | |
148 ("aD" "$(C$a(B") | |
149 ("qr" "$(C$b(B") | |
150 ("qe" "$(C$c(B") | |
151 ("qtr" "$(C$d(B") | |
152 ("qte" "$(C$e(B") | |
153 ("qw" "$(C$f(B") | |
154 ("qx" "$(C$g(B") | |
155 ("qD" "$(C$h(B") | |
156 ("QD" "$(C$i(B") | |
157 ("tr" "$(C$j(B") | |
158 ("ts" "$(C$k(B") | |
159 ("te" "$(C$l(B") | |
160 ("tq" "$(C$m(B") | |
161 ("tw" "$(C$n(B") | |
162 ("t_" "$(C$o(B") | |
163 ("DD" "$(C$p(B") | |
164 ("D" "$(C$q(B") | |
22673
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
165 ("Dt" "$(C$r(B") |
18673 | 166 ("Dt_" "$(C$s(B") |
167 ("vD" "$(C$t(B") | |
22673
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
168 ("G" "$(C$u(B") |
e61968818555
Keys for modern Korean syllables fixed.
Kenichi Handa <handa@m17n.org>
parents:
20438
diff
changeset
|
169 ("_d" "$(C$v(B") |
18673 | 170 ("yi" "$(C$w(B") |
171 ("yO" "$(C$x(B") | |
172 ("yl" "$(C$y(B") | |
173 ("bu" "$(C$z(B") | |
174 ("bP" "$(C${(B") | |
175 ("bl" "$(C$|(B") | |
176 ("uk" "$(C$}(B") | |
177 ("ukl" "$(C$~(B") | |
178 ("Rom" "$(C%0%1%2%3%4%5%6%7%8%9(B") | |
179 ("rom" "$(C%!%"%#%$%%%&%'%(%)%*(B") | |
180 ("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") | |
181 ("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") | |
182 ("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") | |
183 ("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") | |
184 ("Scan" "$(C("(#($(&((()(*(+(,(-(.(/(B") | |
185 ("ojaso" "$(C(1(2(3(4(5(6(7(8(9(:(;(<(=(>(B") | |
186 ("ogana" "$(C(?(@(A(B(C(D(E(F(G(H(I(J(K(L(B") | |
187 ("oeng" "$(C(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(B") | |
188 ("onum" "$(C(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u(B") | |
189 ("frac" "$(C(v(w(x(y(z({(|(}(~(B") | |
190 ("scan" "$(C)")#)$)%)&)')()))*)+),)-).)/)0(B") | |
191 ("pjaso" "$(C)1)2)3)4)5)6)7)8)9):);)<)=)>(B>") | |
192 ("pgana" "$(C)?)@)A)B)C)D)E)F)G)H)I)J)K)L(B") | |
193 ("peng" "$(C)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f(B") | |
194 ("pnum" "$(C)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u(B") | |
195 ("index" "$(C)v)w)x)y)z){)|)})~(B") | |
196 ("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") | |
197 ("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") | |
198 ("Russ" "$(C,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A(B") | |
199 ("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
|
200 |
52401 | 201 ;;; 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
|
202 ;;; symbol-ksc.el ends here |