diff options
| author | Kenichi Handa | 1999-06-14 07:16:21 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-06-14 07:16:21 +0000 |
| commit | 2d1cc7d91e06db645d4651db0dc400dda244fea9 (patch) | |
| tree | d239cfeb67cbd9a8e3a75d55ec93fcd17d433a18 | |
| parent | 58caa3809c23378497c4f096fcd5c2353f696d09 (diff) | |
| download | emacs-2d1cc7d91e06db645d4651db0dc400dda244fea9.tar.gz emacs-2d1cc7d91e06db645d4651db0dc400dda244fea9.zip | |
(setup-ethiopic-environment-internal):
Use quail-activate-hook instead of obsolete hook quail-mode-hook.
(exit-ethiopic-environment): Likewize.
| -rw-r--r-- | lisp/language/ethio-util.el | 4 |
1 files 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 @@ | |||
| 60 | (global-set-key kb (cdr (car key-bindings))) | 60 | (global-set-key kb (cdr (car key-bindings))) |
| 61 | (setq key-bindings (cdr key-bindings)))) | 61 | (setq key-bindings (cdr key-bindings)))) |
| 62 | 62 | ||
| 63 | (add-hook 'quail-mode-hook 'ethio-select-a-translation) | 63 | (add-hook 'quail-activate-hook 'ethio-select-a-translation) |
| 64 | (add-hook 'find-file-hooks 'ethio-find-file) | 64 | (add-hook 'find-file-hooks 'ethio-find-file) |
| 65 | (add-hook 'write-file-hooks 'ethio-write-file) | 65 | (add-hook 'write-file-hooks 'ethio-write-file) |
| 66 | (add-hook 'after-save-hook 'ethio-find-file)) | 66 | (add-hook 'after-save-hook 'ethio-find-file)) |
| @@ -73,7 +73,7 @@ | |||
| 73 | (setq exit-ethiopic-environment-data | 73 | (setq exit-ethiopic-environment-data |
| 74 | (cdr exit-ethiopic-environment-data))) | 74 | (cdr exit-ethiopic-environment-data))) |
| 75 | 75 | ||
| 76 | (remove-hook 'quail-mode-hook 'ethio-select-a-translation) | 76 | (remove-hook 'quail-activate-hook 'ethio-select-a-translation) |
| 77 | (remove-hook 'find-file-hooks 'ethio-find-file) | 77 | (remove-hook 'find-file-hooks 'ethio-find-file) |
| 78 | (remove-hook 'write-file-hooks 'ethio-write-file) | 78 | (remove-hook 'write-file-hooks 'ethio-write-file) |
| 79 | (remove-hook 'after-save-hook 'ethio-find-file)) | 79 | (remove-hook 'after-save-hook 'ethio-find-file)) |