From 0aa14799b67298a50dd2c31c249622915e103994 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Tue, 26 May 2020 00:22:02 +0200
Subject: 2020-05-25 23:38:00

---
 tex/context/base/mkiv/supp-box.lua | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'tex/context/base/mkiv/supp-box.lua')

diff --git a/tex/context/base/mkiv/supp-box.lua b/tex/context/base/mkiv/supp-box.lua
index e547c8710..8c615b528 100644
--- a/tex/context/base/mkiv/supp-box.lua
+++ b/tex/context/base/mkiv/supp-box.lua
@@ -825,3 +825,27 @@ implement {
         context(limitate(t))
     end,
 }
+
+if CONTEXTLMTXMODE > 0 then
+
+
+    interfaces.implement {
+        name      = "widthuptohere",
+        public    = true,
+        protected = true,
+        value     = true,
+        actions   = function()
+            local n = tex.getnest()
+            local w = 0
+            if n.mode == tex.modelevels.horizontal then
+                local h = nodes.hpack(n.head.next)
+                w = h.width
+                h.list = nil
+                nodes.free(h)
+            end
+            return tokens.values.dimension, w
+        end,
+    }
+
+
+end
-- 
cgit v1.2.3