]> code.delx.au - gnu-emacs/blob - leim/quail/latin-pre.el
*** empty log message ***
[gnu-emacs] / leim / quail / latin-pre.el
1 ;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*-
2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2000, 2002 Free Software Foundation, Inc.
6
7 ;; Keywords: mule, multilingual, latin, input method
8
9 ;; This file is part of GNU Emacs.
10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Commentary:
27
28 ;; Key translation maps were originally copied from iso-acc.el.
29 ;; latin-1-prefix: extra special characters added, adapted from the vim
30 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
31 ;; by R.F. Smith <rsmith@xs4all.nl>
32 ;;
33 ;; polish-slash:
34 ;; Author: Włodek Bzyl <matwb@univ.gda.pl>
35 ;; Maintainer: Włodek Bzyl <matwb@univ.gda.pl>
36 ;;
37 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
38
39 ;; You might make extra input sequences on the basis of the X
40 ;; locale/*/Compose files (which have both prefix and postfix
41 ;; sequences), but bear in mind that sequences which are logical in
42 ;; that context may not be sensible when they're not signalled with
43 ;; the Compose key. An example is a double space for NBSP.
44
45 ;;; Code:
46
47 (require 'quail)
48
49 (quail-define-package
50 "latin-1-prefix" "Latin-1" "1>" t
51 "Latin-1 characters input method with prefix modifiers
52
53 effect | prefix | examples
54 ------------+--------+----------
55 acute | ' | 'a -> á, '' -> ´
56 grave | ` | `a -> à
57 circumflex | ^ | ^a -> â
58 diaeresis | \" | \"a -> ä \"\" -> ¨
59 tilde | ~ | ~a -> ã
60 cedilla | ~ | ~c -> ç
61 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
62 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸
63 | ~ | ~s -> § ~x -> ¤ ~. -> · ~$ -> £ ~u -> µ
64 | ~ | ~p -> ¶ ~- -> ­ ~= -> ¯ ~| -> ¦
65 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
66 | _ / | _: -> ÷ /c -> ¢ /2 -> ½ /4 -> ¼ /3 -> ¾
67 | _ / | /= -> ¬
68 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³
69 " nil t nil nil nil nil nil nil nil nil t)
70
71 (quail-define-rules
72 ("'A" ?Á)
73 ("'E" ?É)
74 ("'I" ?Í)
75 ("'O" ?Ó)
76 ("'U" ?Ú)
77 ("'Y" ?Ý)
78 ("'a" ?á)
79 ("'e" ?é)
80 ("'i" ?í)
81 ("'o" ?ó)
82 ("'u" ?ú)
83 ("'y" ?ý)
84 ("''" ?´)
85 ("' " ?')
86 ("`A" ?À)
87 ("`E" ?È)
88 ("`I" ?Ì)
89 ("`O" ?Ò)
90 ("`U" ?Ù)
91 ("`a" ?à)
92 ("`e" ?è)
93 ("`i" ?ì)
94 ("`o" ?ò)
95 ("`u" ?ù)
96 ("``" ?`)
97 ("` " ?`)
98 ("^A" ?Â)
99 ("^E" ?Ê)
100 ("^I" ?Î)
101 ("^O" ?Ô)
102 ("^U" ?Û)
103 ("^a" ?â)
104 ("^e" ?ê)
105 ("^i" ?î)
106 ("^o" ?ô)
107 ("^u" ?û)
108 ("^^" ?^)
109 ("^ " ?^)
110 ("\"A" ?Ä)
111 ("\"E" ?Ë)
112 ("\"I" ?Ï)
113 ("\"O" ?Ö)
114 ("\"U" ?Ü)
115 ("\"a" ?ä)
116 ("\"e" ?ë)
117 ("\"i" ?ï)
118 ("\"o" ?ö)
119 ("\"s" ?ß)
120 ("\"u" ?ü)
121 ("\"y" ?ÿ)
122 ("\"\"" ?¨)
123 ("\" " ?\")
124 ("~A" ?Ã)
125 ("~C" ?Ç)
126 ("~D" ?Ð)
127 ("~N" ?Ñ)
128 ("~O" ?Õ)
129 ("~T" ?Þ)
130 ("~a" ?ã)
131 ("~c" ?ç)
132 ("~d" ?ð)
133 ("~n" ?ñ)
134 ("~o" ?õ)
135 ("~t" ?þ)
136 ("~>" ?\»)
137 ("~<" ?\«)
138 ("~!" ?¡)
139 ("~?" ?¿)
140 ("~~" ?¸)
141 ("~ " ?~)
142 ("/A" ?Å)
143 ("/E" ?Æ)
144 ("/O" ?Ø)
145 ("/a" ?å)
146 ("/e" ?æ)
147 ("/o" ?ø)
148 ("//" ?°)
149 ("/ " ?/)
150 ("_o" ?º)
151 ("_a" ?ª)
152 ("_ " ? )
153 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
154 ("_+" ?±)
155 ("_y" ?¥)
156 ("_:" ?÷)
157 ("/c" ?¢)
158 ("/\\" ?×)
159 ("/2" ?½)
160 ("/4" ?¼)
161 ("/3" ?¾)
162 ("~s" ?§)
163 ("~p" ?¶)
164 ("~x" ?¤)
165 ("~." ?·)
166 ("~$" ?£)
167 ("~u" ?µ)
168 ("^r" ?®)
169 ("^c" ?©)
170 ("^1" ?¹)
171 ("^2" ?²)
172 ("^3" ?³)
173 ("~-" ?­)
174 ("~|" ?¦)
175 ("/=" ?¬)
176 ("~=" ?¯)
177 )
178
179 (quail-define-package
180 "catalan-prefix" "Latin-1" "CA>" t
181 "Catalan and Spanish input method with prefix modifiers
182
183 effect | prefix | examples
184 ------------+--------+----------
185 acute | ' | 'a -> á '' -> ´
186 grave | ` | `a -> à
187 diaeresis | \" | \"i -> ï \"\" -> ¨
188 tilde | ~ | ~n -> ñ
189 cedilla | ~ | ~c -> ç
190 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿
191 " nil t nil nil nil nil nil nil nil nil t)
192
193 (quail-define-rules
194 ("'A" ?Á)
195 ("'E" ?É)
196 ("'I" ?Í)
197 ("'O" ?Ó)
198 ("'U" ?Ú)
199 ("'a" ?á)
200 ("'e" ?é)
201 ("'i" ?í)
202 ("'o" ?ó)
203 ("'u" ?ú)
204 ("' " ?')
205 ("`A" ?À)
206 ("`E" ?È)
207 ("`O" ?Ò)
208 ("`a" ?à)
209 ("`e" ?è)
210 ("`o" ?ò)
211 ("` " ?`)
212 ("\"I" ?Ï)
213 ("\"U" ?Ü)
214 ("\"i" ?ï)
215 ("\"u" ?ü)
216 ("\" " ?\")
217 ("~C" ?Ç)
218 ("~N" ?Ñ)
219 ("~c" ?ç)
220 ("~n" ?ñ)
221 ("~>" ?\»)
222 ("~<" ?\«)
223 ("~!" ?¡)
224 ("~?" ?¿)
225 ("~ " ?~)
226 )
227
228 (quail-define-package
229 "esperanto-prefix" "Latin-3" "EO>" t
230 "Esperanto input method with prefix modifiers
231 Key translation rules are:
232 ^H -> ?Ĥ ^J -> ?Ĵ ^h -> ?ĥ ^j -> ?ĵ ^C -> ?Ĉ ^G -> ?Ĝ,
233 ^S -> ?Ŝ ^c -> ?ĉ ^g -> ?ĝ ^s -> ?ŝ ~U -> ?Ŭ ~u -> ?ŭ
234 " nil t nil nil nil nil nil nil nil nil t)
235
236 (quail-define-rules
237 ("^H" ?Ĥ)
238 ("^J" ?Ĵ)
239 ("^h" ?ĥ)
240 ("^j" ?ĵ)
241 ("^C" ?Ĉ)
242 ("^G" ?Ĝ)
243 ("^S" ?Ŝ)
244 ("^c" ?ĉ)
245 ("^g" ?ĝ)
246 ("^s" ?ŝ)
247 ("^^" ?^)
248 ("^ " ?^)
249 ("~U" ?Ŭ)
250 ("~u" ?ŭ)
251 ("~ " ?~)
252 )
253
254 (quail-define-package
255 "french-prefix" "French" "FR>" t
256 "French (Français) input method with prefix modifiers
257
258 effect | prefix | examples
259 ------------+--------+----------
260 acute | ' | 'e -> é
261 grave | ` | `a -> à
262 circumflex | ^ | ^a -> â
263 diaeresis | \" | \"i -> ï
264 cedilla | ~ or , | ~c -> ç ,c -> ç
265 symbol | ~ | ~> -> » ~< -> «
266 " nil t nil nil nil nil nil nil nil nil t)
267
268 (quail-define-rules
269 ("'E" ?É)
270 ("'C" ?Ç)
271 ("'e" ?é)
272 ("'c" ?ç)
273 ("' " ?')
274 ("`A" ?À)
275 ("`E" ?È)
276 ("`U" ?Ù)
277 ("`a" ?à)
278 ("`e" ?è)
279 ("`u" ?ù)
280 ("` " ?`)
281 ("^A" ?Â)
282 ("^E" ?Ê)
283 ("^I" ?Î)
284 ("^O" ?Ô)
285 ("^U" ?Û)
286 ("^a" ?â)
287 ("^e" ?ê)
288 ("^i" ?î)
289 ("^o" ?ô)
290 ("^u" ?û)
291 ("^ " ?^)
292 ("\"E" ?Ë)
293 ("\"I" ?Ï)
294 ("\"e" ?ë)
295 ("\"i" ?ï)
296 ("\" " ?\")
297 ("~<" ?\«)
298 ("~>" ?\»)
299 ("~C" ?Ç)
300 ("~c" ?ç)
301 ("~ " ?~)
302 (",C" ?Ç)
303 (",c" ?ç)
304 (", " ?,)
305 )
306
307 (quail-define-package
308 "romanian-prefix" "Romanian" "RO>" t
309 "Romanian (româneşte) input method with prefix modifiers
310
311 effect | prefix | examples
312 ------------+--------+------------------
313 tilde | ~ | ~a -> ă
314 circumflex | ^ | ^a -> â, ^i -> î
315 cedilla | , | ,s -> ş, ,t -> ţ
316 ~ | ~ | ~~ -> ~
317 ^ | ^ | ^^ -> ^
318 , | , | ,, -> ,
319 " nil t nil nil nil nil nil nil nil nil t)
320
321 (quail-define-rules
322 ("~A" ?Ă) ("~a" ?ă)
323 ("^A" ?Â) ("^a" ?â)
324 ("^I" ?Î) ("^i" ?î)
325 (",S" ?Ş) (",s" ?ş)
326 (",T" ?Ţ) (",t" ?ţ)
327 ("^^" ?^) ("~~" ?~) (",," ?,))
328
329 (quail-define-package
330 "romanian-alt-prefix" "Romanian" "RO>" t
331 "Alternative Romanian (româneşte) input method with prefix modifiers
332
333 effect | prefix | examples
334 ------------+--------+------------------
335 tilde | \" | \"a -> â
336 circumflex | ' | 'a -> â, 'i -> î
337 cedilla | ' | 's -> ş, 't -> ţ
338 ' | ' | '' -> '
339 \" | \" | \"\" -> \"
340 " nil t nil nil nil nil nil nil nil nil t)
341
342 (quail-define-rules
343 ("'A" ?Ă) ("'a" ?ă)
344 ("\"A" ?Â) ("\"a" ?â)
345 ("'I" ?Î) ("'i" ?î)
346 ("'S" ?Ş) ("'s" ?ş)
347 ("'T" ?Ţ) ("'t" ?ţ)
348 ("''" ?') ("\"\"" ?\"))
349
350 (quail-define-package
351 "german-prefix" "German" "DE>" t
352 "German (Deutsch) input method with prefix modifiers
353 Key translation rules are:
354 \"A -> Ä -> \"O -> Ö \"U -> Ü \"s -> ?ß
355 " nil t nil nil nil nil nil nil nil nil t)
356
357 (quail-define-rules
358 ("\"A" ?Ä)
359 ("\"O" ?Ö)
360 ("\"U" ?Ü)
361 ("\"a" ?ä)
362 ("\"o" ?ö)
363 ("\"u" ?ü)
364 ("\"s" ?ß)
365 ("\" " ?\")
366 )
367
368 (quail-define-package
369 "irish-prefix" "Latin-1" "GA>" t
370 "Irish input method with prefix modifiers
371 Key translation rules are:
372 'A -> Á 'E -> É 'I -> Í 'O -> Ó 'U -> Ú
373 " nil t nil nil nil nil nil nil nil nil t)
374
375 (quail-define-rules
376 ("'A" ?Á)
377 ("'E" ?É)
378 ("'I" ?Í)
379 ("'O" ?Ó)
380 ("'U" ?Ú)
381 ("'a" ?á)
382 ("'e" ?é)
383 ("'i" ?í)
384 ("'o" ?ó)
385 ("'u" ?ú)
386 ("' " ?')
387 )
388
389 (quail-define-package
390 "portuguese-prefix" "Latin-1" "PT>" t
391 "Portuguese input method with prefix modifiers
392
393 effect | prefix | examples
394 ------------+--------+----------
395 acute | ' | 'a -> á '' -> ´
396 grave | ` | `a -> à
397 circumflex | ^ | ^a -> â
398 diaeresis | \" | \"u -> ü
399 tilde | ~ | ~a -> ã
400 cedilla | ' or , | 'c -> ç ,c -> ç
401 " nil t nil nil nil nil nil nil nil nil t)
402
403 (quail-define-rules
404 ("'A" ?Á)
405 ("'E" ?É)
406 ("'I" ?Í)
407 ("'O" ?Ó)
408 ("'U" ?Ú)
409 ("'C" ?Ç)
410 ("'a" ?á)
411 ("'e" ?é)
412 ("'i" ?í)
413 ("'o" ?ó)
414 ("'u" ?ú)
415 ("'c" ?ç)
416 ("' " ?')
417 ("`A" ?À)
418 ("`a" ?à)
419 ("` " ?`)
420 ("^A" ?Â)
421 ("^E" ?Ê)
422 ("^O" ?Ô)
423 ("^a" ?â)
424 ("^e" ?ê)
425 ("^o" ?ô)
426 ("^ " ?^)
427 ("\"U" ?Ü)
428 ("\"u" ?ü)
429 ("\" " ?\")
430 ("~A" ?Ã)
431 ("~O" ?Õ)
432 ("~a" ?ã)
433 ("~o" ?õ)
434 ("~ " ?~)
435 (",c" ?ç)
436 (",C" ?Ç)
437 (",," ?,)
438 )
439
440 (quail-define-package
441 "spanish-prefix" "Spanish" "ES>" t
442 "Spanish (Español) input method with prefix modifiers
443
444 effect | prefix | examples
445 ------------+--------+----------
446 acute | ' | 'a -> á
447 diaeresis | \" | \"u -> ü
448 tilde | ~ | ~n -> ñ
449 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿
450 " nil t nil nil nil nil nil nil nil nil t)
451
452 (quail-define-rules
453 ("'A" ?Á)
454 ("'E" ?É)
455 ("'I" ?Í)
456 ("'O" ?Ó)
457 ("'U" ?Ú)
458 ("'a" ?á)
459 ("'e" ?é)
460 ("'i" ?í)
461 ("'o" ?ó)
462 ("'u" ?ú)
463 ("' " ?')
464 ("\"U" ?Ü)
465 ("\"u" ?ü)
466 ("\" " ?\")
467 ("~N" ?Ñ)
468 ("~n" ?ñ)
469 ("~>" ?\»)
470 ("~<" ?\«)
471 ("~!" ?¡)
472 ("~?" ?¿)
473 ("~ " ?~)
474 )
475
476 (quail-define-package
477 "latin-2-prefix" "Latin-2" "2>" t
478 "Latin-2 characters input method with prefix modifiers
479
480 effect | prefix | examples
481 ------------+--------+----------
482 acute | ' | 'a -> á '' -> ?´
483 circumflex | ^ | ^a -> â
484 diaeresis | \" | \"a -> ä \"\" -> ¨
485 breve | ~ | ~a -> ă
486 caron | ~ | ~c -> č
487 cedilla | ` | `c -> ç `e -> ?ę
488 misc | ' ` ~ | 'd -> đ `l -> ł `z -> ż ~o -> ő ~u -> ű
489 symbol | ~ | `. -> ˙ ~~ -> ˘ ~. -> ?¸
490 " nil t nil nil nil nil nil nil nil nil t)
491
492 (quail-define-rules
493 ("'A" ?Á)
494 ("'C" ?Ć)
495 ("'D" ?Đ)
496 ("'E" ?É)
497 ("'I" ?Í)
498 ("'L" ?Ĺ)
499 ("'N" ?Ń)
500 ("'O" ?Ó)
501 ("'R" ?Ŕ)
502 ("'S" ?Ś)
503 ("'U" ?Ú)
504 ("'Y" ?Ý)
505 ("'Z" ?Ź)
506 ("'a" ?á)
507 ("'c" ?ć)
508 ("'d" ?đ)
509 ("'e" ?é)
510 ("'i" ?í)
511 ("'l" ?ĺ)
512 ("'n" ?ń)
513 ("'o" ?ó)
514 ("'r" ?ŕ)
515 ("'s" ?ś)
516 ("'u" ?ú)
517 ("'y" ?ý)
518 ("'z" ?ź)
519 ("''" ?´)
520 ("' " ?')
521 ("`A" ?Ą)
522 ("`C" ?Ç)
523 ("`E" ?Ę)
524 ("`L" ?Ł)
525 ("`S" ?Ş)
526 ("`T" ?Ţ)
527 ("`Z" ?Ż)
528 ("`a" ?ą)
529 ("`l" ?ł)
530 ("`c" ?ç)
531 ("`e" ?ę)
532 ("`s" ?ş)
533 ("`t" ?ţ)
534 ("`z" ?ż)
535 ("``" ?Ş)
536 ("`." ?˙)
537 ("` " ?`)
538 ("^A" ?Â)
539 ("^I" ?Î)
540 ("^O" ?Ô)
541 ("^a" ?â)
542 ("^i" ?î)
543 ("^o" ?ô)
544 ("^^" ?^)
545 ("^ " ?^)
546 ("\"A" ?Ä)
547 ("\"E" ?Ë)
548 ("\"O" ?Ö)
549 ("\"U" ?Ü)
550 ("\"a" ?ä)
551 ("\"e" ?ë)
552 ("\"o" ?ö)
553 ("\"s" ?ß)
554 ("\"u" ?ü)
555 ("\"\"" ?¨)
556 ("\" " ?\")
557 ("~A" ?Ă)
558 ("~C" ?Č)
559 ("~D" ?Ď)
560 ("~E" ?Ě)
561 ("~L" ?Ľ)
562 ("~N" ?Ň)
563 ("~O" ?Ő)
564 ("~R" ?Ř)
565 ("~S" ?Š)
566 ("~T" ?Ť)
567 ("~U" ?Ű)
568 ("~Z" ?Ž)
569 ("~a" ?ă)
570 ("~c" ?č)
571 ("~d" ?ď)
572 ("~e" ?ě)
573 ("~l" ?ľ)
574 ("~n" ?ň)
575 ("~o" ?ő)
576 ("~r" ?ř)
577 ("~s" ?š)
578 ("~t" ?ť)
579 ("~u" ?ű)
580 ("~z" ?ž)
581 ("~v" ?˘)
582 ("~~" ?˘)
583 ("~." ?¸)
584 ("~ " ?~)
585 )
586
587 (quail-define-package
588 "latin-3-prefix" "Latin-3" "3>" t
589 "Latin-3 characters input method with prefix modifiers
590
591 effect | prefix | examples
592 ------------+--------+----------
593 acute | ' | 'a -> á '' -> ?´
594 grave | ` | `a -> à
595 circumflex | ^ | ^a -> â
596 diaeresis | \" | \"a -> ä \"\" -> ¨
597 cedilla | ~ | ~c -> ç ~s -> ş ~~ -> ¸
598 dot above | / . | /g -> ġ .o -> ġ
599 misc | \" ~ / | \"s -> ß ~g -> ğ ~u -> ŭ /h -> ħ /i -> ı
600 symbol | ~ | ~` -> ˘ /# -> £ /$ -> ¤ // -> °
601 " nil t nil nil nil nil nil nil nil nil t)
602
603 (quail-define-rules
604 ("'A" ?Á)
605 ("'E" ?É)
606 ("'I" ?Í)
607 ("'O" ?Ó)
608 ("'U" ?Ú)
609 ("'a" ?á)
610 ("'e" ?é)
611 ("'i" ?í)
612 ("'o" ?ó)
613 ("'u" ?ú)
614 ("''" ?´)
615 ("' " ?')
616 ("`A" ?À)
617 ("`E" ?È)
618 ("`I" ?Ì)
619 ("`O" ?Ò)
620 ("`U" ?Ù)
621 ("`a" ?à)
622 ("`e" ?è)
623 ("`i" ?ì)
624 ("`o" ?ò)
625 ("`u" ?ù)
626 ("``" ?`)
627 ("` " ?`)
628 ("^A" ?Â)
629 ("^C" ?Ĉ)
630 ("^E" ?Ê)
631 ("^G" ?Ĝ)
632 ("^H" ?Ĥ)
633 ("^I" ?Î)
634 ("^J" ?Ĵ)
635 ("^O" ?Ô)
636 ("^S" ?Ŝ)
637 ("^U" ?Û)
638 ("^a" ?â)
639 ("^c" ?ĉ)
640 ("^e" ?ê)
641 ("^g" ?ĝ)
642 ("^h" ?ĥ)
643 ("^i" ?î)
644 ("^j" ?ĵ)
645 ("^o" ?ô)
646 ("^s" ?ŝ)
647 ("^u" ?û)
648 ("^^" ?^)
649 ("^ " ?^)
650 ("\"A" ?Ä)
651 ("\"E" ?Ë)
652 ("\"I" ?Ï)
653 ("\"O" ?Ö)
654 ("\"U" ?Ü)
655 ("\"a" ?ä)
656 ("\"e" ?ë)
657 ("\"i" ?ï)
658 ("\"o" ?ö)
659 ("\"u" ?ü)
660 ("\"s" ?ß)
661 ("\"\"" ?¨)
662 ("\" " ?\")
663 ("~C" ?Ç)
664 ("~N" ?Ñ)
665 ("~c" ?ç)
666 ("~n" ?ñ)
667 ("~S" ?Ş)
668 ("~s" ?ş)
669 ("~G" ?Ğ)
670 ("~g" ?ğ)
671 ("~U" ?Ŭ)
672 ("~u" ?ŭ)
673 ("~`" ?˘)
674 ("~~" ?¸)
675 ("~ " ?~)
676 ("/C" ?Ċ)
677 ("/G" ?Ġ)
678 ("/H" ?Ħ)
679 ("/I" ?İ)
680 ("/Z" ?Ż)
681 ("/c" ?ċ)
682 ("/g" ?ġ)
683 ("/h" ?ħ)
684 ("/i" ?ı)
685 ("/z" ?ż)
686 ("/." ?˙)
687 ("/#" ?£)
688 ("/$" ?¤)
689 ("//" ?°)
690 ("/ " ?/)
691 (".C" ?Ċ)
692 (".G" ?Ġ)
693 (".I" ?İ)
694 (".Z" ?Ż)
695 (".c" ?ċ)
696 (".g" ?ġ)
697 (".z" ?ż)
698 )
699
700
701 (quail-define-package
702 "polish-slash" "Polish" "PL>" nil
703 "Polish diacritics and slash character are input as `/[acelnosxzACELNOSXZ/]'.
704 For example, the character named `aogonek' is obtained by `/a'."
705 nil t t t nil nil nil nil nil nil t)
706
707 (quail-define-rules
708 ("//" ?/)
709 ("/a" ?ą)
710 ("/c" ?ć)
711 ("/e" ?ę)
712 ("/l" ?ł)
713 ("/n" ?ń)
714 ("/o" ?ó)
715 ("/s" ?ś)
716 ("/x" ?ź)
717 ("/z" ?ż)
718 ("/A" ?Ą)
719 ("/C" ?Ć)
720 ("/E" ?Ę)
721 ("/L" ?Ł)
722 ("/N" ?Ń)
723 ("/O" ?Ó)
724 ("/S" ?Ś)
725 ("/X" ?Ź)
726 ("/Z" ?Ż))
727
728 (quail-define-package
729 "latin-9-prefix" "Latin-9" "0>" t
730 "Latin-9 characters input method with prefix modifiers
731
732 effect | prefix | examples
733 ------------+--------+----------
734 acute | ' | 'a -> á
735 grave | ` | `a -> à
736 circumflex | ^ | ^a -> â
737 diaeresis | \" | \"a -> ä, \"Y -> Ÿ
738 tilde | ~ | ~a -> ã
739 caron | ~ | ~z -> ž
740 cedilla | ~ | ~c -> ç
741 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
742 | \" ~ / | /o -> œ
743 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ž
744 | ~ | ~s -> § ~e -> € ~. -> · ~$ -> £ ~u -> µ
745 | ~ | ~- -> ­ ~= -> ¯
746 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
747 | _ / | _: -> ÷ /c -> ¢ ~p -> ¶
748 | _ / | /= -> ¬
749 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³ _a -> ª
750 " nil t nil nil nil nil nil nil nil nil t)
751
752 (quail-define-rules
753 ("'A" ?Á)
754 ("'E" ?É)
755 ("'I" ?Í)
756 ("'O" ?Ó)
757 ("'U" ?Ú)
758 ("'Y" ?Ý)
759 ("'a" ?á)
760 ("'e" ?é)
761 ("'i" ?í)
762 ("'o" ?ó)
763 ("'u" ?ú)
764 ("'y" ?ý)
765 ("' " ?')
766 ("`A" ?À)
767 ("`E" ?È)
768 ("`I" ?Ì)
769 ("`O" ?Ò)
770 ("`U" ?Ù)
771 ("`a" ?à)
772 ("`e" ?è)
773 ("`i" ?ì)
774 ("`o" ?ò)
775 ("`u" ?ù)
776 ("``" ?`)
777 ("` " ?`)
778 ("^A" ?Â)
779 ("^E" ?Ê)
780 ("^I" ?Î)
781 ("^O" ?Ô)
782 ("^U" ?Û)
783 ("^a" ?â)
784 ("^e" ?ê)
785 ("^i" ?î)
786 ("^o" ?ô)
787 ("^u" ?û)
788 ("^^" ?^)
789 ("^ " ?^)
790 ("\"A" ?Ä)
791 ("\"E" ?Ë)
792 ("\"I" ?Ï)
793 ("\"O" ?Ö)
794 ("\"U" ?Ü)
795 ("\"a" ?ä)
796 ("\"e" ?ë)
797 ("\"i" ?ï)
798 ("\"o" ?ö)
799 ("\"s" ?ß)
800 ("\"u" ?ü)
801 ("\"y" ?ÿ)
802 ("\" " ?\")
803 ("~A" ?Ã)
804 ("~C" ?Ç)
805 ("~D" ?Ð)
806 ("~N" ?Ñ)
807 ("~O" ?Õ)
808 ("~S" ?Š)
809 ("~T" ?Þ)
810 ("~Z" ?Ž)
811 ("~a" ?ã)
812 ("~c" ?ç)
813 ("~d" ?ð)
814 ("~n" ?ñ)
815 ("~o" ?õ)
816 ("~s" ?š)
817 ("~t" ?þ)
818 ("~z" ?ž)
819 ("~>" ?\»)
820 ("~<" ?\«)
821 ("~!" ?¡)
822 ("~?" ?¿)
823 ("~ " ?~)
824 ("/A" ?Å)
825 ("/E" ?Æ)
826 ("/O" ?Ø)
827 ("/a" ?å)
828 ("/e" ?æ)
829 ("/o" ?ø)
830 ("//" ?°)
831 ("/ " ?/)
832 ("_o" ?º)
833 ("_a" ?ª)
834 ("_+" ?±)
835 ("_y" ?¥)
836 ("_:" ?÷)
837 ("/c" ?¢)
838 ("/\\" ?×)
839 ("/o" ?œ) ; clash with ø, but æ uses /
840 ("/O" ?Œ)
841 ("\"Y" ?Ÿ)
842 ("~s" ?§)
843 ("~p" ?¶)
844 ;; Is this the best option for Euro entry?
845 ("~e" ?€)
846 ("~." ?·)
847 ("~$" ?£)
848 ("~u" ?µ)
849 ("^r" ?®)
850 ("^c" ?©)
851 ("^1" ?¹)
852 ("^2" ?²)
853 ("^3" ?³)
854 ("~-" ?­)
855 ("~=" ?¯)
856 ("/=" ?¬))
857
858 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
859 ;; squint at it.
860
861 (quail-define-package
862 "latin-8-prefix" "Latin-8" "8>" t
863 "Latin-8 characters input method with prefix modifiers
864
865 effect | prefix | examples
866 ------------+--------+----------
867 acute | ' | 'a -> á
868 grave | ` | `a -> à
869 circumflex | ^ | ^w -> ŵ
870 diaeresis | \" | \"a -> ä
871 dot above | . | .b -> ḃ
872 tilde | ~ | ~a -> ã
873 cedilla | ~ | ~c -> ç
874 misc | \" ~ / | \"s -> ß /a -> å /e -> æ /o -> ø
875 | ~ | ~s -> § ~$ -> £ ~p -> ¶
876 symbol | ^ | ^r -> ® ^c -> ©
877 " nil t nil nil nil nil nil nil nil nil t)
878
879 ;; Basically following Latin-1, plus dottiness from Latin-3.
880 (quail-define-rules
881 (".B" ?Ḃ)
882 (".b" ?ḃ)
883 (".c" ?ċ)
884 (".C" ?Ċ)
885 (".D" ?Ḋ)
886 (".d" ?ḋ)
887 (".f" ?ḟ)
888 (".F" ?Ḟ)
889 (".g" ?ġ)
890 (".G" ?Ġ)
891 (".m" ?ṁ)
892 (".M" ?Ṁ)
893 (".p" ?ṗ)
894 (".P" ?Ṗ)
895 (".s" ?ṡ)
896 (".S" ?Ṡ)
897 (".t" ?ṫ)
898 (".T" ?Ṫ)
899 ("'A" ?Á)
900 ("'E" ?É)
901 ("'I" ?Í)
902 ("'O" ?Ó)
903 ("'U" ?Ú)
904 ("'Y" ?Ý)
905 ("'W" ?Ẃ)
906 ("'a" ?á)
907 ("'e" ?é)
908 ("'i" ?í)
909 ("'o" ?ó)
910 ("'u" ?ú)
911 ("'w" ?ẃ)
912 ("'y" ?ý)
913 ("' " ?')
914 ("`A" ?À)
915 ("`E" ?È)
916 ("`I" ?Ì)
917 ("`O" ?Ò)
918 ("`U" ?Ù)
919 ("`W" ?Ẁ)
920 ("`Y" ?Ỳ)
921 ("`a" ?à)
922 ("`e" ?è)
923 ("`i" ?ì)
924 ("`o" ?ò)
925 ("`u" ?ù)
926 ("`w" ?ẁ)
927 ("`y" ?ỳ)
928 ("``" ?`)
929 ("` " ?`)
930 ("^A" ?Â)
931 ("^E" ?Ê)
932 ("^I" ?Î)
933 ("^O" ?Ô)
934 ("^U" ?Û)
935 ("^a" ?â)
936 ("^e" ?ê)
937 ("^i" ?î)
938 ("^o" ?ô)
939 ("^u" ?û)
940 ("^w" ?ŵ)
941 ("^W" ?Ŵ)
942 ("^y" ?ŷ)
943 ("^Y" ?Ŷ)
944 ("^^" ?^)
945 ("^ " ?^)
946 ("\"A" ?Ä)
947 ("\"E" ?Ë)
948 ("\"I" ?Ï)
949 ("\"O" ?Ö)
950 ("\"U" ?Ü)
951 ("\"a" ?ä)
952 ("\"e" ?ë)
953 ("\"i" ?ï)
954 ("\"o" ?ö)
955 ("\"s" ?ß)
956 ("\"u" ?ü)
957 ("\"w" ?ẅ)
958 ("\"W" ?Ẅ)
959 ("\"y" ?ÿ)
960 ("\"Y" ?Ÿ)
961 ("\" " ?\")
962 ("~A" ?Ã)
963 ("~C" ?Ç)
964 ("~N" ?Ñ)
965 ("~O" ?Õ)
966 ("~a" ?ã)
967 ("~c" ?ç)
968 ("~n" ?ñ)
969 ("~o" ?õ)
970 ("~ " ?~)
971 ("/A" ?Å)
972 ("/E" ?Æ)
973 ("/O" ?Ø)
974 ("/a" ?å)
975 ("/e" ?æ)
976 ("/o" ?ø)
977 ("/ " ?/)
978 ("~p" ?¶)
979 ("~s" ?§)
980 ("~$" ?£)
981 ("^r" ?®)
982 ("^c" ?©))
983
984 (quail-define-package
985 "latin-prefix" "Latin" "L>" t
986 "Latin characters input method with prefix modifiers.
987 This is the union of various input methods originally made for input
988 of characters from a single Latin-N charset.
989
990 effect | prefix | examples
991 ------------+--------+----------
992 acute | ' | 'a -> á, '' -> ´
993 grave | ` | `a -> à
994 circumflex | ^ | ^a -> â
995 diaeresis | \" | \"a -> ä \"\" -> ¨
996 tilde | ~ | ~a -> ã
997 cedilla | ~ | ~c -> ç
998 breve | ~ | ~a -> ă
999 caron | ~ | ~c -> č
1000 dot above | ~ / . | ~o -> ġ /o -> ġ .o -> ġ
1001 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
1002 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸
1003 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
1004 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³
1005 " nil t nil nil nil nil nil nil nil nil t)
1006
1007 (quail-define-rules
1008 ("' " ?')
1009 ("''" ?´)
1010 ("'A" ?Á)
1011 ("'E" ?É)
1012 ("'I" ?Í)
1013 ("'O" ?Ó)
1014 ("'U" ?Ú)
1015 ("'W" ?Ẃ)
1016 ("'Y" ?Ý)
1017 ("'a" ?á)
1018 ("'e" ?é)
1019 ("'i" ?í)
1020 ("'o" ?ó)
1021 ("'u" ?ú)
1022 ("'w" ?ẃ)
1023 ("'y" ?ý)
1024 (".B" ?Ḃ)
1025 (".C" ?Ċ)
1026 (".D" ?Ḋ)
1027 (".F" ?Ḟ)
1028 (".G" ?Ġ)
1029 (".I" ?İ)
1030 (".M" ?Ṁ)
1031 (".P" ?Ṗ)
1032 (".S" ?Ṡ)
1033 (".T" ?Ṫ)
1034 (".Z" ?Ż)
1035 (".b" ?ḃ)
1036 (".c" ?ċ)
1037 (".d" ?ḋ)
1038 (".f" ?ḟ)
1039 (".g" ?ġ)
1040 (".m" ?ṁ)
1041 (".p" ?ṗ)
1042 (".s" ?ṡ)
1043 (".t" ?ṫ)
1044 (".z" ?ż)
1045 ("/ " ?/)
1046 ("/#" ?£)
1047 ("/$" ?¤)
1048 ("/." ?˙)
1049 ("//" ?°)
1050 ("/2" ?½)
1051 ("/3" ?¾)
1052 ("/4" ?¼)
1053 ("/=" ?¬)
1054 ("/A" ?Å)
1055 ("/C" ?Ċ)
1056 ("/E" ?Æ)
1057 ("/G" ?Ġ)
1058 ("/H" ?Ħ)
1059 ("/I" ?İ)
1060 ("/O" ?Ø)
1061 ("/O" ?Œ)
1062 ("/Z" ?Ż)
1063 ("/\\" ?×)
1064 ("/a" ?å)
1065 ("/c" ?¢)
1066 ("/c" ?ċ)
1067 ("/e" ?æ)
1068 ("/g" ?ġ)
1069 ("/h" ?ħ)
1070 ("/i" ?ı)
1071 ("/o" ?ø)
1072 ("/o" ?œ)
1073 ("/z" ?ż)
1074 ("\" " ?\")
1075 ("\"A" ?Ä)
1076 ("\"E" ?Ë)
1077 ("\"I" ?Ï)
1078 ("\"O" ?Ö)
1079 ("\"U" ?Ü)
1080 ("\"W" ?Ẅ)
1081 ("\"Y" ?Ÿ)
1082 ("\"\"" ?¨)
1083 ("\"a" ?ä)
1084 ("\"e" ?ë)
1085 ("\"i" ?ï)
1086 ("\"o" ?ö)
1087 ("\"s" ?ß)
1088 ("\"u" ?ü)
1089 ("\"w" ?ẅ)
1090 ("\"y" ?ÿ)
1091 ("^ " ?^)
1092 ("^1" ?¹)
1093 ("^2" ?²)
1094 ("^3" ?³)
1095 ("^A" ?Â)
1096 ("^C" ?Ĉ)
1097 ("^E" ?Ê)
1098 ("^G" ?Ĝ)
1099 ("^H" ?Ĥ)
1100 ("^I" ?Î)
1101 ("^J" ?Ĵ)
1102 ("^O" ?Ô)
1103 ("^S" ?Ŝ)
1104 ("^U" ?Û)
1105 ("^W" ?Ŵ)
1106 ("^Y" ?Ŷ)
1107 ("^^" ?^)
1108 ("^a" ?â)
1109 ("^c" ?©)
1110 ("^c" ?ĉ)
1111 ("^e" ?ê)
1112 ("^g" ?ĝ)
1113 ("^h" ?ĥ)
1114 ("^i" ?î)
1115 ("^j" ?ĵ)
1116 ("^o" ?ô)
1117 ("^r" ?®)
1118 ("^s" ?ŝ)
1119 ("^u" ?û)
1120 ("^w" ?ŵ)
1121 ("^y" ?ŷ)
1122 ("_+" ?±)
1123 ("_:" ?÷)
1124 ("_a" ?ª)
1125 ("_o" ?º)
1126 ("_y" ?¥)
1127 ("_ " ? )
1128 ("` " ?`)
1129 ("`A" ?À)
1130 ("`E" ?È)
1131 ("`I" ?Ì)
1132 ("`O" ?Ò)
1133 ("`U" ?Ù)
1134 ("`W" ?Ẁ)
1135 ("`Y" ?Ỳ)
1136 ("``" ?`)
1137 ("`a" ?à)
1138 ("`e" ?è)
1139 ("`i" ?ì)
1140 ("`o" ?ò)
1141 ("`u" ?ù)
1142 ("`w" ?ẁ)
1143 ("`y" ?ỳ)
1144 ("~ " ?~)
1145 ("~!" ?¡)
1146 ("~$" ?£)
1147 ("~-" ?­)
1148 ("~." ?·)
1149 ("~<" ?\«)
1150 ("~=" ?¯)
1151 ("~>" ?\»)
1152 ("~?" ?¿)
1153 ("~A" ?Ã)
1154 ("~C" ?Ç)
1155 ("~D" ?Ð)
1156 ("~G" ?Ğ)
1157 ("~N" ?Ñ)
1158 ("~O" ?Õ)
1159 ("~O" ?Ġ)
1160 ("~S" ?Ş)
1161 ("~S" ?Š)
1162 ("~T" ?Þ)
1163 ("~U" ?Ŭ)
1164 ("~Z" ?Ž)
1165 ("~`" ?˘)
1166 ("~a" ?ã)
1167 ("~c" ?ç)
1168 ("~d" ?ð)
1169 ("~e" ?€)
1170 ("~g" ?ğ)
1171 ("~n" ?ñ)
1172 ("~o" ?õ)
1173 ("~o" ?ġ)
1174 ("~p" ?¶)
1175 ("~s" ?§)
1176 ("~s" ?ş)
1177 ("~s" ?š)
1178 ("~t" ?þ)
1179 ("~u" ?µ)
1180 ("~u" ?ŭ)
1181 ("~x" ?¤)
1182 ("~z" ?ž)
1183 ("~|" ?¦)
1184 ("~~" ?¸)
1185 )
1186 ;;; latin-pre.el ends here