comparison leim/quail/latin-post.el @ 18673:751941736224

Initial revision
author Kenichi Handa <handa@m17n.org>
date Tue, 08 Jul 1997 01:48:20 +0000
parents
children 25c391385880
comparison
equal deleted inserted replaced
18672:f689dc2d8e90 18673:751941736224
1 ;; Quail packages for inputting various European characters.
2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5
6 ;; Keywords: multilingual, input method, latin
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 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
26
27 (require 'quail)
28
29 (quail-define-package
30 "latin-1-postfix" "Latin-1" "1+" t
31 "Latin-1 characters input method with postfix modifiers
32
33 effect | postfix | examples
34 ------------+---------+----------
35 acute | ' | a' -> ,Aa(B
36 grave | ` | a` -> ,A`(B
37 circumflex | ^ | a^ -> ,Ab(B
38 diaeresis | \" | a\" -> ,Ad(B
39 tilde | ~ | a~ -> ,Ac(B
40 cedilla | , | c, -> ,Ag(B
41 nordic | / | d/ -> ,Ap(B t/ -> ,A~(B a/ -> ,Ae(B e/ -> ,Af(B o/ -> ,Ax(B
42 special | /<> | s/ -> ,A_(B ?/ -> ,A?(B !/ -> ,A!(B << -> ,A+(B >> -> ,A;(B
43 " nil t)
44
45 (quail-define-rules
46 ("A`" ?,A@(B)
47 ("A'" ?,AA(B)
48 ("A^" ?,AB(B)
49 ("A~" ?,AC(B)
50 ("A\"" ?,AD(B)
51 ("A/" ?,AE(B)
52 ("a`" ?,A`(B)
53 ("a'" ?,Aa(B)
54 ("a^" ?,Ab(B)
55 ("a~" ?,Ac(B)
56 ("a\"" ?,Ad(B)
57 ("a/" ?,Ae(B)
58
59 ("E`" ?,AH(B)
60 ("E'" ?,AI(B)
61 ("E^" ?,AJ(B)
62 ("E\"" ?,AK(B)
63 ("E/" ?,AF(B)
64 ("e`" ?,Ah(B)
65 ("e'" ?,Ai(B)
66 ("e^" ?,Aj(B)
67 ("e\"" ?,Ak(B)
68 ("e/" ?,Af(B)
69
70 ("I`" ?,AL(B)
71 ("I'" ?,AM(B)
72 ("I^" ?,AN(B)
73 ("I\"" ?,AO(B)
74 ("i`" ?,Al(B)
75 ("i'" ?,Am(B)
76 ("i^" ?,An(B)
77 ("i\"" ?,Ao(B)
78
79 ("O`" ?,AR(B)
80 ("O'" ?,AS(B)
81 ("O^" ?,AT(B)
82 ("O~" ?,AU(B)
83 ("O\"" ?,AV(B)
84 ("O/" ?,AX(B)
85 ("o`" ?,Ar(B)
86 ("o'" ?,As(B)
87 ("o^" ?,At(B)
88 ("o~" ?,Au(B)
89 ("o\"" ?,Av(B)
90 ("o/" ?,Ax(B)
91
92 ("U`" ?,AY(B)
93 ("U'" ?,AZ(B)
94 ("U^" ?,A[(B)
95 ("U\"" ?,A\(B)
96 ("u`" ?,Ay(B)
97 ("u'" ?,Az(B)
98 ("u^" ?,A{(B)
99 ("u\"" ?,A|(B)
100
101 ("Y'" ?,A](B)
102 ("y'" ?,A}(B)
103
104 ("D/" ?,AP(B)
105 ("d/" ?,Ap(B)
106
107 ("T/" ?,A^(B)
108 ("t/" ?,A~(B)
109
110 ("s/" ?,A_(B)
111
112 ("C," ?,AG(B)
113 ("c," ?,Ag(B)
114
115 ("N~" ?,AQ(B)
116 ("n~" ?,Aq(B)
117
118 ("?/" ?,A?(B)
119 ("!/" ?,A!(B)
120 ("<<" ?,A+(B)
121 (">>" ?,A;(B))
122
123 (quail-define-package
124 "latin-2-postfix" "Latin-2" "2+" t
125 "Latin-2 characters input method with postfix modifiers
126
127 effect | postfix | examples
128 ------------+---------+----------
129 acute | ' | a' -> ,Ba(B
130 ogonek | , | a, -> ,B1(B
131 diaeresis | \" | a\" -> ,Bd(B
132 circumflex | ^ | a^ -> ,Bb(B
133 breve | ~ | a~ -> ,Bc(B
134 cedilla | , | c, -> ,Bg(B
135 caron | ~ | c~ -> ,Bh(B
136 dbl. acute | '' | o'' -> ,Bu(B
137 ring | . | u. -> ,By(B
138 dot | . | z. -> ,B?(B
139 stroke | / | d/ -> ,Bp(B
140 special | / | s/ -> ,B_(B
141 " nil t)
142
143 (quail-define-rules
144 ("A'" ?,BA(B)
145 ("A," ?,B!(B)
146 ("A\"" ?,BD(B)
147 ("A^" ?,BB(B)
148 ("A~" ?,BC(B)
149 ("C'" ?,BF(B)
150 ("C," ?,BG(B)
151 ("C~" ?,BH(B)
152 ("D/" ?,BP(B)
153 ("D~" ?,BO(B)
154 ("E'" ?,BI(B)
155 ("E," ?,BJ(B)
156 ("E\"" ?,BK(B)
157 ("E~" ?,BL(B)
158 ("I'" ?,BM(B)
159 ("I^" ?,BN(B)
160 ("L'" ?,BE(B)
161 ("L/" ?,B#(B)
162 ("L~" ?,B%(B)
163 ("N'" ?,BQ(B)
164 ("N~" ?,BR(B)
165 ("O'" ?,BS(B)
166 ("O''" [",BU(B" ",BS(B'"])
167 ("O\"" ?,BV(B)
168 ("O^" ?,BT(B)
169 ("R'" ?,B@(B)
170 ("R~" ?,BX(B)
171 ("S'" ?,B&(B)
172 ("S," ?,B*(B)
173 ("S~" ?,B)(B)
174 ("T," ?,B^(B)
175 ("T~" ?,B+(B)
176 ("U'" ?,BZ(B)
177 ("U''" [",B[(B" ",BZ(B'"])
178 ("U\"" ?,B\(B)
179 ("U." ?,BY(B)
180 ("Y'" ?,B](B)
181 ("Z'" ?,B,(B)
182 ("Z." ?,B/(B)
183 ("Z~" ?,B.(B)
184 ("a'" ?,Ba(B)
185 ("a," ?,B1(B)
186 ("a\"" ?,Bd(B)
187 ("a^" ?,Bb(B)
188 ("a~" ?,Bc(B)
189 ("c'" ?,Bf(B)
190 ("c," ?,Bg(B)
191 ("c~" ?,Bh(B)
192 ("d/" ?,Bp(B)
193 ("d~" ?,Bo(B)
194 ("e'" ?,Bi(B)
195 ("e," ?,Bj(B)
196 ("e\"" ?,Bk(B)
197 ("e~" ?,Bl(B)
198 ("i'" ?,Bm(B)
199 ("i^" ?,Bn(B)
200 ("l'" ?,Be(B)
201 ("l/" ?,B3(B)
202 ("l~" ?,B5(B)
203 ("n'" ?,Bq(B)
204 ("n~" ?,Br(B)
205 ("o'" ?,Bs(B)
206 ("o''" [",Bu(B" ",Bs(B'"])
207 ("o\"" ?,Bv(B)
208 ("o^" ?,Bt(B)
209 ("r'" ?,B`(B)
210 ("r~" ?,Bx(B)
211 ("s'" ?,B6(B)
212 ("s," ?,B:(B)
213 ("s/" ?,B_(B)
214 ("s~" ?,B9(B)
215 ("t," ?,B~(B)
216 ("t~" ?,B;(B)
217 ("u'" ?,Bz(B)
218 ("u''" [",B{(B" ",Bz(B'"])
219 ("u\"" ?,B|(B)
220 ("u." ?,By(B)
221 ("y'" ?,B}(B)
222 ("z'" ?,B<(B)
223 ("z." ?,B?(B)
224 ("z~" ?,B>(B)
225 )
226
227 (quail-define-package
228 "latin-3-postfix" "Latin-3" "3+" t
229 "Latin-3 characters input method with postfix modifiers
230
231 effect | postfix | examples
232 ------------+---------+----------
233 acute | ' | a' -> ,Ca(B
234 grave | ` | a` -> ,C`(B
235 circumflex | ^ | a^ -> ,Cb(B
236 diaeresis | \" | a\" -> ,Cd(B
237 dot | . | c. -> ,Ce(B i. -> ,C9(B I. -> ,C)(B
238 cedilla | , | c, -> ,Cg(B
239 breve | ~ | g~ -> ,C;(B
240 tilde | ~ | n~ -> ,Cq(B
241 stroke | / | h/ -> ,C1(B
242 special | / | s/ -> ,C_(B
243 " nil t)
244
245 (quail-define-rules
246 ("A`" ?,C@(B)
247 ("A'" ?,CA(B)
248 ("A^" ?,CB(B)
249 ("A\"" ?,CD(B)
250 ("C." ?,CE(B)
251 ("C^" ?,CF(B)
252 ("C," ?,CG(B)
253 ("E`" ?,CH(B)
254 ("E'" ?,CI(B)
255 ("E^" ?,CJ(B)
256 ("E\"" ?,CK(B)
257 ("G~" ?,C+(B)
258 ("G." ?,CU(B)
259 ("G^" ?,CX(B)
260 ("H/" ?,C!(B)
261 ("H^" ?,C&(B)
262 ("I." ?,C)(B)
263 ("I`" ?,CL(B)
264 ("I'" ?,CM(B)
265 ("I^" ?,CN(B)
266 ("I\"" ?,CO(B)
267 ("J^" ?,C,(B)
268 ("N~" ?,CQ(B)
269 ("O`" ?,CR(B)
270 ("O'" ?,CS(B)
271 ("O^" ?,CT(B)
272 ("O\"" ?,CV(B)
273 ("S," ?,C*(B)
274 ("S^" ?,C^(B)
275 ("U`" ?,CY(B)
276 ("U'" ?,CZ(B)
277 ("U^" ?,C[(B)
278 ("U\"" ?,C\(B)
279 ("U~" ?,C](B)
280 ("Z." ?,C/(B)
281 ("a`" ?,C`(B)
282 ("a'" ?,Ca(B)
283 ("a^" ?,Cb(B)
284 ("a\"" ?,Cd(B)
285 ("c." ?,Ce(B)
286 ("c^" ?,Cf(B)
287 ("c," ?,Cg(B)
288 ("e`" ?,Ch(B)
289 ("e'" ?,Ci(B)
290 ("e^" ?,Cj(B)
291 ("e\"" ?,Ck(B)
292 ("g~" ?,C;(B)
293 ("g." ?,Cu(B)
294 ("g^" ?,Cx(B)
295 ("h/" ?,C1(B)
296 ("h^" ?,C6(B)
297 ("i." ?,C9(B)
298 ("i`" ?,Cl(B)
299 ("i'" ?,Cm(B)
300 ("i^" ?,Cn(B)
301 ("i\"" ?,Co(B)
302 ("j^" ?,C<(B)
303 ("n~" ?,Cq(B)
304 ("o`" ?,Cr(B)
305 ("o'" ?,Cs(B)
306 ("o^" ?,Ct(B)
307 ("o\"" ?,Cv(B)
308 ("s," ?,C:(B)
309 ("s/" ?,C_(B)
310 ("s^" ?,C~(B)
311 ("u`" ?,Cy(B)
312 ("u'" ?,Cz(B)
313 ("u^" ?,C{(B)
314 ("u\"" ?,C|(B)
315 ("u~" ?,C}(B)
316 ("z." ?,C?(B)
317 )
318
319 (quail-define-package
320 "latin-4-postfix" "Latin-4" "4+" t
321 "Latin-4 characters input method with postfix modifiers
322
323 effect | postfix | examples
324 ------------+---------+----------
325 acute | ' | a' -> ,Da(B
326 circumflex | ^ | a^ -> ,Db(B
327 diaeresis | \" | a\" -> ,Dd(B
328 ogonek | , | a, -> ,D1(B
329 macron | - | a- -> ,D`(B
330 tilde | ~ | a~ -> ,Dc(B
331 caron | ~ | c~ -> ,Dh(B
332 dot | . | e. -> ,Dl(B
333 cedilla | , | k, -> ,Ds(B g, -> ,D;(B
334 stroke | / | d/ -> ,Dp(B
335 nordic | / | a/ -> ,De(B e/ -> ,Df(B o/ -> ,Dx(B
336 special | / | s/ -> ,D_(B n/ -> ,D?(B k/ -> ,D"(B
337 " nil t)
338
339 (quail-define-rules
340 ("A," ?,D!(B)
341 ("A-" ?,D@(B)
342 ("A'" ?,DA(B)
343 ("A^" ?,DB(B)
344 ("A~" ?,DC(B)
345 ("A\"" ?,DD(B)
346 ("A/" ?,DE(B)
347 ("C~" ?,DH(B)
348 ("D/" ?,DP(B)
349 ("E/" ?,DF(B)
350 ("E-" ?,D*(B)
351 ("E'" ?,DI(B)
352 ("E," ?,DJ(B)
353 ("E\"" ?,DK(B)
354 ("E." ?,DL(B)
355 ("G," ?,D+(B)
356 ("I~" ?,D%(B)
357 ("I," ?,DG(B)
358 ("I'" ?,DM(B)
359 ("I^" ?,DN(B)
360 ("I-" ?,DO(B)
361 ("K," ?,DS(B)
362 ("L," ?,D&(B)
363 ("N/" ?,D=(B)
364 ("N," ?,DQ(B)
365 ("O-" ?,DR(B)
366 ("O^" ?,DT(B)
367 ("O~" ?,DU(B)
368 ("O\"" ?,DV(B)
369 ("O/" ?,DX(B)
370 ("R," ?,D#(B)
371 ("S~" ?,D)(B)
372 ("T/" ?,D,(B)
373 ("U," ?,DY(B)
374 ("U'" ?,DZ(B)
375 ("U^" ?,D[(B)
376 ("U\"" ?,D\(B)
377 ("U~" ?,D](B)
378 ("U-" ?,D^(B)
379 ("Z~" ?,D.(B)
380 ("a," ?,D1(B)
381 ("a-" ?,D`(B)
382 ("a'" ?,Da(B)
383 ("a^" ?,Db(B)
384 ("a~" ?,Dc(B)
385 ("a\"" ?,Dd(B)
386 ("a/" ?,De(B)
387 ("c~" ?,Dh(B)
388 ("d/" ?,Dp(B)
389 ("e/" ?,Df(B)
390 ("e-" ?,D:(B)
391 ("e'" ?,Di(B)
392 ("e," ?,Dj(B)
393 ("e\"" ?,Dk(B)
394 ("e." ?,Dl(B)
395 ("g," ?,D;(B)
396 ("i~" ?,D5(B)
397 ("i," ?,Dg(B)
398 ("i'" ?,Dm(B)
399 ("i^" ?,Dn(B)
400 ("i-" ?,Do(B)
401 ("k/" ?,D"(B)
402 ("k," ?,Ds(B)
403 ("l," ?,D6(B)
404 ("n/" ?,D?(B)
405 ("n," ?,Dq(B)
406 ("o-" ?,Dr(B)
407 ("o^" ?,Dt(B)
408 ("o~" ?,Du(B)
409 ("o\"" ?,Dv(B)
410 ("o/" ?,Dx(B)
411 ("r," ?,D3(B)
412 ("s/" ?,D_(B)
413 ("s~" ?,D9(B)
414 ("t/" ?,D<(B)
415 ("u," ?,Dy(B)
416 ("u'" ?,Dz(B)
417 ("u^" ?,D{(B)
418 ("u\"" ?,D|(B)
419 ("u~" ?,D}(B)
420 ("u-" ?,D~(B)
421 ("z~" ?,D>(B)
422 )
423
424 (quail-define-package
425 "latin-5-postfix" "Latin-5" "5+" t
426 "Latin-5 characters input method with postfix modifiers
427
428 effect | postfix | examples
429 ------------+---------+----------
430 acute | ' | a' -> ,Ma(B
431 grave | ` | a` -> ,M`(B
432 circumflex | ^ | a^ -> ,Mb(B
433 diaeresis | \" | a\" -> ,Md(B
434 tilde | ~ | a~ -> ,Mc(B
435 breve | ~ | g~ -> ,Mp(B
436 cedilla | , | c, -> ,Mg(B
437 dot | . | i. -> ,M}(B I. -> ,M](B
438 nordic | / | a/ -> ,Me(B e/ -> ,Mf(B o/ -> ,Mx(B
439 special | / | s/ -> ,M_(B
440 " nil t)
441
442 (quail-define-rules
443 ("A'" ?,MA(B)
444 ("A/" ?,ME(B)
445 ("A\"" ?,MD(B)
446 ("A^" ?,MB(B)
447 ("A`" ?,M@(B)
448 ("A~" ?,MC(B)
449 ("C," ?,MG(B)
450 ("E'" ?,MI(B)
451 ("E/" ?,MF(B)
452 ("E\"" ?,MK(B)
453 ("E^" ?,MJ(B)
454 ("E`" ?,MH(B)
455 ("G~" ?,MP(B)
456 ("I'" ?,MM(B)
457 ("I." ?,M](B)
458 ("I\"" ?,MO(B)
459 ("I^" ?,MN(B)
460 ("I`" ?,ML(B)
461 ("N~" ?,MQ(B)
462 ("O'" ?,MS(B)
463 ("O/" ?,MX(B)
464 ("O\"" ?,MV(B)
465 ("O^" ?,MT(B)
466 ("O`" ?,MR(B)
467 ("O~" ?,MU(B)
468 ("S," ?,M^(B)
469 ("U'" ?,MZ(B)
470 ("U\"" ?,M\(B)
471 ("U^" ?,M[(B)
472 ("U`" ?,MY(B)
473 ("a'" ?,Ma(B)
474 ("a/" ?,Me(B)
475 ("a\"" ?,Md(B)
476 ("a^" ?,Mb(B)
477 ("a`" ?,M`(B)
478 ("a~" ?,Mc(B)
479 ("c," ?,Mg(B)
480 ("e'" ?,Mi(B)
481 ("e/" ?,Mf(B)
482 ("e\"" ?,Mk(B)
483 ("e^" ?,Mj(B)
484 ("e`" ?,Mh(B)
485 ("g~" ?,Mp(B)
486 ("i'" ?,Mm(B)
487 ("i." ?,M}(B)
488 ("i\"" ?,Mo(B)
489 ("i^" ?,Mn(B)
490 ("i`" ?,Ml(B)
491 ("n~" ?,Mq(B)
492 ("o'" ?,Ms(B)
493 ("o/" ?,Mx(B)
494 ("o\"" ?,Mv(B)
495 ("o^" ?,Mt(B)
496 ("o`" ?,Mr(B)
497 ("o~" ?,Mu(B)
498 ("s," ?,M~(B)
499 ("s/" ?,M_(B)
500 ("u'" ?,Mz(B)
501 ("u\"" ?,M|(B)
502 ("u^" ?,M{(B)
503 ("u`" ?,My(B)
504 ("y\"" ?,M(B)
505 )
506
507 (quail-define-package
508 "danish-postfix" "Latin-1" "DA+" t
509 "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B)"
510 nil t)
511
512 (quail-define-rules
513 ("AE" ?,AF(B)
514 ("ae" ?,Af(B)
515
516 ("OE" ?,AX(B)
517 ("oe" ?,Ax(B)
518
519 ("AA" ?,AE(B)
520 ("aa" ?,Ae(B)
521
522 ("E'" ?,AI(B)
523 ("e'" ?,Ai(B)
524 )
525
526 (quail-define-package
527 "esperanto-postfix" "Latin-3" "EO+" t
528 "Esperanto input method with postfix modifiers
529
530 Preceding ^ or following x will produce accented characters,
531 e.g. ^C -> ,CF(B, Gx -> ,CX(B.
532 " nil t)
533
534 (quail-define-rules
535 ("Cx" ?,CF(B)
536 ("^C" ?,CF(B)
537 ("cx" ?,Cf(B)
538 ("^c" ?,Cf(B)
539
540 ("Gx" ?,CX(B)
541 ("^G" ?,CX(B)
542 ("gx" ?,Cx(B)
543 ("^g" ?,Cx(B)
544
545 ("Hx" ?,C&(B)
546 ("^H" ?,C&(B)
547 ("hx" ?,C6(B)
548 ("^h" ?,C6(B)
549
550 ("Jx" ?,C,(B)
551 ("^J" ?,C,(B)
552 ("jx" ?,C<(B)
553 ("^j" ?,C<(B)
554
555 ("Sx" ?,C^(B)
556 ("^S" ?,C^(B)
557 ("sx" ?,C~(B)
558 ("^s" ?,C~(B)
559
560 ("Ux" ?,C](B)
561 ("^U" ?,C](B)
562 ("~U" ?,C](B)
563 ("ux" ?,C}(B)
564 ("^u" ?,C}(B)
565 ("~u" ?,C}(B)
566 )
567
568 (quail-define-package
569 "finnish-postfix" "Latin-1" "FI+" t
570 "Finnish (Suomi) input method (rule: AE -> ,AD(B, OE -> ,AV(B)"
571 nil t)
572
573 (quail-define-rules
574 ("AE" ?,AD(B)
575 ("ae" ?,Ad(B)
576
577 ("OE" ?,AV(B)
578 ("oe" ?,Av(B)
579 )
580
581 (quail-define-package
582 "french-postfix" "Latin-1" "FR+" t
583 "French (Fran,Ag(Bais) input method with postfix modifiers
584
585 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma.
586 Par exemple A` -> ,A@(B, E' -> ,AI(B.
587
588 ,AG(B, ,A+(B, et ,A;(B sont produits par C/, <<, et >>.
589
590 <e dans l'o> n'est pas disponible."
591 nil t)
592
593 (quail-define-rules
594 ("A`" ?,A@(B)
595 ("A^" ?,AB(B)
596 ("a`" ?,A`(B)
597 ("a^" ?,Ab(B)
598
599 ("E`" ?,AH(B)
600 ("E'" ?,AI(B)
601 ("E^" ?,AJ(B)
602 ("E\"" ?,AK(B)
603 ("e`" ?,Ah(B)
604 ("e'" ?,Ai(B)
605 ("e^" ?,Aj(B)
606 ("e\"" ?,Ak(B)
607
608 ("I^" ?,AN(B)
609 ("I\"" ?,AO(B)
610 ("i^" ?,An(B)
611 ("i\"" ?,Ao(B)
612
613 ("O^" ?,AT(B)
614 ("o^" ?,At(B)
615
616 ("U`" ?,AY(B)
617 ("U^" ?,A[(B)
618 ("U\"" ?,A\(B)
619 ("u`" ?,Ay(B)
620 ("u^" ?,A{(B)
621 ("u\"" ?,A|(B)
622
623 ("C/" ?,AG(B)
624 ("c/" ?,Ag(B)
625
626 ("<<" ?,A+(B)
627 (">>" ?,A;(B)
628 )
629
630 (quail-define-package
631 "german-postfix" "Latin-1" "DE+" t
632 "German (Deutsch) input method (rule: AE -> ,AD(B, OE -> ,AV(B, UE -> ,A\(B, sz -> ,A_(B)
633
634 ,A_(B can also be input by 'ss' followed by M-n."
635 nil t)
636
637 (quail-define-rules
638 ("AE" ?,AD(B)
639 ("ae" ?,Ad(B)
640
641 ("OE" ?,AV(B)
642 ("oe" ?,Av(B)
643
644 ("UE" ?,A\(B)
645 ("ue" ?,A|(B)
646
647 ("sz" ?,A_(B)
648 ("ss" ["ss" ?,A_(B])
649 )
650
651 (quail-define-package
652 "icelandic-postfix" "Latin-1" "IS+" t
653 "Icelandic (,AM(Bslenska) input method with postfix modifiers
654
655 A' -> ,AA(B
656 E' -> ,AI(B
657 I' -> ,AM(B
658 O' -> ,AS(B
659 U' -> ,AZ(B
660 Y' -> ,A](B
661 AE -> ,AF(B
662 OE -> ,AV(B
663 D/ -> ,AP(B (eth)
664 T/ -> ,A^(B (thorn)"
665 nil t)
666
667 (quail-define-rules
668 ("A'" ?,AA(B)
669 ("a'" ?,Aa(B)
670
671 ("E'" ?,AI(B)
672 ("e'" ?,Ai(B)
673
674 ("I'" ?,AM(B)
675 ("i'" ?,Am(B)
676
677 ("O'" ?,AS(B)
678 ("o'" ?,As(B)
679
680 ("U'" ?,AZ(B)
681 ("u'" ?,Az(B)
682
683 ("Y'" ?,A](B)
684 ("y'" ?,A}(B)
685
686 ("AE" ?,AF(B)
687 ("ae" ?,Af(B)
688
689 ("OE" ?,AV(B)
690 ("oe" ?,Av(B)
691
692 ("D/" ?,AP(B)
693 ("d/" ?,Ap(B)
694
695 ("T/" ?,A^(B)
696 ("t/" ?,A~(B)
697 )
698
699 (quail-define-package
700 "italian-postfix" "Latin-1" "IT+" t
701 "Italian (Italiano) input method with postfix modifiers
702
703 A` -> ,A@(B
704 E` -> ,AH(B
705 I` -> ,AL(B
706 O` -> ,AR(B
707 U` -> ,AY(B
708 " nil t)
709
710 (quail-define-rules
711 ("A`" ?,A@(B)
712 ("a`" ?,A`(B)
713
714 ("E`" ?,AH(B)
715 ("e`" ?,Ah(B)
716
717 ("I`" ?,AL(B)
718 ("i`" ?,Al(B)
719
720 ("O`" ?,AR(B)
721 ("o`" ?,Ar(B)
722
723 ("U`" ?,AY(B)
724 ("u`" ?,Ay(B)
725 )
726
727 (quail-define-package
728 "norwegian-postfix" "Latin-1" "NO+" t
729 "Norwegian (Norsk) input method (rule: AE->,AF(B, OE->,AX(B, AA->,AE(B, E'->,AI(B)"
730 nil t)
731
732 (quail-define-rules
733 ("AE" ?,AF(B)
734 ("ae" ?,Af(B)
735
736 ("OE" ?,AX(B)
737 ("oe" ?,Ax(B)
738
739 ("AA" ?,AE(B)
740 ("aa" ?,Ae(B)
741
742 ("E'" ?,AI(B)
743 ("e'" ?,Ai(B)
744 )
745
746 (quail-define-package
747 "scandinavian-postfix" "Latin-1" "SC+" t
748 "Scandinavian input method (rule: AE->,AD(B/,AF(B, OE->,AV(B/,AX(B, AA->,AE(B, E'->,AI(B)
749
750 Supported languages are Swidish, Norwegian, Danish, and Finnish.
751
752 You can toggle between ,AD(B and ,AF(B, or between OE and ,AV(B, by typing M-n
753 when the character is underlined.
754 " nil)
755
756 (quail-define-rules
757 ("AE" [?,AD(B ?,AF(B])
758 ("ae" [?,Ad(B ?,Af(B])
759
760 ("AA" ?,AE(B)
761 ("aa" ?,Ae(B)
762
763 ("OE" [?,AV(B ?,AX(B])
764 ("oe" [?,Av(B ?,Ax(B])
765
766 ("E'" ?,AI(B)
767 ("e'" ?,Ai(B)
768 )
769
770 (quail-define-package
771 "spanish-postfix" "Latin-1" "ES+" t
772 "Spanish (Espa,Aq(Bol) input method with postfix modifiers
773
774 A' -> ,AA(B
775 E' -> ,AI(B
776 I' -> ,AM(B
777 O' -> ,AS(B
778 U' -> ,AZ(B
779 N~ -> ,AQ(B
780 !/ -> ,A!(B
781 ?/ -> ,A?(B
782 " nil t)
783
784 (quail-define-rules
785 ("A'" ?,AA(B)
786 ("a'" ?,Aa(B)
787
788 ("E'" ?,AI(B)
789 ("e'" ?,Ai(B)
790
791 ("I'" ?,AM(B)
792 ("i'" ?,Am(B)
793
794 ("O'" ?,AS(B)
795 ("o'" ?,As(B)
796
797 ("U'" ?,AZ(B)
798 ("u'" ?,Az(B)
799
800 ("N~" ?,AQ(B)
801 ("n~" ?,Aq(B)
802
803 ("?/" ?,A?(B)
804 ("!/" ?,A!(B)
805 )
806
807 (quail-define-package
808 "swedish-postfix" "Latin-1" "SV" t
809 "Swedish (Svenska) input method (rule: AA -> ,AE(B, AE -> ,AD(B, OE -> ,AV(B, E' -> ,AI(B)"
810 nil t)
811
812 (quail-define-rules
813 ("AA" ?,AE(B)
814 ("aa" ?,Ae(B)
815
816 ("AE" ?,AD(B)
817 ("ae" ?,Ad(B)
818
819 ("OE" ?,AV(B)
820 ("oe" ?,Av(B)
821
822 ("E'" ?,AI(B)
823 ("e'" ?,Ai(B)
824 )
825
826 (quail-define-package
827 "turkish-postfix" "Latin-3" "TR" t
828 "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers
829
830 Note for I, ,C9(B, ,C)(B, i.
831
832 A^ -> ,CB(B
833 C/ -> ,CG(B
834 G^ -> ,C+(B
835 I -> I
836 i -> ,C9(B
837 I' -> ,C)(B
838 i' -> i
839 O\" -> ,CV(B
840 S/ -> ,C*(B
841 U\" -> ,C\(B
842 U^ -> ,C[(B
843 " nil t)
844
845 (quail-define-rules
846 ("A^" ?,CB(B)
847 ("a^" ?,Cb(B)
848
849 ("C/" ?,CG(B)
850 ("c/" ?,Cg(B)
851
852 ("G^" ?,C+(B)
853 ("g^" ?,C;(B)
854
855 ("I'" ?,C)(B)
856 ("i" ?,C9(B)
857 ("i'" ?i)
858
859 ("O\"" ?,CV(B)
860 ("o\"" ?,Cv(B)
861
862 ("S/" ?,C*(B)
863 ("s/" ?,C:(B)
864
865 ("U\"" ?,C\(B)
866 ("u\"" ?,C|(B)
867 ("U^" ?,C[(B)
868 ("u^" ?,C{(B)
869 )
870
871 (quail-define-package
872 "british" "Latin-1" ",A#(B" t
873 "British English input method with Latin-1 character ,A#(B (# -> ,A#(B)"
874 nil t)
875
876 (quail-define-rules
877 ("#" [?,A#(B ?#])
878 )
879
880 ;; The following are various quail packages for those who think
881 ;; the aboves are too awkward. Supported languages and their
882 ;; package name are:
883 ;;
884 ;; French (frnch, azerty)
885 ;; Icelandic (iclndc)
886 ;; Denish (dnsh)
887 ;; Norwegian (nrwgn)
888 ;; Swedish (swdsh)
889 ;; Finnish (fnnsh)
890 ;; German (grmn)
891 ;; Italian (itln)
892 ;; Spanish (spnsh)
893 ;; Dvorak (dvorak)
894 ;;
895 ;;; 92.12.15 created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
896 ;;; 92.12.29 modified by Takahashi N. <ntakahas@etl.go.jp>
897
898 ;;
899 (quail-define-package
900 "french-keyboard" "Latin-1" "Fr" t
901 "French (Fran,Ag(Bais) input method simulating some French keyboard
902 <e dans l'o> n'est pas disponible." nil t t t t)
903
904 ;; ,Aj(B1 ,Ai(B2 ,Ah(B3 ,At(B4 ,An(B5 ,Ao(B6 ,Ab(B7 ,A{(B8 ,Ay(B9 ,A`(B0 -_ ,Ak(B+ `~
905 ;; qQ wW eE rR tT yY uU iI oO pP ,AgG(B ,A|(B&
906 ;; aA sS dD fF gG hH jJ kK lL ;: '" \|
907 ;; zZ xX cC vV bB nN mM ,( .) !?
908
909 (quail-define-rules
910 ("1" ?,Aj(B)
911 ("2" ?,Ai(B)
912 ("3" ?,Ah(B)
913 ("4" ?,At(B)
914 ("5" ?,An(B)
915 ("6" ?,Ao(B)
916 ("7" ?,Ab(B)
917 ("8" ?,A{(B)
918 ("9" ?,Ay(B)
919 ("0" ?,A`(B)
920 ("=" ?,Ak(B)
921 ("[" ?,Ag(B)
922 ("]" ?,A|(B)
923
924 ("!" ?1)
925 ("@" ?2)
926 ("#" ?3)
927 ("$" ?4)
928 ("%" ?5)
929 ("^" ?6)
930 ("&" ?7)
931 ("*" ?8)
932 ("(" ?9)
933 (")" ?0)
934 ("{" ?,AG(B)
935 ("}" ?&)
936 ("<" ?\()
937 (">" ?\))
938 )
939
940 ;;
941 (quail-define-package
942 "french-azerty" "Latin-1" "AZERTY" t
943 "French (Fran,Ag(Bais) input method simulating Azerty keyboard
944
945 Similaire au clavier fran,Ag(Bais de SUN.
946 pr,Ai(Bfixes: ^ pour circonflexe, ,A((B pour tr,Ai(Bma.
947 <e dans l'o> n'est pas disponible." nil t t t t)
948
949 ;; &1 ,Ai(B2 "3 '4 (5 ,A'(B6 ,Ah(B7 !8 ,Ag(B9 ,A`(B0 ),A0(B -_ @~
950 ;; aA zZ eE rR tT yY uU iI oO pP ^,A((B `$
951 ;; qQ sS dD fF gG hH jJ kK lL mM ,Ay(B% *|
952 ;; wW xX cC vV bB nN ,? ;. :/ =+
953
954 (quail-define-rules
955 ("1" ?&)
956 ("2" ?,Ai(B)
957 ("3" ?\")
958 ("4" ?')
959 ("5" ?\()
960 ("6" ?,A'(B)
961 ("7" ?,Ah(B)
962 ("8" ?!)
963 ("9" ?,Ag(B)
964 ("0" ?,A`(B)
965 ("-" ?\))
966 ("=" ?-)
967 ("`" ?@)
968 ("q" ?a)
969 ("w" ?z)
970 ("e" ?e)
971 ("r" ?r)
972 ("t" ?t)
973 ("y" ?y)
974 ("u" ?u)
975 ("i" ?i)
976 ("o" ?o)
977 ("p" ?p)
978 ("[" ?^)
979 ("]" ?`)
980 ("a" ?q)
981 ("s" ?s)
982 ("d" ?d)
983 ("f" ?f)
984 ("g" ?g)
985 ("h" ?h)
986 ("j" ?j)
987 ("k" ?k)
988 ("l" ?l)
989 (";" ?m)
990 ("'" ?,Ay(B)
991 ("\\" ?*)
992 ("z" ?w)
993 ("x" ?x)
994 ("c" ?c)
995 ("v" ?v)
996 ("b" ?b)
997 ("n" ?n)
998 ("m" ?,)
999 ("," ?\;)
1000 ("." ?:)
1001 ("/" ?=)
1002
1003 ("!" ?1)
1004 ("@" ?2)
1005 ("#" ?3)
1006 ("$" ?4)
1007 ("%" ?5)
1008 ("^" ?6)
1009 ("&" ?7)
1010 ("*" ?8)
1011 ("(" ?9)
1012 (")" ?0)
1013 ("_" ?,A0(B)
1014 ("+" ?_)
1015 ("~" ?~)
1016 ("Q" ?A)
1017 ("W" ?Z)
1018 ("E" ?E)
1019 ("R" ?R)
1020 ("T" ?T)
1021 ("Y" ?Y)
1022 ("U" ?U)
1023 ("I" ?I)
1024 ("O" ?O)
1025 ("P" ?P)
1026 ("{" ?,A((B)
1027 ("}" ?$)
1028 ("A" ?Q)
1029 ("S" ?S)
1030 ("D" ?D)
1031 ("F" ?F)
1032 ("G" ?G)
1033 ("H" ?H)
1034 ("J" ?J)
1035 ("K" ?K)
1036 ("L" ?L)
1037 (":" ?M)
1038 ("\"" ?%)
1039 ("|" ?|)
1040 ("Z" ?W)
1041 ("X" ?X)
1042 ("C" ?C)
1043 ("V" ?V)
1044 ("B" ?B)
1045 ("N" ?N)
1046 ("M" ??)
1047 ("<" ?.)
1048 (">" ?/)
1049 ("?" ?+)
1050
1051 ("[q" ?,Ab(B)
1052 ("[e" ?,Aj(B)
1053 ("[i" ?,An(B)
1054 ("[o" ?,At(B)
1055 ("[u" ?,A{(B)
1056
1057 ("{e" ?,Ak(B)
1058 ("{i" ?,Ao(B)
1059 ("{u" ?,A|(B)
1060 )
1061
1062 ;;
1063 (quail-define-package
1064 "icelandic-keyboard" "Latin-1" "Is" t
1065 "Icelandic (,AM(Bslenska) input method simulating some Icelandic keyboard
1066
1067 Dead accent is right to ,Af(B." nil t t t t)
1068
1069 ;; 1! 2" 3# 4$ 5% 6^ 7& 8* 9( 0) ,AvV(B -_ `~
1070 ;; qQ wW eE rR tT yY uU iI oO pP ,ApP(B '?
1071 ;; aA sS dD fF gG hH jJ kK lL ,AfF(B ,A44(B +*
1072 ;; zZ xX cC vV bB nN mM ,; .: ,A~^(B
1073
1074 (quail-define-rules
1075 ("-" ?,Av(B)
1076 ("=" ?-)
1077 ("[" ?,Ap(B)
1078 ("]" ?')
1079 (";" ?,Af(B)
1080 ("'" ?,A4(B)
1081 ("\\" ?+)
1082 ("/" ?,A~(B)
1083
1084 ("@" ?\")
1085 ("_" ?,AV(B)
1086 ("+" ?_)
1087 ("{" ?,AP(B)
1088 ("}" ??)
1089 (":" ?,AF(B)
1090 ("\"" ?,A4(B)
1091 ("|" ?*)
1092 ("<" ?\;)
1093 (">" ?:)
1094 ("?" ?,A^(B)
1095
1096 ("'a" ?,Aa(B)
1097 ("'e" ?,Ai(B)
1098 ("'i" ?,Am(B)
1099 ("'o" ?,As(B)
1100 ("'u" ?,Az(B)
1101 ("'y" ?,A}(B)
1102 ("'A" ?,AA(B)
1103 ("'E" ?,AI(B)
1104 ("'I" ?,AM(B)
1105 ("'O" ?,AS(B)
1106 ("'U" ?,AZ(B)
1107 ("'Y" ?,A](B)
1108 )
1109
1110 ;;
1111 (quail-define-package
1112 "danish-keyboard" "Latin-1" "Da" t
1113 "Danish input method simulating SUN Danish keyboard"
1114 nil t t t t)
1115
1116 ;; 1! 2" 3# 4,A$(B 5% 6& 7/ 8( 9) 0= +? ,A='(B ~^
1117 ;; qQ wW eE rR tT yY uU iI oO pP ,AeE(B ,AiI(B
1118 ;; aA sS dD fF gG hH jJ kK lL ,AfF(B ,AxX(B '*
1119 ;; zZ xX cC vV bB nN mM ,; .: -_
1120
1121 (quail-define-rules
1122 ("-" ?+)
1123 ("=" ?,A=(B)
1124 ("`" ?~)
1125 ("[" ?,Ae(B)
1126 ("]" ?,Ai(B)
1127 (";" ?,Af(B)
1128 ("'" ?,Ax(B)
1129 ("\\" ?')
1130 ("/" ?-)
1131
1132 ("@" ?\")
1133 ("$" ?,A$(B)
1134 ("^" ?&)
1135 ("&" ?/)
1136 ("*" ?\()
1137 ("(" ?\))
1138 (")" ?=)
1139 ("_" ??)
1140 ("+" ?,A'(B)
1141 ("~" ?^)
1142 ("{" ?,AE(B)
1143 ("}" ?,AI(B)
1144 (":" ?,AF(B)
1145 ("\"" ?,AX(B)
1146 ("|" ?*)
1147 ("<" ?\;)
1148 (">" ?:)
1149 ("?" ?_)
1150 )
1151
1152 ;;
1153 (quail-define-package
1154 "norwegian-keyboard" "Latin-1" "No" t
1155 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
1156 nil t t t t)
1157
1158 ;; 1! 2" 3# 4,A$(B 5% 6& 7/ 8( 9) 0= +? |,A'(B ~^
1159 ;; qQ wW eE rR tT yY uU iI oO pP ,AeE(B ,AiI(B
1160 ;; aA sS dD fF gG hH jJ kK lL ,AxX(B ,AfF(B '*
1161 ;; zZ xX cC vV bB nN mM ,; .: '?
1162
1163 (quail-define-rules
1164 ("-" ?+)
1165 ("=" ?|)
1166 ("`" ?~)
1167 ("[" ?,Ae(B)
1168 ("]" ?,Ai(B)
1169 (";" ?,Ax(B)
1170 ("'" ?,Af(B)
1171 ("\\" ?')
1172 ("/" ?-)
1173
1174 ("!" ?!)
1175 ("@" ?\")
1176 ("$" ?,A$(B)
1177 ("^" ?&)
1178 ("&" ?/)
1179 ("*" ?\()
1180 ("(" ?\))
1181 (")" ?=)
1182 ("_" ??)
1183 ("+" ?,A'(B)
1184 ("~" ?^)
1185 ("{" ?,AE(B)
1186 ("}" ?,AI(B)
1187 (":" ?,AX(B)
1188 ("\"" ?,AF(B)
1189 ("|" ?*)
1190 ("<" ?\;)
1191 (">" ?:)
1192 ("?" ?_)
1193 )
1194
1195 ;;
1196 (quail-define-package
1197 "swedish-keyboard" "Latin-1" "Sv" t
1198 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
1199 nil t t t t)
1200
1201 ;; 1! 2" 3# 4,A$(B 5% 6& 7/ 8( 9) 0= +? ,A'=(B ~^
1202 ;; qQ wW eE rR tT yY uU iI oO pP ,AeE(B ,AiI(B
1203 ;; aA sS dD fF gG hH jJ kK lL ,AvV(B ,AdD(B '*
1204 ;; zZ xX cC vV bB nN mM ,; .: -_
1205
1206 (quail-define-rules
1207 ("-" ?+)
1208 ("=" ?,A'(B)
1209 ("`" ?~)
1210 ("[" ?,Ae(B)
1211 ("]" ?,Ai(B)
1212 (";" ?,Av(B)
1213 ("'" ?,Ad(B)
1214 ("\\" ?')
1215 ("/" ?-)
1216
1217 ("@" ?\")
1218 ("$" ?,A$(B)
1219 ("^" ?&)
1220 ("&" ?/)
1221 ("*" ?\()
1222 ("(" ?\))
1223 (")" ?=)
1224 ("_" ??)
1225 ("+" ?,A=(B)
1226 ("~" ?^)
1227 ("{" ?,AE(B)
1228 ("}" ?,AI(B)
1229 (":" ?,AV(B)
1230 ("\"" ?,AD(B)
1231 ("|" ?*)
1232 ("<" ?\;)
1233 (">" ?:)
1234 ("?" ?_)
1235 )
1236
1237 ;;
1238 (quail-define-package
1239 "finish-keyboard" "Latin-1" "Fi" t
1240 "Finish input method simulating SUN Finnish/Swedish keyboard"
1241 nil t t t t)
1242
1243 ;; 1! 2" 3# 4,A$(B 5% 6& 7/ 8( 9) 0= +? ,A'=(B ~^
1244 ;; qQ wW eE rR tT yY uU iI oO pP ,AeE(B ,AiI(B
1245 ;; aA sS dD fF gG hH jJ kK lL ,AvV(B ,AdD(B '*
1246 ;; zZ xX cC vV bB nN mM ,; .: -_
1247
1248 (quail-define-rules
1249 ("-" ?+)
1250 ("=" ?,A'(B)
1251 ("`" ?~)
1252 ("[" ?,Ae(B)
1253 ("]" ?,Ai(B)
1254 (";" ?,Av(B)
1255 ("'" ?,Ad(B)
1256 ("\\" ?')
1257 ("/" ?-)
1258
1259 ("@" ?\")
1260 ("$" ?,A$(B)
1261 ("^" ?&)
1262 ("&" ?/)
1263 ("*" ?\()
1264 ("(" ?\))
1265 (")" ?=)
1266 ("_" ??)
1267 ("+" ?,A=(B)
1268 ("~" ?^)
1269 ("{" ?,AE(B)
1270 ("}" ?,AI(B)
1271 (":" ?,AV(B)
1272 ("\"" ?,AD(B)
1273 ("|" ?*)
1274 ("<" ?\;)
1275 (">" ?:)
1276 ("?" ?_)
1277 )
1278
1279 ;;
1280 (quail-define-package
1281 "german" "Latin-1" "De" t
1282 "German (Deutsch) input method simulating SUN German keyboard"
1283 nil t t t t)
1284
1285 ;; 1! 2" 3,A'(B 4$ 5% 6& 7/ 8( 9) 0= ,A_(B? [{ ]}
1286 ;; qQ wW eE rR tT zZ uU iI oO pP ,A|\(B +*
1287 ;; aA sS dD fF gG hH jJ kK lL ,AvV(B ,AdD(B #^
1288 ;; yY xX cC vV bB nN mM ,; .: -_
1289
1290 (quail-define-rules
1291 ("-" ?,A_(B)
1292 ("=" ?\[)
1293 ("`" ?\])
1294 ("[" ?,A|(B)
1295 ("]" ?+)
1296 (";" ?,Av(B)
1297 ("'" ?,Ad(B)
1298 ("\\" ?#)
1299 ("/" ?-)
1300
1301 ("@" ?\")
1302 ("#" ?,A'(B)
1303 ("^" ?&)
1304 ("&" ?/)
1305 ("*" ?\()
1306 ("(" ?\))
1307 (")" ?=)
1308 ("_" ??)
1309 ("+" ?{)
1310 ("~" ?})
1311 ("{" ?,A\(B)
1312 ("}" ?*)
1313 (":" ?,AV(B)
1314 ("\"" ?,AD(B)
1315 ("|" ?^)
1316 ("<" ?\;)
1317 (">" ?:)
1318 ("?" ?_)
1319 )
1320
1321 ;;
1322 (quail-define-package
1323 "italian-keyboard" "Latin-1" "It" t
1324 "Italian (Italiano) input method simulating SUN Italian keyboard"
1325 nil t t t t)
1326
1327 ;; 1! 2" 3,A#(B 4$ 5% 6& 7/ 8( 9) 0= '? ,Al(B^ `~
1328 ;; qQ wW eE rR tT yY uU iI oO pP ,Ahi(B +*
1329 ;; aA sS dD fF gG hH jJ kK lL ,Arg(B ,A`0(B ,Ay'(B
1330 ;; zZ xX cC vV bB nN mM ,; .: -_
1331
1332 (quail-define-rules
1333 ("-" ?')
1334 ("=" ?,Al(B)
1335 ("[" ?,Ah(B)
1336 ("]" ?+)
1337 (";" ?,Ar(B)
1338 ("'" ?,A`(B)
1339 ("\\" ?,Ay(B)
1340 ("/" ?-)
1341
1342 ("@" ?\")
1343 ("#" ?,A#(B)
1344 ("^" ?&)
1345 ("&" ?/)
1346 ("*" ?\()
1347 ("(" ?\))
1348 (")" ?=)
1349 ("_" ??)
1350 ("+" ?^)
1351 ("~" ?~)
1352 ("{" ?,Ai(B)
1353 ("}" ?*)
1354 (":" ?,Ag(B)
1355 ("\"" ?,A0(B)
1356 ("|" ?,A'(B)
1357 ("<" ?\;)
1358 (">" ?:)
1359 ("?" ?_)
1360 )
1361
1362 ;;
1363 (quail-define-package
1364 "spanish-keyboard" "Latin-1" "Es" t
1365 "Spanish (Espa,Aq(Bol) input method simulating SUN Spanish keyboard"
1366 nil t t t t)
1367
1368 ;; 1! 2" 3,A7(B 4$ 5% 6& 7/ 8( 9) 0= '? ,A!?(B ,AmM(B
1369 ;; qQ wW eE rR tT yY uU iI oO pP ,AiI(B ,AsS(B
1370 ;; aA sS dD fF gG hH jJ kK lL ,AqQ(B ,AaA(B ,AzZ(B
1371 ;; zZ xX cC vV bB nN mM ,; .: -_
1372
1373 (quail-define-rules
1374 ("-" ?')
1375 ("=" ?,A!(B)
1376 ("`" ?,Am(B)
1377 ("[" ?,Ai(B)
1378 ("]" ?,As(B)
1379 (";" ?,Aq(B)
1380 ("'" ?,Aa(B)
1381 ("\\" ?,Az(B)
1382 ("/" ?-)
1383
1384 ("@" ?\")
1385 ("#" ?,A7(B)
1386 ("^" ?&)
1387 ("&" ?/)
1388 ("*" ?\()
1389 ("(" ?\))
1390 (")" ?=)
1391 ("_" ??)
1392 ("+" ?,A?(B)
1393 ("~" ?,AM(B)
1394 ("{" ?,AI(B)
1395 ("}" ?,AS(B)
1396 (":" ?,AQ(B)
1397 ("\"" ?,AA(B)
1398 ("|" ?,AZ(B)
1399 ("<" ?\;)
1400 (">" ?:)
1401 ("?" ?_)
1402 )
1403
1404 ;;
1405 (quail-define-package
1406 "english-dvorak" "English" "DV" t
1407 "English (ASCII) input method simulating Dvorak keyboard"
1408 nil t t t t)
1409
1410 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) [{ ]} `~
1411 ;; '" ,< .> pP yY fF gG cC rR lL /? =+
1412 ;; aA oO eE uU iI dD hH tT nN sS -_ \|
1413 ;; ;: qQ jJ kK xX bB mM wW vV zZ
1414
1415 (quail-define-rules
1416 ("-" ?\[)
1417 ("=" ?\])
1418 ("`" ?`)
1419 ("q" ?')
1420 ("w" ?,)
1421 ("e" ?.)
1422 ("r" ?p)
1423 ("t" ?y)
1424 ("y" ?f)
1425 ("u" ?g)
1426 ("i" ?c)
1427 ("o" ?r)
1428 ("p" ?l)
1429 ("[" ?/)
1430 ("]" ?=)
1431 ("a" ?a)
1432 ("s" ?o)
1433 ("d" ?e)
1434 ("f" ?u)
1435 ("g" ?i)
1436 ("h" ?d)
1437 ("j" ?h)
1438 ("k" ?t)
1439 ("l" ?n)
1440 (";" ?s)
1441 ("'" ?-)
1442 ("\\" ?\\)
1443 ("z" ?\;)
1444 ("x" ?q)
1445 ("c" ?j)
1446 ("v" ?k)
1447 ("b" ?x)
1448 ("n" ?b)
1449 ("m" ?m)
1450 ("," ?w)
1451 ("." ?v)
1452 ("/" ?z)
1453
1454 ("_" ?{)
1455 ("+" ?})
1456 ("~" ?~)
1457 ("Q" ?\")
1458 ("W" ?<)
1459 ("E" ?>)
1460 ("R" ?P)
1461 ("T" ?Y)
1462 ("Y" ?F)
1463 ("U" ?G)
1464 ("I" ?C)
1465 ("O" ?R)
1466 ("P" ?L)
1467 ("{" ??)
1468 ("}" ?+)
1469 ("A" ?A)
1470 ("S" ?O)
1471 ("D" ?E)
1472 ("F" ?U)
1473 ("G" ?I)
1474 ("H" ?D)
1475 ("J" ?H)
1476 ("K" ?T)
1477 ("L" ?N)
1478 (":" ?S)
1479 ("\"" ?_)
1480 ("|" ?|)
1481 ("Z" ?:)
1482 ("X" ?Q)
1483 ("C" ?J)
1484 ("V" ?K)
1485 ("B" ?X)
1486 ("N" ?B)
1487 ("M" ?M)
1488 ("<" ?W)
1489 (">" ?V)
1490 ("?" ?Z)
1491 )