From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kenichi Handa Newsgroups: gmane.emacs.devel Subject: Re: set-language-environment Date: Fri, 11 Jul 2003 11:45:06 +0900 (JST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200307110245.LAA08932@etlken.m17n.org> References: <87llvcopox.wl%yoichi@geiin.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya") Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1057891833 1065 80.91.224.249 (11 Jul 2003 02:50:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 11 Jul 2003 02:50:33 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri Jul 11 04:50:28 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 19anzQ-0000Gq-00 for ; Fri, 11 Jul 2003 04:50:28 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19aoB1-00067S-00 for ; Fri, 11 Jul 2003 05:02:27 +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 19anzv-0001IP-V2 for emacs-devel@quimby.gnus.org; Thu, 10 Jul 2003 22:50:59 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19anwd-0008Ib-C0 for emacs-devel@gnu.org; Thu, 10 Jul 2003 22:47:35 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19anvJ-0006sr-OP for emacs-devel@gnu.org; Thu, 10 Jul 2003 22:46:14 -0400 Original-Received: from tsukuba.m17n.org ([192.47.44.130]) by monty-python.gnu.org with esmtp (Exim 4.20) id 19anuK-0006OX-By for emacs-devel@gnu.org; Thu, 10 Jul 2003 22:45:12 -0400 Original-Received: from fs.m17n.org (fs.m17n.org [192.47.44.2]) by tsukuba.m17n.org (8.11.6p2/3.7W-20010518204228) with ESMTP id h6B2j7u21687; Fri, 11 Jul 2003 11:45:07 +0900 (JST) (envelope-from handa@m17n.org) Original-Received: from etlken.m17n.org (etlken.m17n.org [192.47.44.125]) by fs.m17n.org (8.11.6/3.7W-20010823150639) with ESMTP id h6B2j7901372; Fri, 11 Jul 2003 11:45:07 +0900 (JST) Original-Received: (from handa@localhost) by etlken.m17n.org (8.8.8+Sun/3.7W-2001040620) id LAA08932; Fri, 11 Jul 2003 11:45:06 +0900 (JST) Original-To: yoichi@geiin.org In-reply-to: <87llvcopox.wl%yoichi@geiin.org> (message from Yoichi NAKAYAMA on Sun, 06 Jul 2003 02:20:46 +0900) 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) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:15536 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:15536 In article <87llvcopox.wl%yoichi@geiin.org>, Yoichi NAKAYAMA 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 handa@m17n.org 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)))