beta 2011.11.09 20:58

1 files changed, 46 insertions, 42 deletions

diff --git a/tex/context/base/tabl-tsp.mkiv b/tex/context/base/tabl-tsp.mkiv
index 2e89aa2d8..639751dcd 100644
--- a/tex/context/base/tabl-tsp.mkiv
+++ b/tex/context/base/tabl-tsp.mkiv
@@ -28,23 +28,57 @@
 
 % there is no need for a tracked structure number here
 
+%D When \type {inbetween} is made empty instead of the
+%D default \type {\page}, we will get delayed flushing
+%D and text may continue below the graphic.
+%D
+%D \starttyping
+%D \dorecurse{2}{\input tufte }
+%D
+%D \splitfloat[lines=auto,inbetween=]
+%D   {\placetable{\dorecurse{5}{test\recurselevel\endgraf}}}
+%D   {\bTABLE[split=yes]
+%D    \bTR \bTD 11 \eTD \bTD \input tufte \eTD \eTR
+%D    \bTR \bTD 12 \eTD \bTD \input zapf \eTD \eTR
+%D    \bTR \bTD 13 \eTD \bTD \input bryson \eTD \eTR
+%D    \bTR \bTD 14 \eTD \bTD test  \eTD \eTR
+%D    \bTR \bTD 21 \eTD \bTD \input tufte \eTD \eTR
+%D    \bTR \bTD 22 \eTD \bTD \input zapf \eTD \eTR
+%D    \bTR \bTD 23 \eTD \bTD \input bryson \eTD \eTR
+%D    \bTR \bTD 24 \eTD \bTD test  \eTD \eTR
+%D    \bTR \bTD 31 \eTD \bTD \input tufte \eTD \eTR
+%D    \bTR \bTD 32 \eTD \bTD \input zapf \eTD \eTR
+%D    \bTR \bTD 33 \eTD \bTD \input bryson \eTD \eTR
+%D    \bTR \bTD 34 \eTD \bTD test  \eTD \eTR
+%D    \eTABLE}
+%D
+%D \dorecurse{10}{\input tufte }
+%D \stoptyping
+
 \newcount\noffloatssplits
 
-\unexpanded\def\setupfloatsplitting
-  {\dodoubleargument\getparameters[\??si]}
+\settrue \onlyonesplitofffloat
+\setfalse\somenextsplitofffloat
+
+\newconditional\splitfloatdone
 
 \newif\ifinsidesplitfloat % will become chardef
 
-\newtoks \everysplitfloatsetup
+\newtoks\everysplitfloatsetup
 
-\def\splitfloat
-  {\dosingleempty\dosplitfloat}
+\def\extrasplitfloatlines{0}
+
+\let\splitfloatfinalizer\relax
 
 \ifx\floatcaptionsuffix\undefined \else
   \let\floatcaptionsuffix\empty % will become \splitfloatcaptionsuffix
 \fi
 
-\def\extrasplitfloatlines{0}
+\unexpanded\def\setupfloatsplitting
+  {\dodoubleargument\getparameters[\??si]}
+
+\unexpanded\def\splitfloat
+  {\dosingleempty\dosplitfloat}
 
 \def\dosplitfloat[#1]#2% nog dubbele refs
   {\bgroup
@@ -64,44 +98,14 @@
    \@@sibefore
    \let\next} % \bgroup
 
-\def\checksplitfloat
-  {\ifconditional\splitfloatdone\else
-      \blank{\tttf \getmessage\m!floatblocks{13}\empty}\blank
-      \showmessage\m!floatblocks{13}\empty
+\unexpanded\def\checksplitfloat
+  {\ifconditional\splitfloatdone
+     \splitfloatfinalizer % a weird place (could interfere with flushing)
+   \else
+     \blank{\tttf \getmessage\m!floatblocks{13}\empty}\blank
+     \showmessage\m!floatblocks{13}\empty
    \fi}
 
-\settrue \onlyonesplitofffloat
-\setfalse\somenextsplitofffloat
-
-%D When \type {inbetween} is made empty instead of the
-%D default \type {\page}, we will get delayed flushing
-%D and text may continue below the graphic.
-%D
-%D \starttyping
-%D \dorecurse{2}{\input tufte }
-%D
-%D \splitfloat[lines=auto,inbetween=]
-%D   {\placetable{\dorecurse{5}{test\recurselevel\endgraf}}}
-%D   {\bTABLE[split=yes]
-%D    \bTR \bTD 11 \eTD \bTD \input tufte \eTD \eTR
-%D    \bTR \bTD 12 \eTD \bTD \input zapf \eTD \eTR
-%D    \bTR \bTD 13 \eTD \bTD \input bryson \eTD \eTR
-%D    \bTR \bTD 14 \eTD \bTD test  \eTD \eTR
-%D    \bTR \bTD 21 \eTD \bTD \input tufte \eTD \eTR
-%D    \bTR \bTD 22 \eTD \bTD \input zapf \eTD \eTR
-%D    \bTR \bTD 23 \eTD \bTD \input bryson \eTD \eTR
-%D    \bTR \bTD 24 \eTD \bTD test  \eTD \eTR
-%D    \bTR \bTD 31 \eTD \bTD \input tufte \eTD \eTR
-%D    \bTR \bTD 32 \eTD \bTD \input zapf \eTD \eTR
-%D    \bTR \bTD 33 \eTD \bTD \input bryson \eTD \eTR
-%D    \bTR \bTD 34 \eTD \bTD test  \eTD \eTR
-%D    \eTABLE}
-%D
-%D \dorecurse{10}{\input tufte }
-%D \stoptyping
-
-\newconditional\splitfloatdone
-
 \def\dodowithsplitofffloat
   {\dowithnextbox
      {\forgetall