Mercurial > emacs
changeset 46898:0b0448a9c183
(setup-ethiopic-environment-internal, exit-ethiopic-environment):
Use find-file-hook and write-file-functions instead of
find-file-hooks and write-file-hooks.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 15 Aug 2002 00:46:09 +0000 |
| parents | 6deaf2e0ade2 |
| children | f00337f04e78 |
| files | lisp/language/ethio-util.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/ethio-util.el Thu Aug 15 00:37:57 2002 +0000 +++ b/lisp/language/ethio-util.el Thu Aug 15 00:46:09 2002 +0000 @@ -78,8 +78,8 @@ (setq key-bindings (cdr key-bindings)))) (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 'find-file-hook 'ethio-find-file) + (add-hook 'write-file-functions 'ethio-write-file) (add-hook 'after-save-hook 'ethio-find-file)) (defun exit-ethiopic-environment () @@ -91,8 +91,8 @@ (cdr exit-ethiopic-environment-data))) (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 'find-file-hook 'ethio-find-file) + (remove-hook 'write-file-functions 'ethio-write-file) (remove-hook 'after-save-hook 'ethio-find-file)) ;;