Don't add hook to quail-mode-hook.

(ethio-select-a-translation): New function.

diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el
index 3377b9117b016b2e659807aaa7857dd03cc9df2c..951e503ccc1ce981ef3e47b9d262ade153fd8812 100644 (file)
--- a/leim/quail/ethiopic.el
+++ b/leim/quail/ethiopic.el
@@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination'
  ("`1000000" ["\e$(3%$%%\e(B"])
 )
 
-(add-hook 'quail-mode-hook
-         (lambda nil
-           (if (not (string= (quail-name) "ethiopic"))
-               nil
-             ;; Also turn on the Ethio minor mode.
-             (ethio-mode 1)
-             ;; The translation of `a' depends on the language
-             ;; (either Tigrigna or Amharic). 
-             (quail-defrule "a"
-                            (if (ethio-prefer-amharic-p) ?\e$(3"c\e(B ?\e$(3"f\e(B)
-                            "ethiopic"))))
+(defun ethio-select-a-translation ()
+  ;; The translation of `a' depends on the language
+  ;; (either Tigrigna or Amharic). 
+  (quail-defrule "a"
+                (if (ethio-prefer-amharic-p) ?\e$(3"c\e(B ?\e$(3"f\e(B)
+                "ethiopic"))
 
 ;;; quail/ethiopic.el ends here