From 8047a470ef35faeafe18de166f773a78097b3fc2 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 17 Jun 2018 16:07:09 +0000
Subject: Fix [53cad613d8a4de166e680f09a6c6399ebddbc17c|53cad613d8]: TIP 389
 implementation makes Tk tests font-4.12 and font-4.15 fail. (Fix it in 8.6
 too, for benefit of androwish)

---
 generic/tclParse.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/generic/tclParse.c b/generic/tclParse.c
index f2cf322..fc7f77b 100644
--- a/generic/tclParse.c
+++ b/generic/tclParse.c
@@ -991,6 +991,14 @@ TclParseBackslash(
     if (readPtr != NULL) {
 	*readPtr = count;
     }
+#if TCL_UTF_MAX >= 4
+    if ((result & 0xFC00) == 0xD800) {
+	dst[2] = (char) ((result | 0x80) & 0xBF);
+	dst[1] = (char) (((result >> 6) | 0x80) & 0xBF);
+	dst[0] = (char) ((result >> 12) | 0xE0);
+	return 3;
+    }
+#endif
     return Tcl_UniCharToUtf(result, dst);
 }
 
-- 
cgit v0.12