[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.240 
emacs/lisp/international/mule-cmds.el:1.241
*** emacs/lisp/international/mule-cmds.el:1.240 Wed Jul  9 12:18:21 2003
--- emacs/lisp/international/mule-cmds.el       Thu Jul 10 22:40:01 2003
***************
*** 1708,1715 ****
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (or (assoc-ignore-case language-name language-info-alist)
        (error "Language environment not defined: %S" language-name))
    (if current-language-environment
        (let ((func (get-language-info current-language-environment
                                     'exit-function)))
--- 1708,1717 ----
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (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)))