From 2d1cc7d91e06db645d4651db0dc400dda244fea9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 14 Jun 1999 07:16:21 +0000 Subject: [PATCH] (setup-ethiopic-environment-internal): Use quail-activate-hook instead of obsolete hook quail-mode-hook. (exit-ethiopic-environment): Likewize. --- lisp/language/ethio-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.5