[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el |
Date: |
Thu, 10 Jul 2003 22:40:01 -0400 |
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)))