diff options
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." | |||
| 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 | ||