From 8aeebac24ac7a3eb0d6d259f549cac34261187ca Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 14 May 2008 01:55:06 +0000 Subject: [PATCH] (set-language-environment): Set current-iso639-language --- lisp/international/mule-cmds.el | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 2.39.2