diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-06-25 12:13:32 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-06-25 12:13:32 +0200 |
commit | 2e657baa195eb8a5011a0f08eeb32bd3396ea1bf (patch) | |
tree | 183b7c9ce7a4f897c57743d6bbfe31ab0db42495 /tex/context/base/mkiv/strc-itm.mklx | |
parent | 56c53b52bfa815946a62fdb28ee432b5d849b9c9 (diff) | |
download | context-2e657baa195eb8a5011a0f08eeb32bd3396ea1bf.tar.gz |
2020-06-25 10:58:00
Diffstat (limited to 'tex/context/base/mkiv/strc-itm.mklx')
-rw-r--r-- | tex/context/base/mkiv/strc-itm.mklx | 42 |
1 files changed, 25 insertions, 17 deletions
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 |