From 2e657baa195eb8a5011a0f08eeb32bd3396ea1bf Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 25 Jun 2020 12:13:32 +0200
Subject: 2020-06-25 10:58:00

---
 tex/context/base/mkiv/strc-itm.mklx | 42 ++++++++++++++++++++++---------------
 1 file changed, 25 insertions(+), 17 deletions(-)

(limited to 'tex/context/base/mkiv/strc-itm.mklx')

diff --git a/tex/context/base/mkiv/strc-itm.mklx b/tex/context/base/mkiv/strc-itm.mklx
index 2f3cc8425..3d1861d12 100644
--- a/tex/context/base/mkiv/strc-itm.mklx
+++ b/tex/context/base/mkiv/strc-itm.mklx
@@ -1321,6 +1321,7 @@
 \letvalue{\??itemgroupstart\v!ran }\strc_itemgroups_start_edge
 \letvalue{\??itemgroupstart\v!its }\strc_itemgroups_start_items
 \letvalue{\??itemgroupstart\v!mar }\strc_itemgroups_start_margin
+\letvalue{\??itemgroupstart\v!txt }\strc_itemgroups_start_text
 
 \def\optimizelistitemsbreak
   {\ifcase\c_strc_itemgroups_column_depth
@@ -1578,6 +1579,11 @@
 
 \appendtoks
     \let\item            \strc_itemgroups_start_do_item
+    \let\sub             \strc_itemgroups_start_subitem
+    \let\sym             \strc_itemgroups_start_symbol
+    \let\ran             \strc_itemgroups_start_edge
+    \let\its             \strc_itemgroups_start_items
+    \let\mar             \strc_itemgroups_start_margin
     \let\noitem          \strc_itemgroups_start_no_item
     \let\itm             \strc_itemgroups_start_do_item
     \let\but             \strc_itemgroups_start_button
@@ -1588,27 +1594,29 @@
     \let\startitem       \startitemgroupitem
     \let\stopitem        \stopitemgroupitem
     \let\starthead       \startitemgrouphead
-    \let\stophead        \stopitemgroupitemhead
+    \let\stophead        \stopitemgrouphead
     \let\startspecialitem\startspecialitemgroupitem
     \let\stopspecialitem \stopspecialitemgroupitem
 \to \itemgroupcommands
 
-\ifx\currentinterface \v!english \else
-
-    \appendtoks
-        \expandafter\let\csname\v!item        \endcsname\strc_itemgroups_start_do_item
-        \expandafter\let\csname\v!sub         \endcsname\strc_itemgroups_start_subitem
-        \expandafter\let\csname\v!sym         \endcsname\strc_itemgroups_start_symbol
-        \expandafter\let\csname\v!ran         \endcsname\strc_itemgroups_start_edge
-        \expandafter\let\csname\v!head        \endcsname\strc_itemgroups_head
-        \expandafter\let\csname\v!its         \endcsname\strc_itemgroups_start_items
-        \expandafter\let\csname\v!mar         \endcsname\strc_itemgroups_start_margin
-        \expandafter\let\csname\v!txt         \endcsname\strc_itemgroups_start_text
-        \expandafter\let\csname\e!start\v!item\endcsname\startitemgroupitem
-        \expandafter\let\csname\e!stop \v!item\endcsname\stopitemgroupitem
-        \expandafter\let\csname\e!start\v!head\endcsname\startitemgrouphead
-        \expandafter\let\csname\e!stop \v!head\endcsname\stopitemgrouphead
-    \to \itemgroupcommands
+\ifx\currentinterface \s!english \else
+
+    \def\next#1#2{\ifcsname#1\endcsname\else\let\csname#1\endcsname#2\fi}
+
+    \etoksapp\itemgroupcommands{%
+        \next{\v!item        }\strc_itemgroups_start_do_item
+        \next{\v!sub         }\strc_itemgroups_start_subitem
+        \next{\v!sym         }\strc_itemgroups_start_symbol
+        \next{\v!ran         }\strc_itemgroups_start_edge
+        \next{\v!head        }\strc_itemgroups_head
+        \next{\v!its         }\strc_itemgroups_start_items
+        \next{\v!mar         }\strc_itemgroups_start_margin
+        \next{\v!txt         }\strc_itemgroups_start_text
+        \next{\e!start\v!item}\startitemgroupitem
+        \next{\e!stop \v!item}\stopitemgroupitem
+        \next{\e!start\v!head}\startitemgrouphead
+        \next{\e!stop \v!head}\stopitemgrouphead
+    }
 
 \fi
 
-- 
cgit v1.2.3