diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-16 20:34:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-16 20:34:33 (GMT) |
| commit | 3c9c7e062138b5f21935974d667eec0ae10c346c (patch) | |
| tree | 107bc458ed879e8e17c88c3b4269ebec17c82a73 /library | |
| parent | e83fde690fb80b952bc835f68b00256f42f0b002 (diff) | |
| download | tcl-3c9c7e062138b5f21935974d667eec0ae10c346c.zip tcl-3c9c7e062138b5f21935974d667eec0ae10c346c.tar.gz tcl-3c9c7e062138b5f21935974d667eec0ae10c346c.tar.bz2 | |
Remove wtf-8/wtf-16/tcl-8 encodings
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 749eed9..e30296e 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -214,9 +214,9 @@ proc unknown args { set errInfo [dict get $opts -errorinfo] set errCode [dict get $opts -errorcode] set cinfo $args - if {[string length [encoding convertto wtf-8 $cinfo]] > 150} { + if {[string length [encoding convertto utf-8 $cinfo]] > 150} { set cinfo [string range $cinfo 0 150] - while {[string length [encoding convertto wtf-8 $cinfo]] > 150} { + while {[string length [encoding convertto utf-8 $cinfo]] > 150} { set cinfo [string range $cinfo 0 end-1] } append cinfo ... |