[Rd] small mistake of tcltk

[Ei-ji Nakama]

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>