From: Kenichi Handa <handa@m17n.org>
Date: Sat, 8 Nov 1997 03:07:37 +0000 (+0000)
Subject: (set-language-environment): Run
X-Git-Tag: emacs-20.3~2842
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e63645c263a78ad4f72e61285e52908b3bee8563;p=emacs.git

(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 9b790fe22a3..f39947a5825 100644
--- 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)