From d6c24a529d922ac67d2a30595c52b6b9547dce77 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 26 Sep 2018 15:15:30 +0200
Subject: 2018-09-26 14:34:00

---
 tex/context/base/mkiv/strc-sec.mkiv | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/tex/context/base/mkiv/strc-sec.mkiv b/tex/context/base/mkiv/strc-sec.mkiv
index 637db03f4..8f6038da7 100644
--- a/tex/context/base/mkiv/strc-sec.mkiv
+++ b/tex/context/base/mkiv/strc-sec.mkiv
@@ -869,6 +869,9 @@
 
 \ifdefined\triggerautostructurelevel \else \let\triggerautostructurelevel\relax \fi
 
+\newtoks\everybeforesectionheadhandle
+\newtoks\everyaftersectionheadhandle
+
 \def\strc_sectioning_handle#1#2#3% name data userdata (we can move #1 to the caller)
   {\xdef\currenthead        {#1}%
    \xdef\currentheadcoupling{\sectionheadcoupling\currenthead}%
@@ -882,7 +885,7 @@
    \strc_sectioning_initialize_placement
    \strc_sectioning_initialize_number
    %
-   \flushingcolumnfloatsfalse
+   \the\everybeforesectionheadhandle
    %
    % todo: also mark (for header)
    %
@@ -968,7 +971,9 @@
        \strc_sectioning_after_nop
      \fi\fi
    \fi
-   \flushingcolumnfloatstrue
+   %
+   \the\everyaftersectionheadhandle
+   %
    \setfalse\c_strc_sectioning_ignore_page
    % ignorespaces prevents spaces creeping in when after=\dontleavehmode
    \dostarttagged\t!sectioncontent\empty
-- 
cgit v1.2.3