From 0a5f59a9aa25b3de7e9659b39ad201aaf7eb5a67 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 27 Sep 2019 20:24:34 +0200
Subject: 2019-09-27 18:10:00

---
 tex/context/base/mkiv/strc-itm.mklx | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 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 eeeb5ce00..e5458b5dd 100644
--- a/tex/context/base/mkiv/strc-itm.mklx
+++ b/tex/context/base/mkiv/strc-itm.mklx
@@ -198,6 +198,7 @@
 \newconditional\c_strc_itemgroups_txt
 \newconditional\c_strc_itemgroups_extra
 \newconditional\c_strc_itemgroups_repeat
+\newconditional\c_strc_itemgroups_inline_head
 
 % 0 = before/after
 % 1 = between unless before
@@ -440,6 +441,7 @@
                                                \setitemgroupparameter\c!width{0em}%
                                              \fi} % signal
 \setvalue{\??itemgroupkeyword\v!intext     }{\settrue\c_strc_itemgroups_inline}
+\setvalue{\??itemgroupkeyword\v!headintext }{\settrue\c_strc_itemgroups_inline_head}
 \setvalue{\??itemgroupkeyword\v!loose      }{\setfalse\c_strc_itemgroups_optimize}
 \setvalue{\??itemgroupkeyword\v!fit        }{\settrue\c_strc_itemgroups_fitting}
 \setvalue{\??itemgroupkeyword\v!nofit      }{\setfalse\c_strc_itemgroups_fitting}
@@ -1211,19 +1213,25 @@
 \unexpanded\def\strc_itemgroups_stop_head_indeed
   {\removeunwantedspaces
    \dostoptagged
-   \ifconditional\c_strc_itemgroups_text
-     \space
-     \ignorespaces
+   \ifconditional\c_strc_itemgroups_inline_head
+       \space
+       \ignorespaces
    \else
-     \par
-   \fi
-   \strc_itemgroups_insert_breakno
-   \ifconditional\c_strc_itemgroups_pack\else\strc_itemgroups_after_head_command\fi
-   \strc_itemgroups_insert_breakno}
+     \ifconditional\c_strc_itemgroups_text
+       \space
+       \ignorespaces
+     \else
+       \par
+     \fi
+     \strc_itemgroups_insert_breakno
+     \ifconditional\c_strc_itemgroups_pack\else\strc_itemgroups_after_head_command\fi
+     \strc_itemgroups_insert_breakno
+  \fi}
 
 \unexpanded\def\strc_itemgroups_head_body_indeed
   {\dostarttagged\t!itembody\empty
-   \noindentation}
+   \noindentation
+   \ignorespaces}
 
 % Simple commands.
 
-- 
cgit v1.2.3