1 ;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
6 ;; Registration Number H14PRO021
8 ;; Keywords: multilingual, input method, ethiopic
10 ;; This file is part of GNU Emacs.
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 3, or (at your option)
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.
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
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
27 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
37 ;; The package "ethiopic"
43 (ethio-prefer-ascii-space "_" "\e$(3$h\e(B")
44 (ethio-prefer-ascii-punctuation "." "\e$(3$i\e(B"))
45 t
" Quail package for Ethiopic (Tigrigna and Amharic)
47 When you are in Ethiopic language environment, the following special
50 C-F9 or `M-x ethio-toggle-space'
51 Toggles space characters for keyboard input. The current mode is
52 indicated in mode-line, whether by `_' (ASCII space) or `\e$(3$h\e(B'
53 (Ethiopic colon-like word separator). Even in the `\e$(3$h\e(B' mode, an
54 ASCII space is inserted if the point is preceded by `an Ethiopic
55 punctuation followed by zero or more ASCII spaces'.
57 S-F5 or `M-x ethio-toggle-punctuation'
58 Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
59 The current mode is indicated by `.' (ASCII) or `\e$(3$i\e(B' (Ethiopic).
61 S-SPC or `M-x ethio-insert-ethio-space'
62 Always insert an Ethiopic word separator `\e$(3$h\e(B'. With a prefix number,
63 insert that many word separators.
65 C-' or `M-x ethio-gemination'
66 Compose the character before the point with the Ethiopic gemination mark.
67 If the characater is already composed, decompose it and remove the
70 ;; The following keys should work as defined in lisp/language/ethio-util,
71 ;; even during the translation.
72 '(([C-f9
] . quail-execute-non-quail-command
)
73 ([S-f5
] . quail-execute-non-quail-command
)
74 (" " . quail-execute-non-quail-command
)
75 ([?\S-
] . quail-execute-non-quail-command
)
76 ([?\C-
'] . quail-execute-non-quail-command
))
106 ("lWe" ["\e$(3!.%n\e(B"])
107 ("lWu" ["\e$(3!.%r\e(B"])
108 ("lWi" ["\e$(3!.%o\e(B"])
109 ("lWE" ["\e$(3!.%q\e(B"])
110 ("lW'" ["\e$(3!.%r\e(B"])
122 ("LWe" ["\e$(3!.%n\e(B"])
123 ("LWu" ["\e$(3!.%r\e(B"])
124 ("LWi" ["\e$(3!.%o\e(B"])
125 ("LWE" ["\e$(3!.%q\e(B"])
126 ("LW'" ["\e$(3!.%r\e(B"])
138 ("HWe" ["\e$(3!6%n\e(B"])
139 ("HWu" ["\e$(3!6%r\e(B"])
140 ("HWi" ["\e$(3!6%o\e(B"])
141 ("HWE" ["\e$(3!6%q\e(B"])
142 ("HW'" ["\e$(3!6%r\e(B"])
158 ("mWee" ?
\e$
(3%Q
\e(B)
177 ("MWee" ?
\e$
(3%Q
\e(B)
187 ("`see" ?
\e$
(3!E
\e(B)
191 ("`sWa" ?
\e$
(3!H
\e(B)
192 ("`sWe" ["\e$(3!F%n\e(B"])
193 ("`sWu" ["\e$(3!F%r\e(B"])
194 ("`sWi" ["\e$(3!F%o\e(B"])
195 ("`sWE" ["\e$(3!F%q\e(B"])
196 ("`sWee" ["\e$(3!F%q\e(B"])
197 ("`sW'" ["\e$(3!F%r\e(B"])
204 ("s2ee" ?
\e$
(3!E
\e(B)
208 ("s2Wa" ?
\e$
(3!H
\e(B)
209 ("s2We" ["\e$(3!F%n\e(B"])
210 ("s2Wu" ["\e$(3!F%r\e(B"])
211 ("s2Wi" ["\e$(3!F%o\e(B"])
212 ("s2WE" ["\e$(3!F%q\e(B"])
213 ("s2Wee" ["\e$(3!F%q\e(B"])
214 ("s2W'" ["\e$(3!F%r\e(B"])
221 ("ssee" ?
\e$
(3!E
\e(B)
225 ("ssWa" ?
\e$
(3!H
\e(B)
226 ("ssWe" ["\e$(3!F%n\e(B"])
227 ("ssWu" ["\e$(3!F%r\e(B"])
228 ("ssWi" ["\e$(3!F%o\e(B"])
229 ("ssWE" ["\e$(3!F%q\e(B"])
230 ("ssWee" ["\e$(3!F%q\e(B"])
231 ("ssW'" ["\e$(3!F%r\e(B"])
245 ("rWe" ["\e$(3!N%n\e(B"])
246 ("rWu" ["\e$(3!N%r\e(B"])
247 ("rWi" ["\e$(3!N%o\e(B"])
248 ("rWE" ["\e$(3!N%q\e(B"])
249 ("rWee" ["\e$(3!N%q\e(B"])
250 ("rW'" ["\e$(3!N%r\e(B"])
263 ("RWe" ["\e$(3!N%n\e(B"])
264 ("RWu" ["\e$(3!N%r\e(B"])
265 ("RWi" ["\e$(3!N%o\e(B"])
266 ("RWE" ["\e$(3!N%q\e(B"])
267 ("RWee" ["\e$(3!N%q\e(B"])
268 ("RW'" ["\e$(3!N%r\e(B"])
280 ("sWe" ["\e$(3!V%n\e(B"])
281 ("sWu" ["\e$(3!V%r\e(B"])
282 ("sWi" ["\e$(3!V%o\e(B"])
283 ("sWE" ["\e$(3!V%q\e(B"])
284 ("sWee" ["\e$(3!V%q\e(B"])
285 ("sW'" ["\e$(3!V%r\e(B"])
297 ("xWe" ["\e$(3!^%n\e(B"])
298 ("xWu" ["\e$(3!^%r\e(B"])
299 ("xWi" ["\e$(3!^%o\e(B"])
300 ("xWE" ["\e$(3!^%q\e(B"])
301 ("xWee" ["\e$(3!^%q\e(B"])
302 ("xW'" ["\e$(3!^%r\e(B"])
318 ("qWee" ?
\e$
(3!m
\e(B)
326 ("`qee" ?
\e$
(3%-
\e(B)
335 ("q2ee" ?
\e$
(3%-
\e(B)
344 ("qqee" ?
\e$
(3%-
\e(B)
362 ("QWee" ?
\e$
(3!}\e(B)
379 ("bWee" ?
\e$
(3%R
\e(B)
396 ("BWee" ?
\e$
(3%R
\e(B)
409 ("vWe" ["\e$(3"0%n
\e(B"])
410 ("vWu
" ["\e$
(3"0%r\e(B"])
411 ("vWi" ["\e$(3"0%o
\e(B"])
412 ("vWE
" ["\e$
(3"0%q\e(B"])
413 ("vWee" ["\e$(3"0%q
\e(B"])
414 ("vW
'" ["\e$
(3"0%r\e(B"])
426 ("VWe" ["\e$(3"0%n
\e(B"])
427 ("VWu
" ["\e$
(3"0%r\e(B"])
428 ("VWi" ["\e$(3"0%o
\e(B"])
429 ("VWE
" ["\e$
(3"0%q\e(B"])
430 ("VWee" ["\e$(3"0%q
\e(B"])
431 ("VW
'" ["\e$
(3"0%r\e(B"])
443 ("tWe" ["\e$(3"8%n
\e(B"])
444 ("tWu
" ["\e$
(3"8%r\e(B"])
445 ("tWi" ["\e$(3"8%o
\e(B"])
446 ("tWE
" ["\e$
(3"8%q\e(B"])
447 ("tWee" ["\e$(3"8%q
\e(B"])
448 ("tW
'" ["\e$
(3"8%r\e(B"])
460 ("cWe" ["\e$(3"@%n
\e(B"])
461 ("cWu
" ["\e$
(3"@%r\e(B"])
462 ("cWi" ["\e$(3"@%o
\e(B"])
463 ("cWE
" ["\e$
(3"@%q\e(B"])
464 ("cWee" ["\e$(3"@%q
\e(B"])
465 ("cW
'" ["\e$
(3"@%r\e(B"])
472 ("`hee
" ?\e$(3"G
\e(B)
475 ("`hWe" ?
\e$
(3"K\e(B)
476 ("`hWu
" ?\e$(3"P
\e(B)
477 ("`hWi" ?
\e$
(3"M\e(B)
479 ("`hWa" ?
\e$
(3"N\e(B)
480 ("`hWE
" ?\e$(3"O
\e(B)
481 ("`hWee" ?
\e$
(3"O\e(B)
482 ("`hW
'" ?\e$(3"P
\e(B)
489 ("h2ee
" ?\e$(3"G
\e(B)
492 ("h2We" ?
\e$
(3"K\e(B)
493 ("h2Wu
" ?\e$(3"P
\e(B)
494 ("h2Wi" ?
\e$
(3"M\e(B)
496 ("h2Wa" ?
\e$
(3"N\e(B)
497 ("h2WE
" ?\e$(3"O
\e(B)
498 ("h2Wee" ?
\e$
(3"O\e(B)
499 ("h2W
'" ?\e$(3"P
\e(B)
506 ("hhee
" ?\e$(3"G
\e(B)
509 ("hhWe" ?
\e$
(3"K\e(B)
510 ("hhWu
" ?\e$(3"P
\e(B)
511 ("hhWi" ?
\e$
(3"M\e(B)
513 ("hhWa" ?
\e$
(3"N\e(B)
514 ("hhWE
" ?\e$(3"O
\e(B)
515 ("hhWee" ?
\e$
(3"O\e(B)
516 ("hhW
'" ?\e$(3"P
\e(B)
528 ("nWe" ["\e$(3"X%n
\e(B"])
529 ("nWu
" ["\e$
(3"X%r\e(B"])
530 ("nWi" ["\e$(3"X%o
\e(B"])
531 ("nWE
" ["\e$
(3"X%q\e(B"])
532 ("nWee" ["\e$(3"X%q
\e(B"])
533 ("nW
'" ["\e$
(3"X%r\e(B"])
545 ("NWe" ["\e$(3"`%n
\e(B"])
546 ("NWu
" ["\e$
(3"`%r\e(B"])
547 ("NWi" ["\e$(3"`%o
\e(B"])
548 ("NWE
" ["\e$
(3"`%q\e(B"])
549 ("NWee" ["\e$(3"`%q
\e(B"])
550 ("NW
'" ["\e$
(3"`%r\e(B"])
552 ; ("e" ?\e$(3"c\e(B) ; old style
559 ; ("ee" ?\e$(3"g\e(B) ; Alef-E is rare vs Aynu-I, so ee = Aynu-I
561 ("e
" ?\e$(3"h
\e(B) ; This is the premise to "new style" for vowels
581 ("kWee
" ?\e$(3"w
\e(B)
589 ("`kee
" ?\e$(3%=\e(B)
598 ("k2ee
" ?\e$(3%=\e(B)
607 ("kkee
" ?\e$(3%=\e(B)
625 ("KWee" ?
\e$
(3#)\e(B)
670 ; ("ee" ?\e$(3#5\e(B) ; old style
671 ("ae" ?
\e$
(3#5\e(B) ; new style
672 ("aaa" ?
\e$
(3#5\e(B) ; new style
680 ("ee" ?
\e$
(3#:\e(B) ; new style
694 ("zWe" ["\e$(3#B%n\e(B"])
695 ("zWu" ["\e$(3#B%r\e(B"])
696 ("zWi" ["\e$(3#B%o\e(B"])
697 ("zWE" ["\e$(3#B%q\e(B"])
698 ("zWee" ["\e$(3#B%q\e(B"])
699 ("zW'" ["\e$(3#B%r\e(B"])
711 ("ZWe" ["\e$(3#J%n\e(B"])
712 ("ZWu" ["\e$(3#J%r\e(B"])
713 ("ZWi" ["\e$(3#J%o\e(B"])
714 ("ZWE" ["\e$(3#J%q\e(B"])
715 ("ZWee" ["\e$(3#J%q\e(B"])
716 ("ZW'" ["\e$(3#J%r\e(B"])
728 ("yWe" ["\e$(3#R%n\e(B"])
729 ("yWu" ["\e$(3#R%r\e(B"])
730 ("yWi" ["\e$(3#R%o\e(B"])
731 ("yWE" ["\e$(3#R%q\e(B"])
732 ("yWee" ["\e$(3#R%q\e(B"])
733 ("yW'" ["\e$(3#R%r\e(B"])
745 ("YWe" ["\e$(3#R%n\e(B"])
746 ("YWu" ["\e$(3#R%r\e(B"])
747 ("YWi" ["\e$(3#R%o\e(B"])
748 ("YWE" ["\e$(3#R%q\e(B"])
749 ("YWee" ["\e$(3#R%q\e(B"])
750 ("YW'" ["\e$(3#R%r\e(B"])
762 ("dWe" ["\e$(3#Z%n\e(B"])
763 ("dWu" ["\e$(3#Z%r\e(B"])
764 ("dWi" ["\e$(3#Z%o\e(B"])
765 ("dWE" ["\e$(3#Z%q\e(B"])
766 ("dWee" ["\e$(3#Z%q\e(B"])
767 ("dW'" ["\e$(3#Z%r\e(B"])
779 ("DWe" ["\e$(3#b%n\e(B"])
780 ("DWu" ["\e$(3#b%r\e(B"])
781 ("DWi" ["\e$(3#b%o\e(B"])
782 ("DWE" ["\e$(3#b%q\e(B"])
783 ("DWee" ["\e$(3#b%q\e(B"])
784 ("DW'" ["\e$(3#b%r\e(B"])
796 ("jWe" ["\e$(3#j%n\e(B"])
797 ("jWu" ["\e$(3#j%r\e(B"])
798 ("jWi" ["\e$(3#j%o\e(B"])
799 ("jWE" ["\e$(3#j%q\e(B"])
800 ("jWee" ["\e$(3#j%q\e(B"])
801 ("jW'" ["\e$(3#j%r\e(B"])
813 ("JWe" ["\e$(3#j%n\e(B"])
814 ("JWu" ["\e$(3#j%r\e(B"])
815 ("JWi" ["\e$(3#j%o\e(B"])
816 ("JWE" ["\e$(3#j%q\e(B"])
817 ("JWee" ["\e$(3#j%q\e(B"])
818 ("JW'" ["\e$(3#j%r\e(B"])
834 ("gWee" ?
\e$
(3#y
\e(B)
842 ("`gee" ?
\e$
(3%
]\e(B)
851 ("g2ee" ?
\e$
(3%
]\e(B)
860 ("ggee" ?
\e$
(3%
]\e(B)
878 ("GWee
" ?\e$(3%S\e(B)
891 ("TWe
" ["\e$
(3$
,%n
\e(B"])
892 ("TWu
" ["\e$
(3$
,%r
\e(B"])
893 ("TWi
" ["\e$
(3$
,%o
\e(B"])
894 ("TWE
" ["\e$
(3$
,%q
\e(B"])
895 ("TWee
" ["\e$
(3$
,%q
\e(B"])
896 ("TW
'" ["\e$
(3$
,%r
\e(B"])
908 ("CWe
" ["\e$
(3$
4%n
\e(B"])
909 ("CWu
" ["\e$
(3$
4%r
\e(B"])
910 ("CWi
" ["\e$
(3$
4%o
\e(B"])
911 ("CWE
" ["\e$
(3$
4%q
\e(B"])
912 ("CWee
" ["\e$
(3$
4%q
\e(B"])
913 ("CW
'" ["\e$
(3$
4%r
\e(B"])
925 ("PWe
" ["\e$
(3$
<%n
\e(B"])
926 ("PWu
" ["\e$
(3$
<%r
\e(B"])
927 ("PWi
" ["\e$
(3$
<%o
\e(B"])
928 ("PWE
" ["\e$
(3$
<%q
\e(B"])
929 ("PWee
" ["\e$
(3$
<%q
\e(B"])
930 ("PW
'" ["\e$
(3$
<%r
\e(B"])
942 ("SWe
" ["\e$
(3$D%n
\e(B"])
943 ("SWu
" ["\e$
(3$D%r
\e(B"])
944 ("SWi
" ["\e$
(3$D%o
\e(B"])
945 ("SWE
" ["\e$
(3$D%q
\e(B"])
946 ("SWee
" ["\e$
(3$D%q
\e(B"])
947 ("SW
'" ["\e$
(3$D%r
\e(B"])
954 ("`See
" ?\e$(3$K\e(B)
958 ("`SWa
" ?\e$(3$F\e(B)
959 ("`SWe
" ["\e$
(3$L%n
\e(B"])
960 ("`SWu
" ["\e$
(3$L%r
\e(B"])
961 ("`SWi
" ["\e$
(3$L%o
\e(B"])
962 ("`SWE
" ["\e$
(3$L%q
\e(B"])
963 ("`SWee
" ["\e$
(3$L%q
\e(B"])
964 ("`SW
'" ["\e$
(3$L%r
\e(B"])
971 ("S2ee
" ?\e$(3$K\e(B)
975 ("S2Wa
" ?\e$(3$F\e(B)
976 ("S2We
" ["\e$
(3$L%n
\e(B"])
977 ("S2Wu
" ["\e$
(3$L%r
\e(B"])
978 ("S2Wi
" ["\e$
(3$L%o
\e(B"])
979 ("S2WE
" ["\e$
(3$L%q
\e(B"])
980 ("S2Wee
" ["\e$
(3$L%q
\e(B"])
981 ("S2W
'" ["\e$
(3$L%r
\e(B"])
988 ("SSee
" ?\e$(3$K\e(B)
992 ("SSWa
" ?\e$(3$F\e(B)
993 ("SSWe
" ["\e$
(3$L%n
\e(B"])
994 ("SSWu
" ["\e$
(3$L%r
\e(B"])
995 ("SSWi
" ["\e$
(3$L%o
\e(B"])
996 ("SSWE
" ["\e$
(3$L%q
\e(B"])
997 ("SSWee
" ["\e$
(3$L%q
\e(B"])
998 ("SW
'" ["\e$
(3$L%r
\e(B"])
1005 ("fee
" ?\e$(3$S\e(B)
1008 ("fWe
" ?\e$(3%4\e(B)
1009 ("fWu
" ?\e$(3%d\e(B)
1010 ("fWi
" ?\e$(3%D\e(B)
1012 ("fWa
" ?\e$(3$V\e(B)
1013 ("fWE
" ?\e$(3%T\e(B)
1014 ("fWee
" ?\e$(3%T\e(B)
1015 ("fW
'" ?\e$(3%d\e(B)
1017 ("fYa
" ?\e$(3$a\e(B)
1024 ("Fee
" ?\e$(3$S\e(B)
1027 ("FWe
" ?\e$(3%4\e(B)
1028 ("FWu
" ?\e$(3%d\e(B)
1029 ("FWi
" ?\e$(3%D\e(B)
1031 ("FWa
" ?\e$(3$V\e(B)
1032 ("FWE
" ?\e$(3%T\e(B)
1033 ("FWee
" ?\e$(3%T\e(B)
1034 ("FW
'" ?\e$(3%d\e(B)
1036 ("FYa
" ?\e$(3$a\e(B)
1043 ("pee
" ?\e$(3$[\e(B)
1046 ("pWe
" ?\e$(3%5\e(B)
1047 ("pWu
" ?\e$(3%e\e(B)
1048 ("pWi
" ?\e$(3%E\e(B)
1050 ("pWa
" ?\e$(3$^\e(B)
1051 ("pWE
" ?\e$(3%U\e(B)
1052 ("pWee
" ?\e$(3%U\e(B)
1053 ("pW
'" ?\e$(3%e\e(B)
1071 (":|:" ?
\e$
(3$o
\e(B)
1079 ("wWe" ?
\e$
(3%n
\e(B)
1080 ("wWu" ?
\e$
(3%r
\e(B)
1081 ("wWi" ?
\e$
(3%o
\e(B)
1083 ("wWa" ?
\e$
(3%p
\e(B)
1084 ("wWE" ?
\e$
(3%q
\e(B)
1085 ("wWee" ?
\e$
(3%q
\e(B)
1086 ("wW'" ?
\e$
(3%r
\e(B)
1093 ("Wee" ?
\e$
(3%q
\e(B)
1104 ("`10" ?
\e$
(3$y
\e(B)
1105 ("`20" ?
\e$
(3$z
\e(B)
1106 ("`30" ?
\e$
(3$
{\e(B)
1107 ("`40" ?
\e$
(3$|
\e(B)
1108 ("`50" ?
\e$
(3$
}\e(B)
1109 ("`60" ?
\e$
(3$~
\e(B)
1110 ("`70" ?
\e$
(3%
!\e(B)
1111 ("`80" ?
\e$
(3%
"\e(B)
1112 ("`90" ?\e$(3%#\e(B)
1113 ("`100" ?\e$(3%$\e(B)
1114 ("`1000" ["\e$
(3$y%$
\e(B"])
1115 ("`2000" ["\e$
(3$z%$
\e(B"])
1116 ("`3000" ["\e$
(3$
{%$
\e(B"])
1117 ("`4000" ["\e$
(3$|%$
\e(B"])
1118 ("`5000" ["\e$
(3$
}%$
\e(B"])
1119 ("`6000" ["\e$
(3$~%$
\e(B"])
1120 ("`7000" ["\e$
(3%
!%$
\e(B"])
1121 ("`8000" ["\e$
(3%
"%$\e(B"])
1122 ("`9000" ["\e$(3%#%$\e(B"])
1123 ("`10000" ?
\e$
(3%%
\e(B)
1124 ("`20000" ["\e$(3$q%%\e(B"])
1125 ("`30000" ["\e$(3$r%%\e(B"])
1126 ("`40000" ["\e$(3$s%%\e(B"])
1127 ("`50000" ["\e$(3$t%%\e(B"])
1128 ("`60000" ["\e$(3$u%%\e(B"])
1129 ("`70000" ["\e$(3$v%%\e(B"])
1130 ("`80000" ["\e$(3$w%%\e(B"])
1131 ("`90000" ["\e$(3$x%%\e(B"])
1132 ("`100000" ["\e$(3$y%%\e(B"])
1133 ("`200000" ["\e$(3$z%%\e(B"])
1134 ("`300000" ["\e$(3${%%\e(B"])
1135 ("`400000" ["\e$(3$|%%\e(B"])
1136 ("`500000" ["\e$(3$}%%\e(B"])
1137 ("`600000" ["\e$(3$~%%\e(B"])
1138 ("`700000" ["\e$(3%!%%\e(B"])
1139 ("`800000" ["\e$(3%"%%
\e(B"])
1140 ("`900000" ["\e$
(3%
#%%
\e(B"])
1141 ("`1000000" ["\e$
(3%$%%
\e(B"])
1144 (defun ethio-select-a-translation ()
1145 ;; The translation of `a' depends on the language
1146 ;; (either Tigrigna or Amharic).
1148 (if (ethio-prefer-amharic-p) ?\e$(3"c
\e(B ?
\e$
(3"f\e(B)
1151 ;;; arch-tag: 66c182a8-d802-40fa-9c0d-d8ebe2f909d5
1152 ;;; ethiopic.el ends here