summaryrefslogtreecommitdiffstats
path: root/generic/tclEncoding.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclEncoding.c')
-rw-r--r--generic/tclEncoding.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index 32878b0..f9f93fe 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -3961,11 +3961,8 @@ EscapeToUtfProc(
if ((checked == dataPtr->numSubTables + 2)
|| (flags & TCL_ENCODING_END)) {
if (!PROFILE_STRICT(flags)) {
- /*
- * Skip the unknown escape sequence. TODO - bug?
- * May be replace with UNICODE_REPLACE_CHAR?
- */
-
+ /* Unknown escape sequence */
+ dst += Tcl_UniCharToUtf(UNICODE_REPLACE_CHAR, dst);
src += longest;
continue;
}