# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 878958457 0
# Node ID 7f0ea4977b32bc5f50c8290f7529d3c82ba92f86
# Parent  ad33fb40e5e75294cf2c535f36191c2890bde35a
(set-language-environment): Run
exit-language-environment-hook before calling `exit-function'
which is specified for the language environment.

diff -r ad33fb40e5e7 -r 7f0ea4977b32 lisp/international/mule-cmds.el
--- 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)