- box.glue_set, box.glue_order, box.head = 0, 0, p
- box.shift = y_shift; box.dir = dir or 'TLT'
- set_attr(box, attr_icflag, PACKED)
- set_attr(box, attr_uniqid, has_attr(p, attr_uniqid) or 0)
- if q then
- head = node_insert_before(head, q, box)
- else
- head = node_insert_after(head, node_tail(head), box)
- end
+ box.head, box.shift, box.dir = p, y_shift, (dir or 'TLT')
+ --box.glue_set, box.glue_order = 0, 0 not needed
+ 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)