Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/ethiopic.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents
children acd284d43ca1
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;; quail/ethiopic.el --- Quail package for inputting Ethiopic characters
2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
5
6 ;; Keywords: multilingual, input method, ethiopic
7
8 ;; This file is part of GNU Emacs.
9
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)
13 ;; any later version.
14
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.
19
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
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
25
26 ;;; Code:
27
28 (require 'quail)
29 (require 'language/ethio-util)
30
31 ;;
32 ;; Ethiopic word separator vs. ASCII space
33 ;;
34
35 (defvar ethio-prefer-ascii-space t)
36 (make-variable-buffer-local 'ethio-prefer-ascii-space)
37
38 (defun ethio-toggle-space nil
39 "Toggle ASCII space and Ethiopic separator for keyboard input."
40 (interactive)
41 (setq ethio-prefer-ascii-space
42 (not ethio-prefer-ascii-space))
43 (force-mode-line-update))
44
45 (defun ethio-insert-space (arg)
46 "Insert ASCII spaces or Ethiopic word separators depending on context.
47
48 If the current word separator (indicated in mode-line) is the ASCII space,
49 insert an ASCII space. With ARG, insert that many ASCII spaces.
50
51 If the current word separator is the colon-like Ethiopic word
52 separator and the point is preceded by `an Ethiopic punctuation mark
53 followed by zero or more ASCII spaces', then insert also an ASCII
54 space. With ARG, insert that many ASCII spaces.
55
56 Otherwise, insert a colon-like Ethiopic word separator. With ARG, insert that
57 many Ethiopic word separators."
58
59 (interactive "*p")
60 (cond
61 (ethio-prefer-ascii-space
62 (insert-char 32 arg))
63 ((save-excursion
64 (skip-chars-backward " ")
65 (memq (preceding-char)
66 '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B)))
67 (insert-char 32 arg))
68 (t
69 (insert-char ?$(3$h(B arg))))
70
71 (defun ethio-insert-ethio-space (arg)
72 "Insert the Ethiopic word delimiter (the colon-like character).
73 With ARG, insert that many delimiters."
74 (interactive "*p")
75 (insert-char ?$(3$h(B arg))
76
77 ;;
78 ;; Ethiopic punctuation vs. ASCII punctuation
79 ;;
80
81 (defvar ethio-prefer-ascii-punctuation nil)
82 (make-variable-buffer-local 'ethio-prefer-ascii-punctuation)
83
84 (defun ethio-toggle-punctuation nil
85 "Toggle Ethiopic punctuations and ASCII punctuations for keyboard input."
86 (interactive)
87 (setq ethio-prefer-ascii-punctuation
88 (not ethio-prefer-ascii-punctuation))
89 (let* ((keys '("." ".." "..." "," ",," ";" ";;" ":" "::" ":::" "*" "**"))
90 (puncs
91 (if ethio-prefer-ascii-punctuation
92 '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
93 '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(B))))
94 (while keys
95 (quail-defrule (car keys) (car puncs) "quail-ethio")
96 (setq keys (cdr keys)
97 puncs (cdr puncs)))
98 (force-mode-line-update)))
99
100 ;;
101 ;; Gemination
102 ;;
103
104 (defun ethio-gemination nil
105 "Compose the character before the point with the Ethiopic gemination mark.
106 If the characater is already composed, decompose it and remove the gemination
107 mark."
108 (interactive "*")
109 (cond
110 ((eq (char-charset (preceding-char)) 'ethiopic)
111 (insert "$(3%s(B")
112 (compose-region
113 (save-excursion (backward-char 2) (point))
114 (point))
115 (forward-char 1))
116 ((eq (char-charset (preceding-char)) 'leading-code-composition)
117 (decompose-region
118 (save-excursion (backward-char 1) (point))
119 (point))
120 (delete-backward-char 1))
121 (t
122 (error ""))))
123
124 ;;
125 ;; The package "quail-ethio"
126 ;;
127
128 (quail-define-package
129 "quail-ethio" "Ethiopic"
130 '("$(3$O#U!.(B "
131 (ethio-prefer-ascii-space "_" "$(3$h(B")
132 (ethio-prefer-ascii-punctuation "." "$(3$i(B"))
133 t " KEYS AND FUNCTIONS
134
135 [F2] or `M-x ethio-toggle-space'
136 Toggles space characters for keyboard input. The current mode is
137 indicated in mode-line, whether by `_' (ASCII space) or `$(3$h(B'
138 (Ethiopic colon-like word separator). Even in the `$(3$h(B' mode, an
139 ASCII space is inserted if the point is preceded by `an Ethiopic
140 punctuation followed by zero or more ASCII spaces'.
141
142 [F3] or `M-x ethio-toggle-punctuation'
143 Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
144 The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic).
145
146 C-^ or `M-x ethio-insert-ethio-space
147 Always insert an Ethiopic word separator `$(3$h(B'. With a prefix number,
148 insert that many word separators.
149
150 C-' or ethio-gemination
151 Compose the character before the point with the Ethiopic gemination mark.
152 If the characater is already composed, decompose it and remove the
153 gemination mark."
154
155 '(([f2] . ethio-toggle-space)
156 ([f3] . ethio-toggle-punctuation)
157 (" " . ethio-insert-space)
158 ([?\C-^] . ethio-insert-ethio-space)
159 ([?\C-'] . ethio-gemination))
160 t t)
161
162 ;; These keys should work even if translation region is not active.
163 (define-key quail-mode-map [f2] 'ethio-toggle-space)
164 (define-key quail-mode-map [f3] 'ethio-toggle-punctuation)
165 (define-key quail-mode-map " " 'ethio-insert-space)
166 (define-key quail-mode-map [?\C-^] 'ethio-insert-ethio-space)
167 (define-key quail-mode-map [?\C-'] 'ethio-gemination)
168
169 (quail-define-rules
170 ("he" ?$(3!!(B)
171 ("hu" ?$(3!"(B)
172 ("hi" ?$(3!#(B)
173 ("ha" ?$(3!$(B)
174 ("hE" ?$(3!%(B)
175 ("h" ?$(3!&(B)
176 ("ho" ?$(3!'(B)
177 ("hW" ?$(3"N(B)
178 ("hWa" ?$(3"N(B)
179 ("hWe" ?$(3"K(B)
180 ("hWu" ?$(3"P(B)
181 ("hWi" ?$(3"M(B)
182 ("hWE" ?$(3"O(B)
183 ("hW'" ?$(3"P(B)
184
185 ("le" ?$(3!)(B)
186 ("lu" ?$(3!*(B)
187 ("li" ?$(3!+(B)
188 ("la" ?$(3!,(B)
189 ("lE" ?$(3!-(B)
190 ("l" ?$(3!.(B)
191 ("lo" ?$(3!/(B)
192 ("lW" ?$(3!0(B)
193 ("lWa" ?$(3!0(B)
194 ("lWe" ["$(3!.%n(B"])
195 ("lWu" ["$(3!.%r(B"])
196 ("lWi" ["$(3!.%o(B"])
197 ("lWE" ["$(3!.%q(B"])
198 ("lW'" ["$(3!.%r(B"])
199
200 ("Le" ?$(3!)(B)
201 ("Lu" ?$(3!*(B)
202 ("Li" ?$(3!+(B)
203 ("La" ?$(3!,(B)
204 ("LE" ?$(3!-(B)
205 ("L" ?$(3!.(B)
206 ("Lo" ?$(3!/(B)
207 ("LW" ?$(3!0(B)
208 ("LWa" ?$(3!0(B)
209 ("LWe" ["$(3!.%n(B"])
210 ("LWu" ["$(3!.%r(B"])
211 ("LWi" ["$(3!.%o(B"])
212 ("LWE" ["$(3!.%q(B"])
213 ("LW'" ["$(3!.%r(B"])
214
215 ("He" ?$(3!1(B)
216 ("Hu" ?$(3!2(B)
217 ("Hi" ?$(3!3(B)
218 ("Ha" ?$(3!4(B)
219 ("HE" ?$(3!5(B)
220 ("H" ?$(3!6(B)
221 ("Ho" ?$(3!7(B)
222 ("HW" ?$(3!8(B)
223 ("HWa" ?$(3!8(B)
224 ("HWe" ["$(3!6%n(B"])
225 ("HWu" ["$(3!6%r(B"])
226 ("HWi" ["$(3!6%o(B"])
227 ("HWE" ["$(3!6%q(B"])
228 ("HW'" ["$(3!6%r(B"])
229
230 ("me" ?$(3!9(B)
231 ("mu" ?$(3!:(B)
232 ("mi" ?$(3!;(B)
233 ("ma" ?$(3!<(B)
234 ("mE" ?$(3!=(B)
235 ("m" ?$(3!>(B)
236 ("mo" ?$(3!?(B)
237 ("mWe" ?$(3%1(B)
238 ("mWu" ?$(3%a(B)
239 ("mWi" ?$(3%A(B)
240 ("mW" ?$(3!@(B)
241 ("mWa" ?$(3!@(B)
242 ("mWE" ?$(3%Q(B)
243 ("mW'" ?$(3%a(B)
244 ("mY" ?$(3$_(B)
245 ("mYa" ?$(3$_(B)
246
247 ("Me" ?$(3!9(B)
248 ("Mu" ?$(3!:(B)
249 ("Mi" ?$(3!;(B)
250 ("Ma" ?$(3!<(B)
251 ("ME" ?$(3!=(B)
252 ("M" ?$(3!>(B)
253 ("Mo" ?$(3!?(B)
254 ("MWe" ?$(3%1(B)
255 ("MWu" ?$(3%a(B)
256 ("MWi" ?$(3%A(B)
257 ("MW" ?$(3!@(B)
258 ("MWa" ?$(3!@(B)
259 ("MWE" ?$(3%Q(B)
260 ("MW'" ?$(3%a(B)
261 ("MY" ?$(3$_(B)
262 ("MYa" ?$(3$_(B)
263
264 ("`se" ?$(3!A(B)
265 ("`su" ?$(3!B(B)
266 ("`si" ?$(3!C(B)
267 ("`sa" ?$(3!D(B)
268 ("`sE" ?$(3!E(B)
269 ("`s" ?$(3!F(B)
270 ("`so" ?$(3!G(B)
271 ("`sW" ?$(3!H(B)
272 ("`sWa" ?$(3!H(B)
273 ("`sWe" ["$(3!F%n(B"])
274 ("`sWu" ["$(3!F%r(B"])
275 ("`sWi" ["$(3!F%o(B"])
276 ("`sWE" ["$(3!F%q(B"])
277 ("`sW'" ["$(3!F%r(B"])
278
279 ("s2e" ?$(3!A(B)
280 ("s2u" ?$(3!B(B)
281 ("s2i" ?$(3!C(B)
282 ("s2a" ?$(3!D(B)
283 ("s2E" ?$(3!E(B)
284 ("s2" ?$(3!F(B)
285 ("s2o" ?$(3!G(B)
286 ("s2W" ?$(3!H(B)
287 ("s2Wa" ?$(3!H(B)
288 ("s2We" ["$(3!F%n(B"])
289 ("s2Wu" ["$(3!F%r(B"])
290 ("s2Wi" ["$(3!F%o(B"])
291 ("s2WE" ["$(3!F%q(B"])
292 ("s2W'" ["$(3!F%r(B"])
293
294 ("sse" ?$(3!A(B)
295 ("ssu" ?$(3!B(B)
296 ("ssi" ?$(3!C(B)
297 ("ssa" ?$(3!D(B)
298 ("ssE" ?$(3!E(B)
299 ("ss" ?$(3!F(B)
300 ("sso" ?$(3!G(B)
301 ("ssW" ?$(3!H(B)
302 ("ssWa" ?$(3!H(B)
303 ("ssWe" ["$(3!F%n(B"])
304 ("ssWu" ["$(3!F%r(B"])
305 ("ssWi" ["$(3!F%o(B"])
306 ("ssWE" ["$(3!F%q(B"])
307 ("ssW'" ["$(3!F%r(B"])
308
309 ("re" ?$(3!I(B)
310 ("ru" ?$(3!J(B)
311 ("ri" ?$(3!K(B)
312 ("ra" ?$(3!L(B)
313 ("rE" ?$(3!M(B)
314 ("r" ?$(3!N(B)
315 ("ro" ?$(3!O(B)
316 ("rW" ?$(3!P(B)
317 ("rWa" ?$(3!P(B)
318 ("rY" ?$(3$`(B)
319 ("rYa" ?$(3$`(B)
320 ("rWe" ["$(3!N%n(B"])
321 ("rWu" ["$(3!N%r(B"])
322 ("rWi" ["$(3!N%o(B"])
323 ("rWE" ["$(3!N%q(B"])
324 ("rW'" ["$(3!N%r(B"])
325
326 ("Re" ?$(3!I(B)
327 ("Ru" ?$(3!J(B)
328 ("Ri" ?$(3!K(B)
329 ("Ra" ?$(3!L(B)
330 ("RE" ?$(3!M(B)
331 ("R" ?$(3!N(B)
332 ("Ro" ?$(3!O(B)
333 ("RW" ?$(3!P(B)
334 ("RWa" ?$(3!P(B)
335 ("RYa" ?$(3$`(B)
336 ("RWe" ["$(3!N%n(B"])
337 ("RWu" ["$(3!N%r(B"])
338 ("RWi" ["$(3!N%o(B"])
339 ("RWE" ["$(3!N%q(B"])
340 ("RW'" ["$(3!N%r(B"])
341
342 ("se" ?$(3!Q(B)
343 ("su" ?$(3!R(B)
344 ("si" ?$(3!S(B)
345 ("sa" ?$(3!T(B)
346 ("sE" ?$(3!U(B)
347 ("s" ?$(3!V(B)
348 ("so" ?$(3!W(B)
349 ("sW" ?$(3!X(B)
350 ("sWa" ?$(3!X(B)
351 ("sWe" ["$(3!V%n(B"])
352 ("sWu" ["$(3!V%r(B"])
353 ("sWi" ["$(3!V%o(B"])
354 ("sWE" ["$(3!V%q(B"])
355 ("sW'" ["$(3!V%r(B"])
356
357 ("xe" ?$(3!Y(B)
358 ("xu" ?$(3!Z(B)
359 ("xi" ?$(3![(B)
360 ("xa" ?$(3!\(B)
361 ("xE" ?$(3!](B)
362 ("x" ?$(3!^(B)
363 ("xo" ?$(3!_(B)
364 ("xW" ?$(3!`(B)
365 ("xWa" ?$(3!`(B)
366 ("xWe" ["$(3!^%n(B"])
367 ("xWu" ["$(3!^%r(B"])
368 ("xWi" ["$(3!^%o(B"])
369 ("xWE" ["$(3!^%q(B"])
370 ("xW'" ["$(3!^%r(B"])
371
372 ("qe" ?$(3!a(B)
373 ("qu" ?$(3!b(B)
374 ("qi" ?$(3!c(B)
375 ("qa" ?$(3!d(B)
376 ("qE" ?$(3!e(B)
377 ("q" ?$(3!f(B)
378 ("qo" ?$(3!g(B)
379 ("qWe" ?$(3!i(B)
380 ("qWu" ?$(3!n(B)
381 ("qWi" ?$(3!k(B)
382 ("qW" ?$(3!l(B)
383 ("qWa" ?$(3!l(B)
384 ("qWE" ?$(3!m(B)
385 ("qW'" ?$(3!n(B)
386
387 ("`qe" ?$(3%)(B)
388 ("`qu" ?$(3%*(B)
389 ("`qi" ?$(3%+(B)
390 ("`qa" ?$(3%,(B)
391 ("`qE" ?$(3%-(B)
392 ("`q" ?$(3%.(B)
393 ("`qo" ?$(3%/(B)
394
395 ("q2e" ?$(3%)(B)
396 ("q2u" ?$(3%*(B)
397 ("q2i" ?$(3%+(B)
398 ("q2a" ?$(3%,(B)
399 ("q2E" ?$(3%-(B)
400 ("q2" ?$(3%.(B)
401 ("q2o" ?$(3%/(B)
402
403 ("qqe" ?$(3%)(B)
404 ("qqu" ?$(3%*(B)
405 ("qqi" ?$(3%+(B)
406 ("qqa" ?$(3%,(B)
407 ("qqE" ?$(3%-(B)
408 ("qq" ?$(3%.(B)
409 ("qqo" ?$(3%/(B)
410
411 ("Qe" ?$(3!q(B)
412 ("Qu" ?$(3!r(B)
413 ("Qi" ?$(3!s(B)
414 ("Qa" ?$(3!t(B)
415 ("QE" ?$(3!u(B)
416 ("Q" ?$(3!v(B)
417 ("Qo" ?$(3!w(B)
418 ("QWe" ?$(3!y(B)
419 ("QWu" ?$(3!~(B)
420 ("QWi" ?$(3!{(B)
421 ("QW" ?$(3!|(B)
422 ("QWa" ?$(3!|(B)
423 ("QWE" ?$(3!}(B)
424 ("QW'" ?$(3!~(B)
425
426 ("be" ?$(3"#(B)
427 ("bu" ?$(3"$(B)
428 ("bi" ?$(3"%(B)
429 ("ba" ?$(3"&(B)
430 ("bE" ?$(3"'(B)
431 ("b" ?$(3"((B)
432 ("bo" ?$(3")(B)
433 ("bWe" ?$(3%2(B)
434 ("bWu" ?$(3%b(B)
435 ("bWi" ?$(3%B(B)
436 ("bW" ?$(3"*(B)
437 ("bWa" ?$(3"*(B)
438 ("bWE" ?$(3%R(B)
439 ("bW'" ?$(3%b(B)
440
441 ("Be" ?$(3"#(B)
442 ("Bu" ?$(3"$(B)
443 ("Bi" ?$(3"%(B)
444 ("Ba" ?$(3"&(B)
445 ("BE" ?$(3"'(B)
446 ("B" ?$(3"((B)
447 ("Bo" ?$(3")(B)
448 ("BWe" ?$(3%2(B)
449 ("BWu" ?$(3%b(B)
450 ("BWi" ?$(3%B(B)
451 ("BW" ?$(3"*(B)
452 ("BWa" ?$(3"*(B)
453 ("BWE" ?$(3%R(B)
454 ("BW'" ?$(3%b(B)
455
456 ("ve" ?$(3"+(B)
457 ("vu" ?$(3",(B)
458 ("vi" ?$(3"-(B)
459 ("va" ?$(3".(B)
460 ("vE" ?$(3"/(B)
461 ("v" ?$(3"0(B)
462 ("vo" ?$(3"1(B)
463 ("vW" ?$(3"2(B)
464 ("vWa" ?$(3"2(B)
465 ("vWe" ["$(3"0%n(B"])
466 ("vWu" ["$(3"0%r(B"])
467 ("vWi" ["$(3"0%o(B"])
468 ("vWE" ["$(3"0%q(B"])
469 ("vW'" ["$(3"0%r(B"])
470
471 ("Ve" ?$(3"+(B)
472 ("Vu" ?$(3",(B)
473 ("Vi" ?$(3"-(B)
474 ("Va" ?$(3".(B)
475 ("VE" ?$(3"/(B)
476 ("V" ?$(3"0(B)
477 ("Vo" ?$(3"1(B)
478 ("VW" ?$(3"2(B)
479 ("VWa" ?$(3"2(B)
480 ("VWe" ["$(3"0%n(B"])
481 ("VWu" ["$(3"0%r(B"])
482 ("VWi" ["$(3"0%o(B"])
483 ("VWE" ["$(3"0%q(B"])
484 ("VW'" ["$(3"0%r(B"])
485
486 ("te" ?$(3"3(B)
487 ("tu" ?$(3"4(B)
488 ("ti" ?$(3"5(B)
489 ("ta" ?$(3"6(B)
490 ("tE" ?$(3"7(B)
491 ("t" ?$(3"8(B)
492 ("to" ?$(3"9(B)
493 ("tW" ?$(3":(B)
494 ("tWa" ?$(3":(B)
495 ("tWe" ["$(3"8%n(B"])
496 ("tWu" ["$(3"8%r(B"])
497 ("tWi" ["$(3"8%o(B"])
498 ("tWE" ["$(3"8%q(B"])
499 ("tW'" ["$(3"8%r(B"])
500
501 ("ce" ?$(3";(B)
502 ("cu" ?$(3"<(B)
503 ("ci" ?$(3"=(B)
504 ("ca" ?$(3">(B)
505 ("cE" ?$(3"?(B)
506 ("c" ?$(3"@(B)
507 ("co" ?$(3"A(B)
508 ("cW" ?$(3"B(B)
509 ("cWa" ?$(3"B(B)
510 ("cWe" ["$(3"@%n(B"])
511 ("cWu" ["$(3"@%r(B"])
512 ("cWi" ["$(3"@%o(B"])
513 ("cWE" ["$(3"@%q(B"])
514 ("cW'" ["$(3"@%r(B"])
515
516 ("`he" ?$(3"C(B)
517 ("`hu" ?$(3"D(B)
518 ("`hi" ?$(3"E(B)
519 ("`ha" ?$(3"F(B)
520 ("`hE" ?$(3"G(B)
521 ("`h" ?$(3"H(B)
522 ("`ho" ?$(3"I(B)
523 ("`hWe" ?$(3"K(B)
524 ("`hWu" ?$(3"P(B)
525 ("`hWi" ?$(3"M(B)
526 ("`hW" ?$(3"N(B)
527 ("`hWa" ?$(3"N(B)
528 ("`hWE" ?$(3"O(B)
529 ("`hW'" ?$(3"P(B)
530
531 ("h2e" ?$(3"C(B)
532 ("h2u" ?$(3"D(B)
533 ("h2i" ?$(3"E(B)
534 ("h2a" ?$(3"F(B)
535 ("h2E" ?$(3"G(B)
536 ("h2" ?$(3"H(B)
537 ("h2o" ?$(3"I(B)
538 ("h2We" ?$(3"K(B)
539 ("h2Wu" ?$(3"P(B)
540 ("h2Wi" ?$(3"M(B)
541 ("h2W" ?$(3"N(B)
542 ("h2Wa" ?$(3"N(B)
543 ("h2WE" ?$(3"O(B)
544 ("h2W'" ?$(3"P(B)
545
546 ("hhe" ?$(3"C(B)
547 ("hhu" ?$(3"D(B)
548 ("hhi" ?$(3"E(B)
549 ("hha" ?$(3"F(B)
550 ("hhE" ?$(3"G(B)
551 ("hh" ?$(3"H(B)
552 ("hho" ?$(3"I(B)
553 ("hhWe" ?$(3"K(B)
554 ("hhWu" ?$(3"P(B)
555 ("hhWi" ?$(3"M(B)
556 ("hhW" ?$(3"N(B)
557 ("hhWa" ?$(3"N(B)
558 ("hhWE" ?$(3"O(B)
559 ("hhW'" ?$(3"P(B)
560
561 ("ne" ?$(3"S(B)
562 ("nu" ?$(3"T(B)
563 ("ni" ?$(3"U(B)
564 ("na" ?$(3"V(B)
565 ("nE" ?$(3"W(B)
566 ("n" ?$(3"X(B)
567 ("no" ?$(3"Y(B)
568 ("nW" ?$(3"Z(B)
569 ("nWa" ?$(3"Z(B)
570 ("nWe" ["$(3"X%n(B"])
571 ("nWu" ["$(3"X%r(B"])
572 ("nWi" ["$(3"X%o(B"])
573 ("nWE" ["$(3"X%q(B"])
574 ("nW'" ["$(3"X%r(B"])
575
576 ("Ne" ?$(3"[(B)
577 ("Nu" ?$(3"\(B)
578 ("Ni" ?$(3"](B)
579 ("Na" ?$(3"^(B)
580 ("NE" ?$(3"_(B)
581 ("N" ?$(3"`(B)
582 ("No" ?$(3"a(B)
583 ("NW" ?$(3"b(B)
584 ("NWa" ?$(3"b(B)
585 ("NWe" ["$(3"`%n(B"])
586 ("NWu" ["$(3"`%r(B"])
587 ("NWi" ["$(3"`%o(B"])
588 ("NWE" ["$(3"`%q(B"])
589 ("NW'" ["$(3"`%r(B"])
590
591 ("e" ?$(3"c(B)
592 ("u" ?$(3"d(B)
593 ("U" ?$(3"d(B)
594 ("i" ?$(3"e(B)
595 ("a" ?$(3"f(B)
596 ("A" ?$(3"f(B)
597 ("E" ?$(3"g(B)
598 ("I" ?$(3"h(B)
599 ("o" ?$(3"i(B)
600 ("O" ?$(3"i(B)
601 ("ea" ?$(3"j(B)
602 ("eee" ?$(3"j(B)
603
604 ("ke" ?$(3"k(B)
605 ("ku" ?$(3"l(B)
606 ("ki" ?$(3"m(B)
607 ("ka" ?$(3"n(B)
608 ("kE" ?$(3"o(B)
609 ("k" ?$(3"p(B)
610 ("ko" ?$(3"q(B)
611 ("kWe" ?$(3"s(B)
612 ("kWu" ?$(3"x(B)
613 ("kWi" ?$(3"u(B)
614 ("kW" ?$(3"v(B)
615 ("kWa" ?$(3"v(B)
616 ("kWE" ?$(3"w(B)
617 ("kW'" ?$(3"x(B)
618
619 ("`ke" ?$(3%9(B)
620 ("`ku" ?$(3%:(B)
621 ("`ki" ?$(3%;(B)
622 ("`ka" ?$(3%<(B)
623 ("`kE" ?$(3%=(B)
624 ("`k" ?$(3%>(B)
625 ("`ko" ?$(3%?(B)
626
627 ("k2e" ?$(3%9(B)
628 ("k2u" ?$(3%:(B)
629 ("k2i" ?$(3%;(B)
630 ("k2a" ?$(3%<(B)
631 ("k2E" ?$(3%=(B)
632 ("k2" ?$(3%>(B)
633 ("k2o" ?$(3%?(B)
634
635 ("kke" ?$(3%9(B)
636 ("kku" ?$(3%:(B)
637 ("kki" ?$(3%;(B)
638 ("kka" ?$(3%<(B)
639 ("kkE" ?$(3%=(B)
640 ("kk" ?$(3%>(B)
641 ("kko" ?$(3%?(B)
642
643 ("Ke" ?$(3"{(B)
644 ("Ku" ?$(3"|(B)
645 ("Ki" ?$(3"}(B)
646 ("Ka" ?$(3"~(B)
647 ("KE" ?$(3#!(B)
648 ("K" ?$(3#"(B)
649 ("Ko" ?$(3##(B)
650 ("KWe" ?$(3#%(B)
651 ("KWu" ?$(3#*(B)
652 ("KWi" ?$(3#'(B)
653 ("KW" ?$(3#((B)
654 ("KWa" ?$(3#((B)
655 ("KWE" ?$(3#)(B)
656 ("KW'" ?$(3#*(B)
657
658 ("Xe" ?$(3%I(B)
659 ("Xu" ?$(3%J(B)
660 ("Xi" ?$(3%K(B)
661 ("Xa" ?$(3%L(B)
662 ("XE" ?$(3%M(B)
663 ("X" ?$(3%N(B)
664 ("Xo" ?$(3%O(B)
665
666 ("we" ?$(3#-(B)
667 ("wu" ?$(3#.(B)
668 ("wi" ?$(3#/(B)
669 ("wa" ?$(3#0(B)
670 ("wE" ?$(3#1(B)
671 ("w" ?$(3#2(B)
672 ("wo" ?$(3#3(B)
673
674 ("`e" ?$(3#5(B)
675 ("`u" ?$(3#6(B)
676 ("`U" ?$(3#6(B)
677 ("`i" ?$(3#7(B)
678 ("`a" ?$(3#8(B)
679 ("`A" ?$(3#8(B)
680 ("`E" ?$(3#9(B)
681 ("`I" ?$(3#:(B)
682 ("`o" ?$(3#;(B)
683 ("`O" ?$(3#;(B)
684
685 ("e2" ?$(3#5(B)
686 ("u2" ?$(3#6(B)
687 ("U2" ?$(3#6(B)
688 ("i2" ?$(3#7(B)
689 ("a2" ?$(3#8(B)
690 ("A2" ?$(3#8(B)
691 ("E2" ?$(3#9(B)
692 ("I2" ?$(3#:(B)
693 ("o2" ?$(3#;(B)
694 ("O2" ?$(3#;(B)
695
696 ("ee" ?$(3#5(B)
697 ("uu" ?$(3#6(B)
698 ("UU" ?$(3#6(B)
699 ("ii" ?$(3#7(B)
700 ("aa" ?$(3#8(B)
701 ("AA" ?$(3#8(B)
702 ("EE" ?$(3#9(B)
703 ("II" ?$(3#:(B)
704 ("oo" ?$(3#;(B)
705 ("OO" ?$(3#;(B)
706
707 ("ze" ?$(3#=(B)
708 ("zu" ?$(3#>(B)
709 ("zi" ?$(3#?(B)
710 ("za" ?$(3#@(B)
711 ("zE" ?$(3#A(B)
712 ("z" ?$(3#B(B)
713 ("zo" ?$(3#C(B)
714 ("zW" ?$(3#D(B)
715 ("zWa" ?$(3#D(B)
716 ("zWe" ["$(3#B%n(B"])
717 ("zWu" ["$(3#B%r(B"])
718 ("zWi" ["$(3#B%o(B"])
719 ("zWE" ["$(3#B%q(B"])
720 ("zW'" ["$(3#B%r(B"])
721
722 ("Ze" ?$(3#E(B)
723 ("Zu" ?$(3#F(B)
724 ("Zi" ?$(3#G(B)
725 ("Za" ?$(3#H(B)
726 ("ZE" ?$(3#I(B)
727 ("Z" ?$(3#J(B)
728 ("Zo" ?$(3#K(B)
729 ("ZW" ?$(3#L(B)
730 ("ZWa" ?$(3#L(B)
731 ("ZWe" ["$(3#J%n(B"])
732 ("ZWu" ["$(3#J%r(B"])
733 ("ZWi" ["$(3#J%o(B"])
734 ("ZWE" ["$(3#J%q(B"])
735 ("ZW'" ["$(3#J%r(B"])
736
737 ("ye" ?$(3#M(B)
738 ("yu" ?$(3#N(B)
739 ("yi" ?$(3#O(B)
740 ("ya" ?$(3#P(B)
741 ("yE" ?$(3#Q(B)
742 ("y" ?$(3#R(B)
743 ("yo" ?$(3#S(B)
744 ("yW" ?$(3#T(B)
745 ("yWa" ?$(3#T(B)
746 ("yWe" ["$(3#R%n(B"])
747 ("yWu" ["$(3#R%r(B"])
748 ("yWi" ["$(3#R%o(B"])
749 ("yWE" ["$(3#R%q(B"])
750 ("yW'" ["$(3#R%r(B"])
751
752 ("Ye" ?$(3#M(B)
753 ("Yu" ?$(3#N(B)
754 ("Yi" ?$(3#O(B)
755 ("Ya" ?$(3#P(B)
756 ("YE" ?$(3#Q(B)
757 ("Y" ?$(3#R(B)
758 ("Yo" ?$(3#S(B)
759 ("YW" ?$(3#T(B)
760 ("YWa" ?$(3#T(B)
761 ("YWe" ["$(3#R%n(B"])
762 ("YWu" ["$(3#R%r(B"])
763 ("YWi" ["$(3#R%o(B"])
764 ("YWE" ["$(3#R%q(B"])
765 ("YW'" ["$(3#R%r(B"])
766
767 ("de" ?$(3#U(B)
768 ("du" ?$(3#V(B)
769 ("di" ?$(3#W(B)
770 ("da" ?$(3#X(B)
771 ("dE" ?$(3#Y(B)
772 ("d" ?$(3#Z(B)
773 ("do" ?$(3#[(B)
774 ("dW" ?$(3#\(B)
775 ("dWa" ?$(3#\(B)
776 ("dWe" ["$(3#Z%n(B"])
777 ("dWu" ["$(3#Z%r(B"])
778 ("dWi" ["$(3#Z%o(B"])
779 ("dWE" ["$(3#Z%q(B"])
780 ("dW'" ["$(3#Z%r(B"])
781
782 ("De" ?$(3#](B)
783 ("Du" ?$(3#^(B)
784 ("Di" ?$(3#_(B)
785 ("Da" ?$(3#`(B)
786 ("DE" ?$(3#a(B)
787 ("D" ?$(3#b(B)
788 ("Do" ?$(3#c(B)
789 ("DW" ?$(3#d(B)
790 ("DWa" ?$(3#d(B)
791 ("DWe" ["$(3#b%n(B"])
792 ("DWu" ["$(3#b%r(B"])
793 ("DWi" ["$(3#b%o(B"])
794 ("DWE" ["$(3#b%q(B"])
795 ("DW'" ["$(3#b%r(B"])
796
797 ("je" ?$(3#e(B)
798 ("ju" ?$(3#f(B)
799 ("ji" ?$(3#g(B)
800 ("ja" ?$(3#h(B)
801 ("jE" ?$(3#i(B)
802 ("j" ?$(3#j(B)
803 ("jo" ?$(3#k(B)
804 ("jW" ?$(3#l(B)
805 ("jWa" ?$(3#l(B)
806 ("jWe" ["$(3#j%n(B"])
807 ("jWu" ["$(3#j%r(B"])
808 ("jWi" ["$(3#j%o(B"])
809 ("jWE" ["$(3#j%q(B"])
810 ("jW'" ["$(3#j%r(B"])
811
812 ("Je" ?$(3#e(B)
813 ("Ju" ?$(3#f(B)
814 ("Ji" ?$(3#g(B)
815 ("Ja" ?$(3#h(B)
816 ("JE" ?$(3#i(B)
817 ("J" ?$(3#j(B)
818 ("Jo" ?$(3#k(B)
819 ("JW" ?$(3#l(B)
820 ("JWa" ?$(3#l(B)
821 ("JWe" ["$(3#j%n(B"])
822 ("JWu" ["$(3#j%r(B"])
823 ("JWi" ["$(3#j%o(B"])
824 ("JWE" ["$(3#j%q(B"])
825 ("JW'" ["$(3#j%r(B"])
826
827 ("ge" ?$(3#m(B)
828 ("gu" ?$(3#n(B)
829 ("gi" ?$(3#o(B)
830 ("ga" ?$(3#p(B)
831 ("gE" ?$(3#q(B)
832 ("g" ?$(3#r(B)
833 ("go" ?$(3#s(B)
834 ("gWe" ?$(3#u(B)
835 ("gWu" ?$(3#z(B)
836 ("gWi" ?$(3#w(B)
837 ("gW" ?$(3#x(B)
838 ("gWa" ?$(3#x(B)
839 ("gWE" ?$(3#y(B)
840 ("gW'" ?$(3#z(B)
841
842 ("`ge" ?$(3%Y(B)
843 ("`gu" ?$(3%Z(B)
844 ("`gi" ?$(3%[(B)
845 ("`ga" ?$(3%\(B)
846 ("`gE" ?$(3%](B)
847 ("`g" ?$(3%^(B)
848 ("`go" ?$(3%_(B)
849
850 ("g2e" ?$(3%Y(B)
851 ("g2u" ?$(3%Z(B)
852 ("g2i" ?$(3%[(B)
853 ("g2a" ?$(3%\(B)
854 ("g2E" ?$(3%](B)
855 ("g2" ?$(3%^(B)
856 ("g2o" ?$(3%_(B)
857
858 ("gge" ?$(3%Y(B)
859 ("ggu" ?$(3%Z(B)
860 ("ggi" ?$(3%[(B)
861 ("gga" ?$(3%\(B)
862 ("ggE" ?$(3%](B)
863 ("gg" ?$(3%^(B)
864 ("ggo" ?$(3%_(B)
865
866 ("Ge" ?$(3#}(B)
867 ("Gu" ?$(3#~(B)
868 ("Gi" ?$(3$!(B)
869 ("Ga" ?$(3$"(B)
870 ("GE" ?$(3$#(B)
871 ("G" ?$(3$$(B)
872 ("Go" ?$(3$%(B)
873 ("GWe" ?$(3%3(B)
874 ("GWu" ?$(3%c(B)
875 ("GWi" ?$(3%C(B)
876 ("GW" ?$(3$&(B)
877 ("GWa" ?$(3$&(B)
878 ("GWE" ?$(3%S(B)
879 ("GW'" ?$(3%c(B)
880
881 ("te" ?$(3$'(B)
882 ("tu" ?$(3$((B)
883 ("ti" ?$(3$)(B)
884 ("ta" ?$(3$*(B)
885 ("tE" ?$(3$+(B)
886 ("t" ?$(3$,(B)
887 ("to" ?$(3$-(B)
888 ("tW" ?$(3$.(B)
889 ("tWa" ?$(3$.(B)
890 ("tWe" ["$(3$,%n(B"])
891 ("tWu" ["$(3$,%r(B"])
892 ("tWi" ["$(3$,%o(B"])
893 ("tWE" ["$(3$,%q(B"])
894 ("tW'" ["$(3$,%r(B"])
895
896 ("Ce" ?$(3$/(B)
897 ("Cu" ?$(3$0(B)
898 ("Ci" ?$(3$1(B)
899 ("Ca" ?$(3$2(B)
900 ("CE" ?$(3$3(B)
901 ("C" ?$(3$4(B)
902 ("Co" ?$(3$5(B)
903 ("CW" ?$(3$6(B)
904 ("CWa" ?$(3$6(B)
905 ("CWe" ["$(3$4%n(B"])
906 ("CWu" ["$(3$4%r(B"])
907 ("CWi" ["$(3$4%o(B"])
908 ("CWE" ["$(3$4%q(B"])
909 ("CW'" ["$(3$4%r(B"])
910
911 ("Pe" ?$(3$7(B)
912 ("Pu" ?$(3$8(B)
913 ("Pi" ?$(3$9(B)
914 ("Pa" ?$(3$:(B)
915 ("PE" ?$(3$;(B)
916 ("P" ?$(3$<(B)
917 ("Po" ?$(3$=(B)
918 ("PW" ?$(3$>(B)
919 ("PWa" ?$(3$>(B)
920 ("PWe" ["$(3$<%n(B"])
921 ("PWu" ["$(3$<%r(B"])
922 ("PWi" ["$(3$<%o(B"])
923 ("PWE" ["$(3$<%q(B"])
924 ("PW'" ["$(3$<%r(B"])
925
926 ("Se" ?$(3$?(B)
927 ("Su" ?$(3$@(B)
928 ("Si" ?$(3$A(B)
929 ("Sa" ?$(3$B(B)
930 ("SE" ?$(3$C(B)
931 ("S" ?$(3$D(B)
932 ("So" ?$(3$E(B)
933 ("SW" ?$(3$F(B)
934 ("SWa" ?$(3$F(B)
935 ("SWe" ["$(3$D%n(B"])
936 ("SWu" ["$(3$D%r(B"])
937 ("SWi" ["$(3$D%o(B"])
938 ("SWE" ["$(3$D%q(B"])
939 ("SW'" ["$(3$D%r(B"])
940
941 ("`Se" ?$(3$G(B)
942 ("`Su" ?$(3$H(B)
943 ("`Si" ?$(3$I(B)
944 ("`Sa" ?$(3$J(B)
945 ("`SE" ?$(3$K(B)
946 ("`S" ?$(3$L(B)
947 ("`So" ?$(3$M(B)
948 ("`SW" ?$(3$F(B)
949 ("`SWa" ?$(3$F(B)
950 ("`SWe" ["$(3$L%n(B"])
951 ("`SWu" ["$(3$L%r(B"])
952 ("`SWi" ["$(3$L%o(B"])
953 ("`SWE" ["$(3$L%q(B"])
954 ("`SW'" ["$(3$L%r(B"])
955
956 ("S2e" ?$(3$G(B)
957 ("S2u" ?$(3$H(B)
958 ("S2i" ?$(3$I(B)
959 ("S2a" ?$(3$J(B)
960 ("S2E" ?$(3$K(B)
961 ("S2" ?$(3$L(B)
962 ("S2o" ?$(3$M(B)
963 ("S2W" ?$(3$F(B)
964 ("S2Wa" ?$(3$F(B)
965 ("S2We" ["$(3$L%n(B"])
966 ("S2Wu" ["$(3$L%r(B"])
967 ("S2Wi" ["$(3$L%o(B"])
968 ("S2WE" ["$(3$L%q(B"])
969 ("S2W'" ["$(3$L%r(B"])
970
971 ("SSe" ?$(3$G(B)
972 ("SSu" ?$(3$H(B)
973 ("SSi" ?$(3$I(B)
974 ("SSa" ?$(3$J(B)
975 ("SSE" ?$(3$K(B)
976 ("SS" ?$(3$L(B)
977 ("SSo" ?$(3$M(B)
978 ("SSW" ?$(3$F(B)
979 ("SSWa" ?$(3$F(B)
980 ("SSWe" ["$(3$L%n(B"])
981 ("SSWu" ["$(3$L%r(B"])
982 ("SSWi" ["$(3$L%o(B"])
983 ("SSWE" ["$(3$L%q(B"])
984 ("SW'" ["$(3$L%r(B"])
985
986 ("fe" ?$(3$O(B)
987 ("fu" ?$(3$P(B)
988 ("fi" ?$(3$Q(B)
989 ("fa" ?$(3$R(B)
990 ("fE" ?$(3$S(B)
991 ("f" ?$(3$T(B)
992 ("fo" ?$(3$U(B)
993 ("fWe" ?$(3%4(B)
994 ("fWu" ?$(3%d(B)
995 ("fWi" ?$(3%D(B)
996 ("fW" ?$(3$V(B)
997 ("fWa" ?$(3$V(B)
998 ("fWE" ?$(3%T(B)
999 ("fW'" ?$(3%d(B)
1000 ("fY" ?$(3$a(B)
1001 ("fYa" ?$(3$a(B)
1002
1003 ("Fe" ?$(3$O(B)
1004 ("Fu" ?$(3$P(B)
1005 ("Fi" ?$(3$Q(B)
1006 ("Fa" ?$(3$R(B)
1007 ("FE" ?$(3$S(B)
1008 ("F" ?$(3$T(B)
1009 ("Fo" ?$(3$U(B)
1010 ("FWe" ?$(3%4(B)
1011 ("FWu" ?$(3%d(B)
1012 ("FWi" ?$(3%D(B)
1013 ("FW" ?$(3$V(B)
1014 ("FWa" ?$(3$V(B)
1015 ("FWE" ?$(3%T(B)
1016 ("FW'" ?$(3%d(B)
1017 ("FY" ?$(3$a(B)
1018 ("FYa" ?$(3$a(B)
1019
1020 ("pe" ?$(3$W(B)
1021 ("pu" ?$(3$X(B)
1022 ("pi" ?$(3$Y(B)
1023 ("pa" ?$(3$Z(B)
1024 ("pE" ?$(3$[(B)
1025 ("p" ?$(3$\(B)
1026 ("po" ?$(3$](B)
1027 ("pWe" ?$(3%5(B)
1028 ("pWu" ?$(3%e(B)
1029 ("pWi" ?$(3%E(B)
1030 ("pW" ?$(3$^(B)
1031 ("pWa" ?$(3$^(B)
1032 ("pWE" ?$(3%U(B)
1033 ("pW'" ?$(3%e(B)
1034
1035 ("'" [""])
1036 ("''" ?')
1037 (":" ?$(3$h(B)
1038 ("::" ?$(3$i(B)
1039 (":::" ?:)
1040 ("." ?$(3$i(B)
1041 (".." ?$(3%u(B)
1042 ("..." ?.)
1043 ("," ?$(3$j(B)
1044 (",," ?,)
1045 (";" ?$(3$k(B)
1046 (";;" ?\;)
1047 ("-:" ?$(3$l(B)
1048 (":-" ?$(3$m(B)
1049 ("*" ?*)
1050 ("**" ?$(3$o(B)
1051 (":|:" ?$(3$o(B)
1052 ("?" ?$(3%x(B)
1053 ("??" ?$(3$n(B)
1054 ("`?" ?$(3$n(B)
1055 ("???" ??)
1056 ("<<" ?$(3%v(B)
1057 (">>" ?$(3%w(B)
1058 ("`!" ?$(3%t(B)
1059 ("wWe" ?$(3%n(B)
1060 ("wWu" ?$(3%r(B)
1061 ("wWi" ?$(3%o(B)
1062 ("wW" ?$(3%p(B)
1063 ("wWa" ?$(3%p(B)
1064 ("wWE" ?$(3%q(B)
1065 ("wW'" ?$(3%r(B)
1066 ("We" ?$(3%n(B)
1067 ("Wu" ?$(3%r(B)
1068 ("Wi" ?$(3%o(B)
1069 ("W" ?$(3%p(B)
1070 ("Wa" ?$(3%p(B)
1071 ("WE" ?$(3%q(B)
1072 ("W'" ?$(3%r(B)
1073 ("`1" ?$(3$p(B)
1074 ("`2" ?$(3$q(B)
1075 ("`3" ?$(3$r(B)
1076 ("`4" ?$(3$s(B)
1077 ("`5" ?$(3$t(B)
1078 ("`6" ?$(3$u(B)
1079 ("`7" ?$(3$v(B)
1080 ("`8" ?$(3$w(B)
1081 ("`9" ?$(3$x(B)
1082 ("`10" ?$(3$y(B)
1083 ("`20" ?$(3$z(B)
1084 ("`30" ?$(3${(B)
1085 ("`40" ?$(3$|(B)
1086 ("`50" ?$(3$}(B)
1087 ("`60" ?$(3$~(B)
1088 ("`70" ?$(3%!(B)
1089 ("`80" ?$(3%"(B)
1090 ("`90" ?$(3%#(B)
1091 ("`100" ?$(3%$(B)
1092 ("`1000" ["$(3$y%$(B"])
1093 ("`10000" ?$(3%%(B)
1094 )
1095
1096 ;; The translation of `a' depends on the language (Tigrigna or Amharic).
1097 (add-hook 'quail-mode-hook
1098 (lambda nil
1099 (quail-defrule "a"
1100 (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
1101 "quail-ethio")))
1102
1103 ;;; quail/ethiopic.el ends here