From 4d0bc87fb41014bd1ca72ebc565ac4d6b8230bd4 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 4 Jul 2022 08:31:08 +0000
Subject: Add TCL_COMBINE, just a NOP for now (will get a meaning in 9.0

---
 generic/tcl.h | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/generic/tcl.h b/generic/tcl.h
index d53c0f2..d99e9fa 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -993,6 +993,13 @@ typedef struct Tcl_DString {
 #define TCL_INDEX_TEMP_TABLE	64
 
 /*
+ * Flags that may be passed to Tcl_UniCharToUtf.
+ * TCL_COMBINE Combine surrogates (default in Tcl 8.x)
+ */
+
+#define TCL_COMBINE		0
+
+/*
  *----------------------------------------------------------------------------
  * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv.
  * WARNING: these bit choices must not conflict with the bit choices for
-- 
cgit v0.12