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