2019-11-25 17:37:00

1 files changed, 27 insertions, 6 deletions

diff --git a/tex/context/base/mkiv/node-aux.lua b/tex/context/base/mkiv/node-aux.lua
index e116a2cdc..ef884987b 100644
--- a/tex/context/base/mkiv/node-aux.lua
+++ b/tex/context/base/mkiv/node-aux.lua
@@ -473,13 +473,34 @@ end
 --     end
 -- end
 
-function nuts.setparproperty(action,...)
-    local tail = tonut(texnest[texnest.ptr].tail)
-    while tail do
-        if getid(tail) == localpar_code then
-            return action(tail,...)
-        else
+do
+
+    local localparcodes = nodes.localparcodes
+    local hmodepar_code = localparcodes.vmode_par
+    local vmodepar_code = localparcodes.hmode_par
+
+    local getsubtype    = nuts.getsubtype
+
+    function nuts.setparproperty(action,...)
+        local tail = tonut(texnest[texnest.ptr].tail)
+        while tail do
+            if getid(tail) == localpar_code then
+                local s = getsubtype(tail)
+                if s == hmodepar_code or s == vmodepar_code then
+                    return action(tail,...)
+                else
+                    -- something is wrong here
+                end
+            end
             tail = getprev(tail)
         end
     end
+
+    local getsubtype = nodes.getsubtype
+
+    function nodes.start_of_par(n)
+        local s = getsubtype(n)
+        return s == hmodepar_code or s == vmodepar_code
+    end
+
 end