mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki 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
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)