diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-05-14 01:55:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-05-14 01:55:06 +0000 |
| commit | 8aeebac24ac7a3eb0d6d259f549cac34261187ca (patch) | |
| tree | a06bbcd9f5818b892e5b2cecdfde46dd0fbe20c3 /lisp | |
| parent | 11d957768b68fdb5f059dcb61dd9770344da2b7c (diff) | |
| download | emacs-8aeebac24ac7a3eb0d6d259f549cac34261187ca.tar.gz | |
(set-language-environment): Set current-iso639-language
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index a8c81442e66..5bcc5996fb4 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1843,6 +1843,9 @@ specifies the character set for the major languages of Western Europe." (if (functionp func) (funcall func))) + (setq current-iso639-language + (get-language-info language-name 'iso639-language)) + (run-hooks 'set-language-environment-hook) (force-mode-line-update t)) |