30 |
|
|
31 |
(require 'quail) |
(require 'quail) |
32 |
(require 'ethio-util) |
(require 'ethio-util) |
33 |
|
|
34 |
;; |
;; |
35 |
;; The package "ethiopic" |
;; The package "ethiopic" |
36 |
;; |
;; |
342 |
("qqee" ?$(3%-(B) |
("qqee" ?$(3%-(B) |
343 |
("qq" ?$(3%.(B) |
("qq" ?$(3%.(B) |
344 |
("qqo" ?$(3%/(B) |
("qqo" ?$(3%/(B) |
345 |
|
|
346 |
("Qe" ?$(3!q(B) |
("Qe" ?$(3!q(B) |
347 |
("Qu" ?$(3!r(B) |
("Qu" ?$(3!r(B) |
348 |
("Qi" ?$(3!s(B) |
("Qi" ?$(3!s(B) |
1141 |
|
|
1142 |
(defun ethio-select-a-translation () |
(defun ethio-select-a-translation () |
1143 |
;; The translation of `a' depends on the language |
;; The translation of `a' depends on the language |
1144 |
;; (either Tigrigna or Amharic). |
;; (either Tigrigna or Amharic). |
1145 |
(quail-defrule "a" |
(quail-defrule "a" |
1146 |
(if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) |
(if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) |
1147 |
"ethiopic")) |
"ethiopic")) |