diff options
| author | Stefan Monnier | 2002-08-15 00:46:09 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-08-15 00:46:09 +0000 |
| commit | 067723639234bf58eeb593b7e38e6e7bb43af9d3 (patch) | |
| tree | 6a310281b036b53078143ee79f361e74e35d9680 | |
| parent | 1a80bcd1d7ba75563ea5bf23f0031baf2737b718 (diff) | |
| download | emacs-067723639234bf58eeb593b7e38e6e7bb43af9d3.tar.gz emacs-067723639234bf58eeb593b7e38e6e7bb43af9d3.zip | |
(setup-ethiopic-environment-internal, exit-ethiopic-environment):
Use find-file-hook and write-file-functions instead of
find-file-hooks and write-file-hooks.
| -rw-r--r-- | lisp/language/ethio-util.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index a173ddb3bee..29b06729fbc 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el | |||
| @@ -78,8 +78,8 @@ | |||
| 78 | (setq key-bindings (cdr key-bindings)))) | 78 | (setq key-bindings (cdr key-bindings)))) |
| 79 | 79 | ||
| 80 | (add-hook 'quail-activate-hook 'ethio-select-a-translation) | 80 | (add-hook 'quail-activate-hook 'ethio-select-a-translation) |
| 81 | (add-hook 'find-file-hooks 'ethio-find-file) | 81 | (add-hook 'find-file-hook 'ethio-find-file) |
| 82 | (add-hook 'write-file-hooks 'ethio-write-file) | 82 | (add-hook 'write-file-functions 'ethio-write-file) |
| 83 | (add-hook 'after-save-hook 'ethio-find-file)) | 83 | (add-hook 'after-save-hook 'ethio-find-file)) |
| 84 | 84 | ||
| 85 | (defun exit-ethiopic-environment () | 85 | (defun exit-ethiopic-environment () |
| @@ -91,8 +91,8 @@ | |||
| 91 | (cdr exit-ethiopic-environment-data))) | 91 | (cdr exit-ethiopic-environment-data))) |
| 92 | 92 | ||
| 93 | (remove-hook 'quail-activate-hook 'ethio-select-a-translation) | 93 | (remove-hook 'quail-activate-hook 'ethio-select-a-translation) |
| 94 | (remove-hook 'find-file-hooks 'ethio-find-file) | 94 | (remove-hook 'find-file-hook 'ethio-find-file) |
| 95 | (remove-hook 'write-file-hooks 'ethio-write-file) | 95 | (remove-hook 'write-file-functions 'ethio-write-file) |
| 96 | (remove-hook 'after-save-hook 'ethio-find-file)) | 96 | (remove-hook 'after-save-hook 'ethio-find-file)) |
| 97 | 97 | ||
| 98 | ;; | 98 | ;; |