From nakama at ki.rim.or.jp  Thu Apr 29 17:26:44 2010
From: nakama at ki.rim.or.jp (Ei-ji Nakama)
Date: Fri, 30 Apr 2010 00:26:44 +0900
Subject: [Rd] small mistake of tcltk
Message-ID: <j2sdc41e1261004290826l467c7fa8v5fc443565bb4223f@mail.gmail.com>

Hi,

All Japanese encoding was all right if fixed the following.

--- R-2.11.0.orig/src/library/tcltk/src/tcltk.c	2010-03-31
07:10:02.000000000 +0900
+++ R-2.11.0.work/src/library/tcltk/src/tcltk.c	2010-04-29
23:48:55.000000000 +0900
@@ -349,7 +349,7 @@
 	    elem = Tcl_NewObj();
 	    Tcl_DStringInit(&s_ds);
 	    s = Tcl_ExternalToUtfDString(encoding,
-					 (Cchar *) translateChar(STRING_ELT(val, i)),
+					 (Cchar *) translateCharUTF8(STRING_ELT(val, i)),
 					 -1, &s_ds);
 	    Tcl_SetStringObj(elem, s, -1);
 	    Tcl_DStringFree(&s_ds);

-- 
EI-JI Nakama  <nakama (a) ki.rim.or.jp>
"\u4e2d\u9593\u6804\u6cbb"  <nakama (a) ki.rim.or.jp>



[Rd] small mistake of tcltk
Ei-ji Nakama