mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(set-language-environment): Run

Browse Source 
exit-language-environment-hook before calling `exit-function'
which is specified for the language environment.
This commit is contained in:
Kenichi Handa 1997-11-08 03:07:37 +00:00
parent c364e61866
commit e63645c263
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/international/mule-cmds.el
View File

@ -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)