From: Kenichi Handa <handa@m17n.org>
Date: Wed, 14 May 2008 01:55:06 +0000 (+0000)
Subject: (set-language-environment): Set current-iso639-language
X-Git-Tag: emacs-pretest-23.0.90~5547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8aeebac24ac7a3eb0d6d259f549cac34261187ca;p=emacs.git

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

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))