From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Aug 2002 00:46:09 +0000 (+0000)
Subject: (setup-ethiopic-environment-internal, exit-ethiopic-environment):
X-Git-Tag: ttn-vms-21-2-B4~13684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=067723639234bf58eeb593b7e38e6e7bb43af9d3;p=emacs.git

(setup-ethiopic-environment-internal, exit-ethiopic-environment):
Use find-file-hook and write-file-functions instead of
find-file-hooks and write-file-hooks.
---

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 @@
       (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))
 
 ;;