(set-language-environment): Run

exit-language-environment-hook before calling `exit-function'
which is specified for the language environment.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9b790fe22a3bdde6995148b4467294f1f589942b..f39947a58251a6d585ea2caf4ea97f247c082efd 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -686,8 +686,8 @@ and sometimes other things."
   (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)