(set-language-environment): Set current-iso639-language

8aeebac2 · Kenichi Handa · 11d95776 · 8aeebac2
Commit 8aeebac2 authored May 14, 2008 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lisp/international/mule-cmds.el lisp/international/mule-cmds.el +3 -0

No files found.
--- 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))