1 ;; quail/ethiopic.el --- Quail package for inputting Ethiopic characters
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, input method, ethiopic
8 ;; This file is part of GNU Emacs.
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)
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.
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.
25 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
33 ;; The package "ethiopic"
39 (ethio-prefer-ascii-space "_" "
\e$(3$h
\e(B")
40 (ethio-prefer-ascii-punctuation "." "
\e$(3$i
\e(B"))
41 t " QUAIL PACKAGE FOR ETHIOPIC (TIGRIGNA AND AMHARIC)
43 When you activate this package, Ethio minor mode is also turned on.
47 F2 or `M-x ethio-toggle-space'
48 Toggles space characters for keyboard input. The current mode is
49 indicated in mode-line, whether by `_' (ASCII space) or `
\e$(3$h
\e(B'
50 (Ethiopic colon-like word separator). Even in the `
\e$(3$h
\e(B' mode, an
51 ASCII space is inserted if the point is preceded by `an Ethiopic
52 punctuation followed by zero or more ASCII spaces'.
54 F3 or `M-x ethio-toggle-punctuation'
55 Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
56 The current mode is indicated by `.' (ASCII) or `
\e$(3$i
\e(B' (Ethiopic).
58 S-SPC or `M-x ethio-insert-ethio-space'
59 Always insert an Ethiopic word separator `
\e$(3$h
\e(B'. With a prefix number,
60 insert that many word separators.
62 C-' or `M-x ethio-gemination'
63 Compose the character before the point with the Ethiopic gemination mark.
64 If the characater is already composed, decompose it and remove the
67 ;; The following keys should work as defined in lisp/language/ethio-util,
68 ;; even during the translation.
69 '(([f2] . quail-execute-non-quail-command)
70 ([f3] . quail-execute-non-quail-command)
71 (" " . quail-execute-non-quail-command)
72 ([?\S- ] . quail-execute-non-quail-command)
73 ([?\C-'] . quail-execute-non-quail-command))
101 ("lWe" ["
\e$(3!.%n
\e(B"])
102 ("lWu" ["
\e$(3!.%r
\e(B"])
103 ("lWi" ["
\e$(3!.%o
\e(B"])
104 ("lWE" ["
\e$(3!.%q
\e(B"])
105 ("lW'" ["
\e$(3!.%r
\e(B"])
116 ("LWe" ["
\e$(3!.%n
\e(B"])
117 ("LWu" ["
\e$(3!.%r
\e(B"])
118 ("LWi" ["
\e$(3!.%o
\e(B"])
119 ("LWE" ["
\e$(3!.%q
\e(B"])
120 ("LW'" ["
\e$(3!.%r
\e(B"])
131 ("HWe" ["
\e$(3!6%n
\e(B"])
132 ("HWu" ["
\e$(3!6%r
\e(B"])
133 ("HWi" ["
\e$(3!6%o
\e(B"])
134 ("HWE" ["
\e$(3!6%q
\e(B"])
135 ("HW'" ["
\e$(3!6%r
\e(B"])
179 ("`sWa" ?
\e$(3!H
\e(B)
180 ("`sWe" ["
\e$(3!F%n
\e(B"])
181 ("`sWu" ["
\e$(3!F%r
\e(B"])
182 ("`sWi" ["
\e$(3!F%o
\e(B"])
183 ("`sWE" ["
\e$(3!F%q
\e(B"])
184 ("`sW'" ["
\e$(3!F%r
\e(B"])
194 ("s2Wa" ?
\e$(3!H
\e(B)
195 ("s2We" ["
\e$(3!F%n
\e(B"])
196 ("s2Wu" ["
\e$(3!F%r
\e(B"])
197 ("s2Wi" ["
\e$(3!F%o
\e(B"])
198 ("s2WE" ["
\e$(3!F%q
\e(B"])
199 ("s2W'" ["
\e$(3!F%r
\e(B"])
209 ("ssWa" ?
\e$(3!H
\e(B)
210 ("ssWe" ["
\e$(3!F%n
\e(B"])
211 ("ssWu" ["
\e$(3!F%r
\e(B"])
212 ("ssWi" ["
\e$(3!F%o
\e(B"])
213 ("ssWE" ["
\e$(3!F%q
\e(B"])
214 ("ssW'" ["
\e$(3!F%r
\e(B"])
227 ("rWe" ["
\e$(3!N%n
\e(B"])
228 ("rWu" ["
\e$(3!N%r
\e(B"])
229 ("rWi" ["
\e$(3!N%o
\e(B"])
230 ("rWE" ["
\e$(3!N%q
\e(B"])
231 ("rW'" ["
\e$(3!N%r
\e(B"])
243 ("RWe" ["
\e$(3!N%n
\e(B"])
244 ("RWu" ["
\e$(3!N%r
\e(B"])
245 ("RWi" ["
\e$(3!N%o
\e(B"])
246 ("RWE" ["
\e$(3!N%q
\e(B"])
247 ("RW'" ["
\e$(3!N%r
\e(B"])
258 ("sWe" ["
\e$(3!V%n
\e(B"])
259 ("sWu" ["
\e$(3!V%r
\e(B"])
260 ("sWi" ["
\e$(3!V%o
\e(B"])
261 ("sWE" ["
\e$(3!V%q
\e(B"])
262 ("sW'" ["
\e$(3!V%r
\e(B"])
273 ("xWe" ["
\e$(3!^%n
\e(B"])
274 ("xWu" ["
\e$(3!^%r
\e(B"])
275 ("xWi" ["
\e$(3!^%o
\e(B"])
276 ("xWE" ["
\e$(3!^%q
\e(B"])
277 ("xW'" ["
\e$(3!^%r
\e(B"])
372 ("vWe" ["
\e$(3"0%n
\e(B"])
373 ("vWu" ["
\e$(3"0%r
\e(B"])
374 ("vWi" ["
\e$(3"0%o
\e(B"])
375 ("vWE" ["
\e$(3"0%q
\e(B"])
376 ("vW'" ["
\e$(3"0%r
\e(B"])
387 ("VWe" ["
\e$(3"0%n
\e(B"])
388 ("VWu" ["
\e$(3"0%r
\e(B"])
389 ("VWi" ["
\e$(3"0%o
\e(B"])
390 ("VWE" ["
\e$(3"0%q
\e(B"])
391 ("VW'" ["
\e$(3"0%r
\e(B"])
402 ("tWe" ["
\e$(3"8%n
\e(B"])
403 ("tWu" ["
\e$(3"8%r
\e(B"])
404 ("tWi" ["
\e$(3"8%o
\e(B"])
405 ("tWE" ["
\e$(3"8%q
\e(B"])
406 ("tW'" ["
\e$(3"8%r
\e(B"])
417 ("cWe" ["
\e$(3"@%n
\e(B"])
418 ("cWu" ["
\e$(3"@%r
\e(B"])
419 ("cWi" ["
\e$(3"@%o
\e(B"])
420 ("cWE" ["
\e$(3"@%q
\e(B"])
421 ("cW'" ["
\e$(3"@%r
\e(B"])
430 ("`hWe" ?
\e$(3"K
\e(B)
431 ("`hWu" ?
\e$(3"P
\e(B)
432 ("`hWi" ?
\e$(3"M
\e(B)
434 ("`hWa" ?
\e$(3"N
\e(B)
435 ("`hWE" ?
\e$(3"O
\e(B)
436 ("`hW'" ?
\e$(3"P
\e(B)
445 ("h2We" ?
\e$(3"K
\e(B)
446 ("h2Wu" ?
\e$(3"P
\e(B)
447 ("h2Wi" ?
\e$(3"M
\e(B)
449 ("h2Wa" ?
\e$(3"N
\e(B)
450 ("h2WE" ?
\e$(3"O
\e(B)
451 ("h2W'" ?
\e$(3"P
\e(B)
460 ("hhWe" ?
\e$(3"K
\e(B)
461 ("hhWu" ?
\e$(3"P
\e(B)
462 ("hhWi" ?
\e$(3"M
\e(B)
464 ("hhWa" ?
\e$(3"N
\e(B)
465 ("hhWE" ?
\e$(3"O
\e(B)
466 ("hhW'" ?
\e$(3"P
\e(B)
477 ("nWe" ["
\e$(3"X%n
\e(B"])
478 ("nWu" ["
\e$(3"X%r
\e(B"])
479 ("nWi" ["
\e$(3"X%o
\e(B"])
480 ("nWE" ["
\e$(3"X%q
\e(B"])
481 ("nW'" ["
\e$(3"X%r
\e(B"])
492 ("NWe" ["
\e$(3"`%n
\e(B"])
493 ("NWu" ["
\e$(3"`%r
\e(B"])
494 ("NWi" ["
\e$(3"`%o
\e(B"])
495 ("NWE" ["
\e$(3"`%q
\e(B"])
496 ("NW'" ["
\e$(3"`%r
\e(B"])
623 ("zWe" ["
\e$(3#B%n
\e(B"])
624 ("zWu" ["
\e$(3#B%r
\e(B"])
625 ("zWi" ["
\e$(3#B%o
\e(B"])
626 ("zWE" ["
\e$(3#B%q
\e(B"])
627 ("zW'" ["
\e$(3#B%r
\e(B"])
638 ("ZWe" ["
\e$(3#J%n
\e(B"])
639 ("ZWu" ["
\e$(3#J%r
\e(B"])
640 ("ZWi" ["
\e$(3#J%o
\e(B"])
641 ("ZWE" ["
\e$(3#J%q
\e(B"])
642 ("ZW'" ["
\e$(3#J%r
\e(B"])
653 ("yWe" ["
\e$(3#R%n
\e(B"])
654 ("yWu" ["
\e$(3#R%r
\e(B"])
655 ("yWi" ["
\e$(3#R%o
\e(B"])
656 ("yWE" ["
\e$(3#R%q
\e(B"])
657 ("yW'" ["
\e$(3#R%r
\e(B"])
668 ("YWe" ["
\e$(3#R%n
\e(B"])
669 ("YWu" ["
\e$(3#R%r
\e(B"])
670 ("YWi" ["
\e$(3#R%o
\e(B"])
671 ("YWE" ["
\e$(3#R%q
\e(B"])
672 ("YW'" ["
\e$(3#R%r
\e(B"])
683 ("dWe" ["
\e$(3#Z%n
\e(B"])
684 ("dWu" ["
\e$(3#Z%r
\e(B"])
685 ("dWi" ["
\e$(3#Z%o
\e(B"])
686 ("dWE" ["
\e$(3#Z%q
\e(B"])
687 ("dW'" ["
\e$(3#Z%r
\e(B"])
698 ("DWe" ["
\e$(3#b%n
\e(B"])
699 ("DWu" ["
\e$(3#b%r
\e(B"])
700 ("DWi" ["
\e$(3#b%o
\e(B"])
701 ("DWE" ["
\e$(3#b%q
\e(B"])
702 ("DW'" ["
\e$(3#b%r
\e(B"])
713 ("jWe" ["
\e$(3#j%n
\e(B"])
714 ("jWu" ["
\e$(3#j%r
\e(B"])
715 ("jWi" ["
\e$(3#j%o
\e(B"])
716 ("jWE" ["
\e$(3#j%q
\e(B"])
717 ("jW'" ["
\e$(3#j%r
\e(B"])
728 ("JWe" ["
\e$(3#j%n
\e(B"])
729 ("JWu" ["
\e$(3#j%r
\e(B"])
730 ("JWi" ["
\e$(3#j%o
\e(B"])
731 ("JWE" ["
\e$(3#j%q
\e(B"])
732 ("JW'" ["
\e$(3#j%r
\e(B"])
797 ("tWe" ["
\e$(3$,%n
\e(B"])
798 ("tWu" ["
\e$(3$,%r
\e(B"])
799 ("tWi" ["
\e$(3$,%o
\e(B"])
800 ("tWE" ["
\e$(3$,%q
\e(B"])
801 ("tW'" ["
\e$(3$,%r
\e(B"])
812 ("CWe" ["
\e$(3$4%n
\e(B"])
813 ("CWu" ["
\e$(3$4%r
\e(B"])
814 ("CWi" ["
\e$(3$4%o
\e(B"])
815 ("CWE" ["
\e$(3$4%q
\e(B"])
816 ("CW'" ["
\e$(3$4%r
\e(B"])
827 ("PWe" ["
\e$(3$<%n
\e(B"])
828 ("PWu" ["
\e$(3$<%r
\e(B"])
829 ("PWi" ["
\e$(3$<%o
\e(B"])
830 ("PWE" ["
\e$(3$<%q
\e(B"])
831 ("PW'" ["
\e$(3$<%r
\e(B"])
842 ("SWe" ["
\e$(3$D%n
\e(B"])
843 ("SWu" ["
\e$(3$D%r
\e(B"])
844 ("SWi" ["
\e$(3$D%o
\e(B"])
845 ("SWE" ["
\e$(3$D%q
\e(B"])
846 ("SW'" ["
\e$(3$D%r
\e(B"])
856 ("`SWa" ?
\e$(3$F
\e(B)
857 ("`SWe" ["
\e$(3$L%n
\e(B"])
858 ("`SWu" ["
\e$(3$L%r
\e(B"])
859 ("`SWi" ["
\e$(3$L%o
\e(B"])
860 ("`SWE" ["
\e$(3$L%q
\e(B"])
861 ("`SW'" ["
\e$(3$L%r
\e(B"])
871 ("S2Wa" ?
\e$(3$F
\e(B)
872 ("S2We" ["
\e$(3$L%n
\e(B"])
873 ("S2Wu" ["
\e$(3$L%r
\e(B"])
874 ("S2Wi" ["
\e$(3$L%o
\e(B"])
875 ("S2WE" ["
\e$(3$L%q
\e(B"])
876 ("S2W'" ["
\e$(3$L%r
\e(B"])
886 ("SSWa" ?
\e$(3$F
\e(B)
887 ("SSWe" ["
\e$(3$L%n
\e(B"])
888 ("SSWu" ["
\e$(3$L%r
\e(B"])
889 ("SSWi" ["
\e$(3$L%o
\e(B"])
890 ("SSWE" ["
\e$(3$L%q
\e(B"])
891 ("SW'" ["
\e$(3$L%r
\e(B"])
998 ("`100" ?
\e$(3%$
\e(B)
999 ("`1000" ["
\e$(3$y%$
\e(B"])
1000 ("`2000" ["
\e$(3$z%$
\e(B"])
1001 ("`3000" ["
\e$(3${%$
\e(B"])
1002 ("`4000" ["
\e$(3$|%$
\e(B"])
1003 ("`5000" ["
\e$(3$}%$
\e(B"])
1004 ("`6000" ["
\e$(3$~%$
\e(B"])
1005 ("`7000" ["
\e$(3%!%$
\e(B"])
1006 ("`8000" ["
\e$(3%"%$
\e(B"])
1007 ("`9000" ["
\e$(3%#%$
\e(B"])
1008 ("`10000" ?
\e$(3%%
\e(B)
1009 ("`20000" ["
\e$(3$q%%
\e(B"])
1010 ("`30000" ["
\e$(3$r%%
\e(B"])
1011 ("`40000" ["
\e$(3$s%%
\e(B"])
1012 ("`50000" ["
\e$(3$t%%
\e(B"])
1013 ("`60000" ["
\e$(3$u%%
\e(B"])
1014 ("`70000" ["
\e$(3$v%%
\e(B"])
1015 ("`80000" ["
\e$(3$w%%
\e(B"])
1016 ("`90000" ["
\e$(3$x%%
\e(B"])
1017 ("`100000" ["
\e$(3$y%%
\e(B"])
1018 ("`200000" ["
\e$(3$z%%
\e(B"])
1019 ("`300000" ["
\e$(3${%%
\e(B"])
1020 ("`400000" ["
\e$(3$|%%
\e(B"])
1021 ("`500000" ["
\e$(3$}%%
\e(B"])
1022 ("`600000" ["
\e$(3$~%%
\e(B"])
1023 ("`700000" ["
\e$(3%!%%
\e(B"])
1024 ("`800000" ["
\e$(3%"%%
\e(B"])
1025 ("`900000" ["
\e$(3%#%%
\e(B"])
1026 ("`1000000" ["
\e$(3%$%%
\e(B"])
1029 (add-hook 'quail-mode-hook
1031 (if (not (string= (quail-name) "ethiopic"))
1033 ;; Also turn on the Ethio minor mode.
1035 ;; The translation of `a' depends on the language
1036 ;; (either Tigrigna or Amharic).
1038 (if (ethio-prefer-amharic-p) ?
\e$(3"c
\e(B ?
\e$(3"f
\e(B)
1041 ;;; quail/ethiopic.el ends here