diff options
author | Hans Hagen <pragma@wxs.nl> | 2017-01-27 16:14:16 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2017-01-27 16:14:16 +0100 |
commit | 95a1799032dc61dbca4a11e495be34b4397c8fec (patch) | |
tree | 4b24bf117a90ba704dedf19ab1b1a734d78f4e45 /tex/context/base/mkiv/typo-pag.lua | |
parent | 0cfeab235554eeee0dddd6c3f44d3939ab490ff1 (diff) | |
download | context-95a1799032dc61dbca4a11e495be34b4397c8fec.tar.gz |
2017-01-27 14:46:00
Diffstat (limited to 'tex/context/base/mkiv/typo-pag.lua')
-rw-r--r-- | tex/context/base/mkiv/typo-pag.lua | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tex/context/base/mkiv/typo-pag.lua b/tex/context/base/mkiv/typo-pag.lua index 355becff6..063b5214a 100644 --- a/tex/context/base/mkiv/typo-pag.lua +++ b/tex/context/base/mkiv/typo-pag.lua @@ -35,6 +35,7 @@ local getprev = nuts.getprev local getid = nuts.getid local getattr = nuts.getattr local setattr = nuts.setattr +local getwhd = nuts.getwhd local insert_node_after = nuts.insert_after local new_penalty = nuts.pool.penalty @@ -118,7 +119,8 @@ local function keeptogether(start,a) while current do local id = getid(current) if id == vlist_code or id == hlist_code then - total = total + getfield(current,"height") + getfield(current,"depth") + local wd, ht, dp = getwhd(current) + total = total + ht + dp if trace_keeptogether then report_keeptogether("%s, index %s, total %p, threshold %p","list",a,total,threshold) end |