Mercurial > emacs

changeset 51865:4510b8eaa84a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-language-environment): Set current-language-environment to the correct string.
author Kenichi Handa <handa@m17n.org>
date Fri, 11 Jul 2003 02:40:01 +0000
parents 6edc2212d82e
children 60ea2b10b605
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Thu Jul 10 22:29:13 2003 +0000
+++ b/lisp/international/mule-cmds.el	Fri Jul 11 02:40:01 2003 +0000
@@ -1708,8 +1708,10 @@
       (if (symbolp language-name)
 	  (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (or (assoc-ignore-case language-name language-info-alist)
+  (let ((slot (assoc-ignore-case language-name language-info-alist)))
+    (unless slot
       (error "Language environment not defined: %S" language-name))
+    (setq language-name (car slot)))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment
 				     'exit-function)))