From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Yoichi NAKAYAMA Newsgroups: gmane.emacs.devel Subject: set-language-environment Date: Sun, 06 Jul 2003 02:20:46 +0900 Organization: Geiin.org Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87llvcopox.wl%yoichi@geiin.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (generated by KARAMI 1.14.2 - "TABASCO") Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1057425766 7782 80.91.224.249 (5 Jul 2003 17:22:46 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 5 Jul 2003 17:22:46 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Sat Jul 05 19:22:44 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19YqkG-00021N-00 for ; Sat, 05 Jul 2003 19:22:44 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19YqtF-0007F4-00 for ; Sat, 05 Jul 2003 19:32:01 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.20) id 19Yqju-0006vF-IO for emacs-devel@quimby.gnus.org; Sat, 05 Jul 2003 13:22:22 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19Yqjb-0006uD-U9 for emacs-devel@gnu.org; Sat, 05 Jul 2003 13:22:03 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19YqjD-0006EC-Sb for emacs-devel@gnu.org; Sat, 05 Jul 2003 13:21:42 -0400 Original-Received: from main.gmane.org ([80.91.224.249]) by monty-python.gnu.org with esmtp (Exim 4.20) id 19Yqir-0005Mf-HE for emacs-devel@gnu.org; Sat, 05 Jul 2003 13:21:17 -0400 Original-Received: from root by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 19YqiF-0001uH-00 for ; Sat, 05 Jul 2003 19:20:39 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: emacs-devel@gnu.org Original-Received: from news by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 19Yqg6-0001kk-00 for ; Sat, 05 Jul 2003 19:18:26 +0200 Original-Lines: 31 Original-X-Complaints-To: usenet@main.gmane.org User-Agent: Wanderlust/2.11.3 (Wonderwall) KARAMI/1.14.2 (TABASCO) FLIM/1.14.5 (=?ISO-2022-JP?B?GyRCPVBELkx4GyhC?=) APEL/10.5 Emacs/21.2 (i386-debian-linux-gnu) MULE/5.0 (=?ISO-2022-JP?B?GyRCOC1MWhsoQg==?=) X-Face: wLZki+KbGjgKe0,<&3g*rA|R**vj[a8L%[v]ecJh1L(Uqm|LBx; v7Nq7n%?0d.aS]F#[~C\!{m?m,C&#U5}$_pZvBR>5VmX1Ol0`P\M-U8`sUF<5Quj'z&zzW8r|Zl9#W7Wut3duYzpKrP{n+AbarKtJ!i"Al7]P;-?[=iBZa*]r=>C':0~JECx]IH+RXq=/hUX}MB9e]oQKBxsDd/ X-Weather: =?ISO-2022-JP?B?GyRCOiNGfCROQmc6ZUlcJE9GXjt+ITkxKyRHJDkbKEI=?= X-SKK: Daredevil SKK/12.1.1 (Okamachi) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:15389 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:15389 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. Index: mule-cmds.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v retrieving revision 1.237 diff -u -r1.237 mule-cmds.el --- mule-cmds.el 29 Jun 2003 10:36:59 -0000 1.237 +++ mule-cmds.el 5 Jul 2003 17:10:11 -0000 @@ -1707,7 +1707,9 @@ (if (symbolp language-name) (setq language-name (symbol-name language-name))) (setq language-name "English")) - (or (assoc-ignore-case language-name language-info-alist) + (or (setq language-name + (car-safe + (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 Regards, -- Yoichi Nakayama