From 58f82fce8b1f0aa48e3c1acbeed15dee999f51b9 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 27 Jul 2020 17:00:33 +0200
Subject: 2020-07-27 16:24:00

---
 tex/context/base/mkiv/page-ins.mkiv | 43 +++++++++++++++++++++++++++++++------
 1 file changed, 36 insertions(+), 7 deletions(-)

(limited to 'tex/context/base/mkiv/page-ins.mkiv')

diff --git a/tex/context/base/mkiv/page-ins.mkiv b/tex/context/base/mkiv/page-ins.mkiv
index 3b473343a..bac31476c 100644
--- a/tex/context/base/mkiv/page-ins.mkiv
+++ b/tex/context/base/mkiv/page-ins.mkiv
@@ -38,6 +38,31 @@
    %c!factor=\plusthousand,
    \c!location=\v!page]
 
+\newconstant\insertionmigrationmode
+
+\def\page_inserts_check_anchoring
+  {\edef\p_anchoring{\namedinsertionparameter\empty\c!anchoring}%
+   \insertionmigrationmode\ifx\p_anchoring\v!auto\plusone\else\zerocount\fi
+   \clf_setinsertmigration{\p_anchoring}}
+
+\appendtoks
+    \ifx\currentinsertionparent\empty
+        \page_inserts_check_anchoring
+    \fi
+\to \everysetupinsertion
+
+\ifcase\contextlmtxmode
+    \setupinsertion
+      [\c!anchoring=\v!none]
+\else
+    \setupinsertion
+      [\c!anchoring=\v!auto]
+\fi
+
+\appendtoks
+    \page_inserts_check_anchoring
+\to \everystarttext % or \everyjob
+
 \newcount\currentinsertionnumber % This is a count and not a macro !
 
 \newtoks\t_page_inserts_list
@@ -63,7 +88,9 @@
 % \floatingpenalty\zerocount
 
 \appendtoks
-    \page_inserts_synchronize_registers
+    \ifx\currentinsertionparent\empty \else
+        \page_inserts_synchronize_registers
+    \fi
 \to \everysetupinsertion
 
 \unexpanded\def\page_inserts_process#1% beware, this adapts currentinsertion !
@@ -131,12 +158,14 @@
 \to \everydefineinsertion
 
 \appendtoks
-    \clf_setupinsertion
-      {\currentinsertion}
-      {%
-        location {\insertionparameter\c!location}%
-      }%
-    \relax
+    \ifx\currentinsertionparent\empty \else
+        \clf_setupinsertion
+          {\currentinsertion}
+          {%
+            location {\insertionparameter\c!location}%
+          }%
+        \relax
+    \fi
 \to \everysetupinsertion
 
 \unexpanded\def\page_inserts_set_location#1#2% fast one
-- 
cgit v1.2.3