1 ;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 1999, 2001, 2006
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
5 ;; Registration Number H14PRO021
7 ;; Keywords: multilingual, input method, ethiopic
9 ;; This file is part of GNU Emacs.
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)
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.
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., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
26 ;;; Synched up with: FSF 22.0.50.6
28 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
38 ;; The package "ethiopic"
44 (ethio-prefer-ascii-space "_" "
\e$(3$h
\e(B")
45 (ethio-prefer-ascii-punctuation "." "
\e$(3$i
\e(B"))
46 t " Quail package for Ethiopic (Tigrigna and Amharic)
48 When you are in Ethiopic language environment, the following special
51 C-F9 or `M-x ethio-toggle-space'
52 Toggles space characters for keyboard input. The current mode is
53 indicated in mode-line, whether by `_' (ASCII space) or `
\e$(3$h
\e(B'
54 (Ethiopic colon-like word separator). Even in the `
\e$(3$h
\e(B' mode, an
55 ASCII space is inserted if the point is preceded by `an Ethiopic
57 on followed by zero or more ASCII spaces'.
59 S-F5 or `M-x ethio-toggle-punctuation'
60 Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
61 The current mode is indicated by `.' (ASCII) or `
\e$(3$i
\e(B' (Ethiopic).
63 S-SPC or `M-x ethio-insert-ethio-space'
64 Always insert an Ethiopic word separator `
\e$(3$h
\e(B'. With a prefix number,
65 insert that many word separators.
67 C-' or `M-x ethio-gemination'
68 Compose the character before the point with the Ethiopic gemination mark.
69 If the characater is already composed, decompose it and remove the
72 ;; The following keys should work as defined in lisp/language/ethio-util,
73 ;; even during the translation.
74 ;; XEmacs change; give the key sequences in a way XEmacs understands.
75 '(([(control f9)] . quail-execute-non-quail-command)
76 ([(shift f5)] . quail-execute-non-quail-command)
77 (" " . quail-execute-non-quail-command)
78 ([(shift space)] . quail-execute-non-quail-command)
79 ([(control ?\' )] . quail-execute-non-quail-command))
109 ("lWe" ["
\e$(3!.%n
\e(B"])
110 ("lWu" ["
\e$(3!.%r
\e(B"])
111 ("lWi" ["
\e$(3!.%o
\e(B"])
112 ("lWE" ["
\e$(3!.%q
\e(B"])
113 ("lW'" ["
\e$(3!.%r
\e(B"])
125 ("LWe" ["
\e$(3!.%n
\e(B"])
126 ("LWu" ["
\e$(3!.%r
\e(B"])
127 ("LWi" ["
\e$(3!.%o
\e(B"])
128 ("LWE" ["
\e$(3!.%q
\e(B"])
129 ("LW'" ["
\e$(3!.%r
\e(B"])
141 ("HWe" ["
\e$(3!6%n
\e(B"])
142 ("HWu" ["
\e$(3!6%r
\e(B"])
143 ("HWi" ["
\e$(3!6%o
\e(B"])
144 ("HWE" ["
\e$(3!6%q
\e(B"])
145 ("HW'" ["
\e$(3!6%r
\e(B"])
161 ("mWee" ?
\e$(3%Q
\e(B)
180 ("MWee" ?
\e$(3%Q
\e(B)
190 ("`see" ?
\e$(3!E
\e(B)
194 ("`sWa" ?
\e$(3!H
\e(B)
195 ("`sWe" ["
\e$(3!F%n
\e(B"])
196 ("`sWu" ["
\e$(3!F%r
\e(B"])
197 ("`sWi" ["
\e$(3!F%o
\e(B"])
198 ("`sWE" ["
\e$(3!F%q
\e(B"])
199 ("`sWee" ["
\e$(3!F%q
\e(B"])
200 ("`sW'" ["
\e$(3!F%r
\e(B"])
207 ("s2ee" ?
\e$(3!E
\e(B)
211 ("s2Wa" ?
\e$(3!H
\e(B)
212 ("s2We" ["
\e$(3!F%n
\e(B"])
213 ("s2Wu" ["
\e$(3!F%r
\e(B"])
214 ("s2Wi" ["
\e$(3!F%o
\e(B"])
215 ("s2WE" ["
\e$(3!F%q
\e(B"])
216 ("s2Wee" ["
\e$(3!F%q
\e(B"])
217 ("s2W'" ["
\e$(3!F%r
\e(B"])
224 ("ssee" ?
\e$(3!E
\e(B)
228 ("ssWa" ?
\e$(3!H
\e(B)
229 ("ssWe" ["
\e$(3!F%n
\e(B"])
230 ("ssWu" ["
\e$(3!F%r
\e(B"])
231 ("ssWi" ["
\e$(3!F%o
\e(B"])
232 ("ssWE" ["
\e$(3!F%q
\e(B"])
233 ("ssWee" ["
\e$(3!F%q
\e(B"])
234 ("ssW'" ["
\e$(3!F%r
\e(B"])
248 ("rWe" ["
\e$(3!N%n
\e(B"])
249 ("rWu" ["
\e$(3!N%r
\e(B"])
250 ("rWi" ["
\e$(3!N%o
\e(B"])
251 ("rWE" ["
\e$(3!N%q
\e(B"])
252 ("rWee" ["
\e$(3!N%q
\e(B"])
253 ("rW'" ["
\e$(3!N%r
\e(B"])
266 ("RWe" ["
\e$(3!N%n
\e(B"])
267 ("RWu" ["
\e$(3!N%r
\e(B"])
268 ("RWi" ["
\e$(3!N%o
\e(B"])
269 ("RWE" ["
\e$(3!N%q
\e(B"])
270 ("RWee" ["
\e$(3!N%q
\e(B"])
271 ("RW'" ["
\e$(3!N%r
\e(B"])
283 ("sWe" ["
\e$(3!V%n
\e(B"])
284 ("sWu" ["
\e$(3!V%r
\e(B"])
285 ("sWi" ["
\e$(3!V%o
\e(B"])
286 ("sWE" ["
\e$(3!V%q
\e(B"])
287 ("sWee" ["
\e$(3!V%q
\e(B"])
288 ("sW'" ["
\e$(3!V%r
\e(B"])
300 ("xWe" ["
\e$(3!^%n
\e(B"])
301 ("xWu" ["
\e$(3!^%r
\e(B"])
302 ("xWi" ["
\e$(3!^%o
\e(B"])
303 ("xWE" ["
\e$(3!^%q
\e(B"])
304 ("xWee" ["
\e$(3!^%q
\e(B"])
305 ("xW'" ["
\e$(3!^%r
\e(B"])
321 ("qWee" ?
\e$(3!m
\e(B)
329 ("`qee" ?
\e$(3%-
\e(B)
338 ("q2ee" ?
\e$(3%-
\e(B)
347 ("qqee" ?
\e$(3%-
\e(B)
365 ("QWee" ?
\e$(3!}
\e(B)
382 ("bWee" ?
\e$(3%R
\e(B)
399 ("BWee" ?
\e$(3%R
\e(B)
412 ("vWe" ["
\e$(3"0%n
\e(B"])
413 ("vWu" ["
\e$(3"0%r
\e(B"])
414 ("vWi" ["
\e$(3"0%o
\e(B"])
415 ("vWE" ["
\e$(3"0%q
\e(B"])
416 ("vWee" ["
\e$(3"0%q
\e(B"])
417 ("vW'" ["
\e$(3"0%r
\e(B"])
429 ("VWe" ["
\e$(3"0%n
\e(B"])
430 ("VWu" ["
\e$(3"0%r
\e(B"])
431 ("VWi" ["
\e$(3"0%o
\e(B"])
432 ("VWE" ["
\e$(3"0%q
\e(B"])
433 ("VWee" ["
\e$(3"0%q
\e(B"])
434 ("VW'" ["
\e$(3"0%r
\e(B"])
446 ("tWe" ["
\e$(3"8%n
\e(B"])
447 ("tWu" ["
\e$(3"8%r
\e(B"])
448 ("tWi" ["
\e$(3"8%o
\e(B"])
449 ("tWE" ["
\e$(3"8%q
\e(B"])
450 ("tWee" ["
\e$(3"8%q
\e(B"])
451 ("tW'" ["
\e$(3"8%r
\e(B"])
463 ("cWe" ["
\e$(3"@%n
\e(B"])
464 ("cWu" ["
\e$(3"@%r
\e(B"])
465 ("cWi" ["
\e$(3"@%o
\e(B"])
466 ("cWE" ["
\e$(3"@%q
\e(B"])
467 ("cWee" ["
\e$(3"@%q
\e(B"])
468 ("cW'" ["
\e$(3"@%r
\e(B"])
475 ("`hee" ?
\e$(3"G
\e(B)
478 ("`hWe" ?
\e$(3"K
\e(B)
479 ("`hWu" ?
\e$(3"P
\e(B)
480 ("`hWi" ?
\e$(3"M
\e(B)
482 ("`hWa" ?
\e$(3"N
\e(B)
483 ("`hWE" ?
\e$(3"O
\e(B)
484 ("`hWee" ?
\e$(3"O
\e(B)
485 ("`hW'" ?
\e$(3"P
\e(B)
492 ("h2ee" ?
\e$(3"G
\e(B)
495 ("h2We" ?
\e$(3"K
\e(B)
496 ("h2Wu" ?
\e$(3"P
\e(B)
497 ("h2Wi" ?
\e$(3"M
\e(B)
499 ("h2Wa" ?
\e$(3"N
\e(B)
500 ("h2WE" ?
\e$(3"O
\e(B)
501 ("h2Wee" ?
\e$(3"O
\e(B)
502 ("h2W'" ?
\e$(3"P
\e(B)
509 ("hhee" ?
\e$(3"G
\e(B)
512 ("hhWe" ?
\e$(3"K
\e(B)
513 ("hhWu" ?
\e$(3"P
\e(B)
514 ("hhWi" ?
\e$(3"M
\e(B)
516 ("hhWa" ?
\e$(3"N
\e(B)
517 ("hhWE" ?
\e$(3"O
\e(B)
518 ("hhWee" ?
\e$(3"O
\e(B)
519 ("hhW'" ?
\e$(3"P
\e(B)
531 ("nWe" ["
\e$(3"X%n
\e(B"])
532 ("nWu" ["
\e$(3"X%r
\e(B"])
533 ("nWi" ["
\e$(3"X%o
\e(B"])
534 ("nWE" ["
\e$(3"X%q
\e(B"])
535 ("nWee" ["
\e$(3"X%q
\e(B"])
536 ("nW'" ["
\e$(3"X%r
\e(B"])
548 ("NWe" ["
\e$(3"`%n
\e(B"])
549 ("NWu" ["
\e$(3"`%r
\e(B"])
550 ("NWi" ["
\e$(3"`%o
\e(B"])
551 ("NWE" ["
\e$(3"`%q
\e(B"])
552 ("NWee" ["
\e$(3"`%q
\e(B"])
553 ("NW'" ["
\e$(3"`%r
\e(B"])
555 ; ("e" ?
\e$(3"c
\e(B) ; old style
562 ; ("ee" ?
\e$(3"g
\e(B) ; Alef-E is rare vs Aynu-I, so ee = Aynu-I
564 ("e" ?
\e$(3"h
\e(B) ; This is the premise to "new style" for vowels
584 ("kWee" ?
\e$(3"w
\e(B)
592 ("`kee" ?
\e$(3%=
\e(B)
601 ("k2ee" ?
\e$(3%=
\e(B)
610 ("kkee" ?
\e$(3%=
\e(B)
628 ("KWee" ?
\e$(3#)
\e(B)
673 ; ("ee" ?
\e$(3#5
\e(B) ; old style
674 ("ae" ?
\e$(3#5
\e(B) ; new style
675 ("aaa" ?
\e$(3#5
\e(B) ; new style
683 ("ee" ?
\e$(3#:
\e(B) ; new style
697 ("zWe" ["
\e$(3#B%n
\e(B"])
698 ("zWu" ["
\e$(3#B%r
\e(B"])
699 ("zWi" ["
\e$(3#B%o
\e(B"])
700 ("zWE" ["
\e$(3#B%q
\e(B"])
701 ("zWee" ["
\e$(3#B%q
\e(B"])
702 ("zW'" ["
\e$(3#B%r
\e(B"])
714 ("ZWe" ["
\e$(3#J%n
\e(B"])
715 ("ZWu" ["
\e$(3#J%r
\e(B"])
716 ("ZWi" ["
\e$(3#J%o
\e(B"])
717 ("ZWE" ["
\e$(3#J%q
\e(B"])
718 ("ZWee" ["
\e$(3#J%q
\e(B"])
719 ("ZW'" ["
\e$(3#J%r
\e(B"])
731 ("yWe" ["
\e$(3#R%n
\e(B"])
732 ("yWu" ["
\e$(3#R%r
\e(B"])
733 ("yWi" ["
\e$(3#R%o
\e(B"])
734 ("yWE" ["
\e$(3#R%q
\e(B"])
735 ("yWee" ["
\e$(3#R%q
\e(B"])
736 ("yW'" ["
\e$(3#R%r
\e(B"])
748 ("YWe" ["
\e$(3#R%n
\e(B"])
749 ("YWu" ["
\e$(3#R%r
\e(B"])
750 ("YWi" ["
\e$(3#R%o
\e(B"])
751 ("YWE" ["
\e$(3#R%q
\e(B"])
752 ("YWee" ["
\e$(3#R%q
\e(B"])
753 ("YW'" ["
\e$(3#R%r
\e(B"])
765 ("dWe" ["
\e$(3#Z%n
\e(B"])
766 ("dWu" ["
\e$(3#Z%r
\e(B"])
767 ("dWi" ["
\e$(3#Z%o
\e(B"])
768 ("dWE" ["
\e$(3#Z%q
\e(B"])
769 ("dWee" ["
\e$(3#Z%q
\e(B"])
770 ("dW'" ["
\e$(3#Z%r
\e(B"])
782 ("DWe" ["
\e$(3#b%n
\e(B"])
783 ("DWu" ["
\e$(3#b%r
\e(B"])
784 ("DWi" ["
\e$(3#b%o
\e(B"])
785 ("DWE" ["
\e$(3#b%q
\e(B"])
786 ("DWee" ["
\e$(3#b%q
\e(B"])
787 ("DW'" ["
\e$(3#b%r
\e(B"])
799 ("jWe" ["
\e$(3#j%n
\e(B"])
800 ("jWu" ["
\e$(3#j%r
\e(B"])
801 ("jWi" ["
\e$(3#j%o
\e(B"])
802 ("jWE" ["
\e$(3#j%q
\e(B"])
803 ("jWee" ["
\e$(3#j%q
\e(B"])
804 ("jW'" ["
\e$(3#j%r
\e(B"])
816 ("JWe" ["
\e$(3#j%n
\e(B"])
817 ("JWu" ["
\e$(3#j%r
\e(B"])
818 ("JWi" ["
\e$(3#j%o
\e(B"])
819 ("JWE" ["
\e$(3#j%q
\e(B"])
820 ("JWee" ["
\e$(3#j%q
\e(B"])
821 ("JW'" ["
\e$(3#j%r
\e(B"])
837 ("gWee" ?
\e$(3#y
\e(B)
845 ("`gee" ?
\e$(3%]
\e(B)
854 ("g2ee" ?
\e$(3%]
\e(B)
863 ("ggee" ?
\e$(3%]
\e(B)
881 ("GWee" ?
\e$(3%S
\e(B)
894 ("TWe" ["
\e$(3$,%n
\e(B"])
895 ("TWu" ["
\e$(3$,%r
\e(B"])
896 ("TWi" ["
\e$(3$,%o
\e(B"])
897 ("TWE" ["
\e$(3$,%q
\e(B"])
898 ("TWee" ["
\e$(3$,%q
\e(B"])
899 ("TW'" ["
\e$(3$,%r
\e(B"])
911 ("CWe" ["
\e$(3$4%n
\e(B"])
912 ("CWu" ["
\e$(3$4%r
\e(B"])
913 ("CWi" ["
\e$(3$4%o
\e(B"])
914 ("CWE" ["
\e$(3$4%q
\e(B"])
915 ("CWee" ["
\e$(3$4%q
\e(B"])
916 ("CW'" ["
\e$(3$4%r
\e(B"])
928 ("PWe" ["
\e$(3$<%n
\e(B"])
929 ("PWu" ["
\e$(3$<%r
\e(B"])
930 ("PWi" ["
\e$(3$<%o
\e(B"])
931 ("PWE" ["
\e$(3$<%q
\e(B"])
932 ("PWee" ["
\e$(3$<%q
\e(B"])
933 ("PW'" ["
\e$(3$<%r
\e(B"])
945 ("SWe" ["
\e$(3$D%n
\e(B"])
946 ("SWu" ["
\e$(3$D%r
\e(B"])
947 ("SWi" ["
\e$(3$D%o
\e(B"])
948 ("SWE" ["
\e$(3$D%q
\e(B"])
949 ("SWee" ["
\e$(3$D%q
\e(B"])
950 ("SW'" ["
\e$(3$D%r
\e(B"])
957 ("`See" ?
\e$(3$K
\e(B)
961 ("`SWa" ?
\e$(3$F
\e(B)
962 ("`SWe" ["
\e$(3$L%n
\e(B"])
963 ("`SWu" ["
\e$(3$L%r
\e(B"])
964 ("`SWi" ["
\e$(3$L%o
\e(B"])
965 ("`SWE" ["
\e$(3$L%q
\e(B"])
966 ("`SWee" ["
\e$(3$L%q
\e(B"])
967 ("`SW'" ["
\e$(3$L%r
\e(B"])
974 ("S2ee" ?
\e$(3$K
\e(B)
978 ("S2Wa" ?
\e$(3$F
\e(B)
979 ("S2We" ["
\e$(3$L%n
\e(B"])
980 ("S2Wu" ["
\e$(3$L%r
\e(B"])
981 ("S2Wi" ["
\e$(3$L%o
\e(B"])
982 ("S2WE" ["
\e$(3$L%q
\e(B"])
983 ("S2Wee" ["
\e$(3$L%q
\e(B"])
984 ("S2W'" ["
\e$(3$L%r
\e(B"])
991 ("SSee" ?
\e$(3$K
\e(B)
995 ("SSWa" ?
\e$(3$F
\e(B)
996 ("SSWe" ["
\e$(3$L%n
\e(B"])
997 ("SSWu" ["
\e$(3$L%r
\e(B"])
998 ("SSWi" ["
\e$(3$L%o
\e(B"])
999 ("SSWE" ["
\e$(3$L%q
\e(B"])
1000 ("SSWee" ["
\e$(3$L%q
\e(B"])
1001 ("SW'" ["
\e$(3$L%r
\e(B"])
1008 ("fee" ?
\e$(3$S
\e(B)
1011 ("fWe" ?
\e$(3%4
\e(B)
1012 ("fWu" ?
\e$(3%d
\e(B)
1013 ("fWi" ?
\e$(3%D
\e(B)
1015 ("fWa" ?
\e$(3$V
\e(B)
1016 ("fWE" ?
\e$(3%T
\e(B)
1017 ("fWee" ?
\e$(3%T
\e(B)
1018 ("fW'" ?
\e$(3%d
\e(B)
1020 ("fYa" ?
\e$(3$a
\e(B)
1027 ("Fee" ?
\e$(3$S
\e(B)
1030 ("FWe" ?
\e$(3%4
\e(B)
1031 ("FWu" ?
\e$(3%d
\e(B)
1032 ("FWi" ?
\e$(3%D
\e(B)
1034 ("FWa" ?
\e$(3$V
\e(B)
1035 ("FWE" ?
\e$(3%T
\e(B)
1036 ("FWee" ?
\e$(3%T
\e(B)
1037 ("FW'" ?
\e$(3%d
\e(B)
1039 ("FYa" ?
\e$(3$a
\e(B)
1046 ("pee" ?
\e$(3$[
\e(B)
1049 ("pWe" ?
\e$(3%5
\e(B)
1050 ("pWu" ?
\e$(3%e
\e(B)
1051 ("pWi" ?
\e$(3%E
\e(B)
1053 ("pWa" ?
\e$(3$^
\e(B)
1054 ("pWE" ?
\e$(3%U
\e(B)
1055 ("pWee" ?
\e$(3%U
\e(B)
1056 ("pW'" ?
\e$(3%e
\e(B)
1074 (":|:" ?
\e$(3$o
\e(B)
1082 ("wWe" ?
\e$(3%n
\e(B)
1083 ("wWu" ?
\e$(3%r
\e(B)
1084 ("wWi" ?
\e$(3%o
\e(B)
1086 ("wWa" ?
\e$(3%p
\e(B)
1087 ("wWE" ?
\e$(3%q
\e(B)
1088 ("wWee" ?
\e$(3%q
\e(B)
1089 ("wW'" ?
\e$(3%r
\e(B)
1096 ("Wee" ?
\e$(3%q
\e(B)
1107 ("`10" ?
\e$(3$y
\e(B)
1108 ("`20" ?
\e$(3$z
\e(B)
1109 ("`30" ?
\e$(3${
\e(B)
1110 ("`40" ?
\e$(3$|
\e(B)
1111 ("`50" ?
\e$(3$}
\e(B)
1112 ("`60" ?
\e$(3$~
\e(B)
1113 ("`70" ?
\e$(3%!
\e(B)
1114 ("`80" ?
\e$(3%"
\e(B)
1115 ("`90" ?
\e$(3%#
\e(B)
1116 ("`100" ?
\e$(3%$
\e(B)
1117 ("`1000" ["
\e$(3$y%$
\e(B"])
1118 ("`2000" ["
\e$(3$z%$
\e(B"])
1119 ("`3000" ["
\e$(3${%$
\e(B"])
1120 ("`4000" ["
\e$(3$|%$
\e(B"])
1121 ("`5000" ["
\e$(3$}%$
\e(B"])
1122 ("`6000" ["
\e$(3$~%$
\e(B"])
1123 ("`7000" ["
\e$(3%!%$
\e(B"])
1124 ("`8000" ["
\e$(3%"%$
\e(B"])
1125 ("`9000" ["
\e$(3%#%$
\e(B"])
1126 ("`10000" ?
\e$(3%%
\e(B)
1127 ("`20000" ["
\e$(3$q%%
\e(B"])
1128 ("`30000" ["
\e$(3$r%%
\e(B"])
1129 ("`40000" ["
\e$(3$s%%
\e(B"])
1130 ("`50000" ["
\e$(3$t%%
\e(B"])
1131 ("`60000" ["
\e$(3$u%%
\e(B"])
1132 ("`70000" ["
\e$(3$v%%
\e(B"])
1133 ("`80000" ["
\e$(3$w%%
\e(B"])
1134 ("`90000" ["
\e$(3$x%%
\e(B"])
1135 ("`100000" ["
\e$(3$y%%
\e(B"])
1136 ("`200000" ["
\e$(3$z%%
\e(B"])
1137 ("`300000" ["
\e$(3${%%
\e(B"])
1138 ("`400000" ["
\e$(3$|%%
\e(B"])
1139 ("`500000" ["
\e$(3$}%%
\e(B"])
1140 ("`600000" ["
\e$(3$~%%
\e(B"])
1141 ("`700000" ["
\e$(3%!%%
\e(B"])
1142 ("`800000" ["
\e$(3%"%%
\e(B"])
1143 ("`900000" ["
\e$(3%#%%
\e(B"])
1144 ("`1000000" ["
\e$(3%$%%
\e(B"])
1147 (defun ethio-select-a-translation ()
1148 ;; The translation of `a' depends on the language
1149 ;; (either Tigrigna or Amharic).
1151 (if (ethio-prefer-amharic-p) ?
\e$(3"c
\e(B ?
\e$(3"f
\e(B)
1154 ;;; arch-tag: 66c182a8-d802-40fa-9c0d-d8ebe2f909d5
1155 ;;; ethiopic.el ends here