HTML output: refine handling of a table in a bullet

Avoid a blank bullet line when an item start with a "boxed"
table for `defform` and similar.
This commit is contained in:
Matthew Flatt 2015-12-21 15:35:34 -07:00
parent 63f8793e78
commit 668e3799bd

View File

@ -1679,7 +1679,7 @@
(style->attribs (table-style t)
(append
(if starting-item?
'([style "display: inline-table; vertical-align: text-top;"])
'([style "display: inline-table; vertical-align: text-top; margin-top: 0;"])
null)
(if (for/or ([cell-styles (in-list cell-styless)])
(for/or ([cell-style (in-list cell-styles)])