diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-19 20:17:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-19 20:17:01 (GMT) |
| commit | be2eb79067e63e0345d94834e85f6f7ecf659625 (patch) | |
| tree | c4d124aeabc00a9b783dbe865fb4863df753117e /generic/tclStringObj.c | |
| parent | a3632778ce4707fa88124136b1fa8f078b7eff1c (diff) | |
| parent | b752d879c75b2b284c39120f000ad906c7506b87 (diff) | |
| download | tcl-be2eb79067e63e0345d94834e85f6f7ecf659625.zip tcl-be2eb79067e63e0345d94834e85f6f7ecf659625.tar.gz tcl-be2eb79067e63e0345d94834e85f6f7ecf659625.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 8e3816b..a4f442f 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1952,7 +1952,7 @@ Tcl_AppendFormatToObj( } length = Tcl_UniCharToUtf(code, buf); if (!length) { - /* Special case for handling upper surrogates. */ + /* Special case for handling high surrogates. */ length = Tcl_UniCharToUtf(-1, buf); } segment = Tcl_NewStringObj(buf, length); |