Mercurial > emacs
changeset 20231:7f0ea4977b32
(set-language-environment): Run
exit-language-environment-hook before calling `exit-function'
which is specified for the language environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 08 Nov 1997 03:07:37 +0000 |
| parents | ad33fb40e5e7 |
| children | 5031189adff2 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Sat Nov 08 03:05:44 1997 +0000 +++ b/lisp/international/mule-cmds.el Sat Nov 08 03:07:37 1997 +0000 @@ -686,8 +686,8 @@ (if current-language-environment (let ((func (get-language-info current-language-environment 'exit-function))) - (if (fboundp func) (funcall func)) - (run-hooks 'exit-language-environment-hook))) + (run-hooks 'exit-language-environment-hook) + (if (fboundp func) (funcall func)))) (setq current-language-environment language-name) (funcall (get-language-info language-name 'setup-function)) (run-hooks 'set-language-environment-hook)