Mercurial > emacs

changeset 22516:31e6e5b66fea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't add hook to quail-mode-hook. (ethio-select-a-translation): New function.
author Kenichi Handa <handa@m17n.org>
date Sat, 20 Jun 1998 02:58:52 +0000
parents c7f3d4ec2c69
children 7c42ab0fcb30
files leim/quail/ethiopic.el
diffstat 1 files changed, 6 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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