diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-01-30 18:31:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-01-30 18:31:39 (GMT) |
| commit | 4e8c59b5b86150cbf86bfcd5c501190b4e29c138 (patch) | |
| tree | e970b45612132535990a45fa725565f91e4f89b6 /generic/tclEncoding.c | |
| parent | 9df81fccd3a1cfd90a732c1116cb3bf467bbe802 (diff) | |
| download | tcl-4e8c59b5b86150cbf86bfcd5c501190b4e29c138.zip tcl-4e8c59b5b86150cbf86bfcd5c501190b4e29c138.tar.gz tcl-4e8c59b5b86150cbf86bfcd5c501190b4e29c138.tar.bz2 | |
Refactor WriteChars() and WriteBytes() into simple wrappers of a common
routine Write().
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index c2f1b4b..c303dd1 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -182,6 +182,7 @@ TCL_DECLARE_MUTEX(encodingMutex) static Tcl_Encoding defaultEncoding; static Tcl_Encoding systemEncoding; +Tcl_Encoding tclIdentityEncoding; /* * The following variable is used in the sparse matrix code for a @@ -566,6 +567,7 @@ TclInitEncodingSubsystem(void) type.clientData = NULL; defaultEncoding = Tcl_CreateEncoding(&type); + tclIdentityEncoding = Tcl_GetEncoding(NULL, type.encodingName); systemEncoding = Tcl_GetEncoding(NULL, type.encodingName); type.encodingName = "utf-8"; |