From 7678db25908533644d10d7eb5164ca588ab9b663 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 Jun 1998 02:58:52 +0000 Subject: [PATCH] Don't add hook to quail-mode-hook. (ethio-select-a-translation): New function. --- leim/quail/ethiopic.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el index 3377b9117b0..951e503ccc1 100644 --- a/leim/quail/ethiopic.el +++ b/leim/quail/ethiopic.el @@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination' ("`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 -- 2.39.2