From e63645c263a78ad4f72e61285e52908b3bee8563 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 8 Nov 1997 03:07:37 +0000 Subject: [PATCH] (set-language-environment): Run exit-language-environment-hook before calling `exit-function' which is specified for the language environment. --- lisp/international/mule-cmds.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2