# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1210730106 0
# Node ID 80d92e1da986381240779fdf2fb9d0ff15dab174
# Parent  09277c117521f62b6e4b143ce0ad668da5d06d14
(set-language-environment): Set current-iso639-language

diff -r 09277c117521 -r 80d92e1da986 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed May 14 01:54:39 2008 +0000
+++ b/lisp/international/mule-cmds.el	Wed May 14 01:55:06 2008 +0000
@@ -1843,6 +1843,9 @@
     (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))