diff options
author | Hans Hagen <pragma@wxs.nl> | 2018-08-28 17:36:57 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-08-28 17:36:57 +0200 |
commit | 5794d8b0c845aad2ab4cf36dc14201b21ef5a784 (patch) | |
tree | 0ed7f952d69e07a2a885f76fcb7f24499dd20768 /tex/context/base/mkiv/anch-pos.lua | |
parent | b098b3973dd4a38184882a4a5b84aad2bdd5835a (diff) | |
download | context-5794d8b0c845aad2ab4cf36dc14201b21ef5a784.tar.gz |
2018-08-28 17:29:00
Diffstat (limited to 'tex/context/base/mkiv/anch-pos.lua')
-rw-r--r-- | tex/context/base/mkiv/anch-pos.lua | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tex/context/base/mkiv/anch-pos.lua b/tex/context/base/mkiv/anch-pos.lua index 47fee067f..11883ba59 100644 --- a/tex/context/base/mkiv/anch-pos.lua +++ b/tex/context/base/mkiv/anch-pos.lua @@ -69,9 +69,10 @@ local getbox = nuts.getbox local getid = nuts.getid local getwhd = nuts.getwhd ------ hlist_code = nodes.listcodes.hlist +local hlist_code = nodes.listcodes.hlist local find_tail = nuts.tail +local hpack = nuts.hpack local new_latelua = nuts.pool.latelua local new_latelua_node = nodes.pool.latelua @@ -565,11 +566,10 @@ local function markregionbox(n,tag,correct,...) -- correct needs checking local pop = new_latelua(function() e_region(correct) end) -- maybe we should construct a hbox first (needs experimenting) so that we can avoid some at the tex end local head = getlist(box) - -- no : - -- if getid(box) ~= hlist_code then - -- -- report("mark region box assumes a hlist, fix this for %a",tag) - -- head = nuts.hpack(head) - -- end + if getid(box) ~= hlist_code then + -- report("mark region box assumes a hlist, fix this for %a",tag) + head = hpack(head) + end if head then local tail = find_tail(head) setlink(push,head) |