[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: set-language-environment
From: |
Kenichi Handa |
Subject: |
Re: set-language-environment |
Date: |
Fri, 11 Jul 2003 11:45:06 +0900 (JST) |
User-agent: |
SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.2.92 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI) |
In article <address@hidden>, Yoichi NAKAYAMA <address@hidden> writes:
> docstring of the variable current-language-environment says:
>> This variable should be set only with M-x customize, which is equivalent
>> to using the function `set-language-environment'.
> Although (set-language-environment "jApAnEse") does set
> current-language-environment to the wrong value (so the above two
> are not "equivalent"). Following patch will fix it.
You are right, but with your patch, the error message
is always as this:
Language environment not defined: nil
So, I've just installed the attached change instead.
---
Ken'ichi HANDA
address@hidden
Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -c -r1.240 -r1.241
cvs server: conflicting specifications of output style
*** mule-cmds.el 9 Jul 2003 16:18:21 -0000 1.240
--- mule-cmds.el 11 Jul 2003 02:40:01 -0000 1.241
***************
*** 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)))