# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 898311532 0
# Node ID 31e6e5b66fea5996db17ec02a69501409995ca37
# Parent  c7f3d4ec2c69aa9d845d5aeeb08217ce299eb770
Don't add hook to quail-mode-hook.
(ethio-select-a-translation): New function.

diff -r c7f3d4ec2c69 -r 31e6e5b66fea leim/quail/ethiopic.el
--- a/leim/quail/ethiopic.el	Sat Jun 20 01:38:52 1998 +0000
+++ b/leim/quail/ethiopic.el	Sat Jun 20 02:58:52 1998 +0000
@@ -1026,16 +1026,11 @@
  ("`1000000" ["$(3%$%%(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) ?$(3"c(B ?$(3"f(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) ?$(3"c(B ?$(3"f(B)
+		 "ethiopic"))
 
 ;;; quail/ethiopic.el ends here