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