diff options
| author | Kenichi Handa | 2008-05-14 01:55:06 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-05-14 01:55:06 +0000 |
| commit | 8aeebac24ac7a3eb0d6d259f549cac34261187ca (patch) | |
| tree | a06bbcd9f5818b892e5b2cecdfde46dd0fbe20c3 | |
| parent | 11d957768b68fdb5f059dcb61dd9770344da2b7c (diff) | |
| download | emacs-8aeebac24ac7a3eb0d6d259f549cac34261187ca.tar.gz emacs-8aeebac24ac7a3eb0d6d259f549cac34261187ca.zip | |
(set-language-environment): Set current-iso639-language
| -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." | |||
| 1843 | (if (functionp func) | 1843 | (if (functionp func) |
| 1844 | (funcall func))) | 1844 | (funcall func))) |
| 1845 | 1845 | ||
| 1846 | (setq current-iso639-language | ||
| 1847 | (get-language-info language-name 'iso639-language)) | ||
| 1848 | |||
| 1846 | (run-hooks 'set-language-environment-hook) | 1849 | (run-hooks 'set-language-environment-hook) |
| 1847 | (force-mode-line-update t)) | 1850 | (force-mode-line-update t)) |
| 1848 | 1851 | ||