Fix unwanted wrapping.

This commit is contained in:
Dominik Pantůček 2023-06-15 21:52:52 +02:00
parent 97dd257780
commit 7335f86bb9
3 changed files with 16 additions and 9 deletions

View file

@ -197,7 +197,9 @@
;;(_ (print width-surplus))
(widths-adds (compute-weighted-width-adds width-surplus col-weights))
;;(_ (print widths-adds))
(col-widths (distribute-surplus widths-adds min-widths))
(col-widths (if width-arg
(distribute-surplus widths-adds min-widths)
col-weights))
;;(_ (print col-widths))
(tbl1 (render-cells-widths ptbl col-widths))
;;(_ (print tbl1))