diff options
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua')
-rw-r--r-- | Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua index 4c6c3b6bd7a..47b4aec1d00 100644 --- a/Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua +++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-direction.lua @@ -1113,21 +1113,18 @@ do end end end - local getbox, shipout = tex.getbox, tex.shipout - local setbox, copy = node.direct.setbox, node.direct.copy - local afbox - function luatexja.direction.shipout() + local copy = node.direct.copy + function luatexja.direction.shipout_lthook (head) start_time_measure 'box_primitive_hook' - if (not afbox) and luatexja.afbox_number then afbox = luatexja.afbox_number end - local a = to_direct(getbox 'ltj@afbox') + local a = to_direct(head) local a_dir = get_box_dir(a, dir_yoko) if a_dir~=dir_yoko then local b = create_dir_node(a, a_dir, dir_yoko, false) setfield(b, 'head', a); a = b end setfield(shipout_temp, 'head', a); finalize_inner(shipout_temp) - setbox(afbox, copy(getlist(shipout_temp))); setfield(shipout_temp, 'head',nil) - shipout(afbox) + a = copy(getlist(shipout_temp)); setfield(shipout_temp, 'head',nil) stop_time_measure 'box_primitive_hook' + return to_node(a) end end |