- local k1 = node_new(id_kern)
- setfield(k1, 'kern',
- getfield(p, 'xoffset') + ascent
- + char_data.align*(fwidth-pwidth) - fshift.left)
- local ws = node_new(id_whatsit, sid_save)
- local wm = node_new(id_whatsit, sid_matrix)
- setfield(wm, 'data', '0 1 -1 0')
- local k2 = node_new(id_kern)
- setfield(k2, 'kern', -fshift.down - fdepth)
- local k3 = node_new(id_kern)
- setfield(k3, 'kern', - getfield(p, 'width') +fshift.down + fdepth)
- local wr = node_new(id_whatsit, sid_restore)
- setfield(box, 'head', k1); setfield(k1, 'next', ws)
- setfield(ws, 'next', wm); setfield(wm, 'next', k2);
- setfield(k2, 'next', p); setfield(p, 'next', k3);
- setfield(k3, 'next', wr);
-
- set_attr(box, attr_icflag, PACKED + get_pr_begin_flag(p))
- head = q and node_insert_before(head, q, box)
- or node_insert_after(head, node_tail(head), box)
- return q
+ local y_shift
+ = - getfield(p, 'yoffset') + (has_attr(p,attr_tkblshift) or 0)
+ local q
+ head, q = node_remove(head, p)
+ local box = node_new(id_hlist)
+ setfield(box, 'width', fwidth)
+ setfield(box, 'height', fheight)
+ setfield(box, 'depth', fdepth)
+ setfield(box, 'shift', y_shift)
+ setfield(box, 'dir', dir)
+
+ local k1 = node_new(id_kern)
+ setfield(k1, 'kern',
+ getfield(p, 'xoffset') + ascent
+ + char_data.align*(fwidth-pwidth) - fshift.left)
+ local ws = node_new(id_whatsit, sid_save)
+ local wm = node_new(id_whatsit, sid_matrix)
+ setfield(wm, 'data', '0 1 -1 0')
+ local k2 = node_new(id_kern)
+ setfield(k2, 'kern', -fshift.down - fdepth)
+ local k3 = node_new(id_kern)
+ setfield(k3, 'kern', - getfield(p, 'width') +fshift.down + fdepth)
+ local wr = node_new(id_whatsit, sid_restore)
+ setfield(box, 'head', k1); setfield(k1, 'next', ws)
+ setfield(ws, 'next', wm); setfield(wm, 'next', k2);
+ setfield(k2, 'next', p); setfield(p, 'next', k3);
+ setfield(k3, 'next', wr);
+
+ set_attr(box, attr_icflag, PACKED)
+ head = q and node_insert_before(head, q, box)
+ or node_insert_after(head, node_tail(head), box)
+ return q