mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(setup-ethiopic-environment-internal, exit-ethiopic-environment):

Browse source 
Use find-file-hook and write-file-functions instead of
find-file-hooks and write-file-hooks.
This commit is contained in:
Stefan Monnier 2002-08-15 00:46:09 +00:00
parent 1a80bcd1d7
commit 0677236392
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/language/ethio-util.el
View file

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