From: Kenichi Handa <handa@m17n.org>
Date: Mon, 14 Jun 1999 07:16:21 +0000 (+0000)
Subject: (setup-ethiopic-environment-internal):
X-Git-Tag: emacs-20.4~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d1cc7d91e06db645d4651db0dc400dda244fea9;p=emacs.git

(setup-ethiopic-environment-internal):
Use quail-activate-hook instead of obsolete hook quail-mode-hook.
(exit-ethiopic-environment): Likewize.
---

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 37dc4c40a6c..2ddea090c7c 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -60,7 +60,7 @@
       (global-set-key kb (cdr (car key-bindings)))
       (setq key-bindings (cdr key-bindings))))
 
-  (add-hook 'quail-mode-hook 'ethio-select-a-translation)
+  (add-hook 'quail-activate-hook 'ethio-select-a-translation)
   (add-hook 'find-file-hooks 'ethio-find-file)
   (add-hook 'write-file-hooks 'ethio-write-file)
   (add-hook 'after-save-hook 'ethio-find-file))
@@ -73,7 +73,7 @@
     (setq exit-ethiopic-environment-data
 	  (cdr exit-ethiopic-environment-data)))
 
-  (remove-hook 'quail-mode-hook 'ethio-select-a-translation)
+  (remove-hook 'quail-activate-hook 'ethio-select-a-translation)
   (remove-hook 'find-file-hooks 'ethio-find-file)
   (remove-hook 'write-file-hooks 'ethio-write-file)
   (remove-hook 'after-save-hook 'ethio-find-file))