diff options
| author | Kenichi Handa | 1997-11-08 03:07:37 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-11-08 03:07:37 +0000 |
| commit | e63645c263a78ad4f72e61285e52908b3bee8563 (patch) | |
| tree | 05fc8e01c9ce731a3529b97babc31cfea1a50d47 | |
| parent | c364e618664b9102b7a9e6f49da3abe0c3cb1459 (diff) | |
| download | emacs-e63645c263a78ad4f72e61285e52908b3bee8563.tar.gz emacs-e63645c263a78ad4f72e61285e52908b3bee8563.zip | |
(set-language-environment): Run
exit-language-environment-hook before calling `exit-function'
which is specified for the language environment.
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files 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." | |||
| 686 | (if current-language-environment | 686 | (if current-language-environment |
| 687 | (let ((func (get-language-info current-language-environment | 687 | (let ((func (get-language-info current-language-environment |
| 688 | 'exit-function))) | 688 | 'exit-function))) |
| 689 | (if (fboundp func) (funcall func)) | 689 | (run-hooks 'exit-language-environment-hook) |
| 690 | (run-hooks 'exit-language-environment-hook))) | 690 | (if (fboundp func) (funcall func)))) |
| 691 | (setq current-language-environment language-name) | 691 | (setq current-language-environment language-name) |
| 692 | (funcall (get-language-info language-name 'setup-function)) | 692 | (funcall (get-language-info language-name 'setup-function)) |
| 693 | (run-hooks 'set-language-environment-hook) | 693 | (run-hooks 'set-language-environment-hook) |