From 50eeabb1014676f4bcc1fe38a06a5d3ef8806044 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 19 Jul 2023 13:04:51 +0000
Subject: Bugfix for escape-encoding, 'stolen' from TIP #671 branch

---
 generic/tclEncoding.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index 539b520..deaabaa 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -3961,9 +3961,10 @@ EscapeToUtfProc(
 	    if ((checked == dataPtr->numSubTables + 2)
 		    || (flags & TCL_ENCODING_END)) {
 		if (!PROFILE_STRICT(flags)) {
+		    unsigned skip = longest > left ? left : longest;
 		    /* Unknown escape sequence */
 		    dst += Tcl_UniCharToUtf(UNICODE_REPLACE_CHAR, dst);
-		    src += longest;
+		    src += skip;
 		    continue;
 		}
 		result = TCL_CONVERT_SYNTAX;
-- 
cgit v0.12