summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/pack-rul.lmt
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkxl/pack-rul.lmt')
-rw-r--r--tex/context/base/mkxl/pack-rul.lmt11
1 files changed, 10 insertions, 1 deletions
diff --git a/tex/context/base/mkxl/pack-rul.lmt b/tex/context/base/mkxl/pack-rul.lmt
index e5b2887ba..d99f0a78e 100644
--- a/tex/context/base/mkxl/pack-rul.lmt
+++ b/tex/context/base/mkxl/pack-rul.lmt
@@ -57,6 +57,7 @@ local getboxglue = nuts.getboxglue
local hpack = nuts.hpack
local getdimensions = nuts.dimensions
+local naturalhsize = nuts.naturalhsize
local flush_node = nuts.flush
local traversers = nuts.traversers
@@ -97,7 +98,15 @@ local function doreshapeframedbox(n)
if list then
if id == hlist_code then
if subtype == boxlist_code or subtype == linelist_code then
- lastlinelength = getdimensions(list)
+ -- the fast one also returns compensation (plus node)
+ local w, c, n = naturalhsize(list)
+ if n then
+ -- can become an option in framed: strict
+ w = w - c
+ else
+ -- print("no compensation found")
+ end
+ lastlinelength = w
else
lastlinelength = width
end