-/* $Id: mdoc_term.c,v 1.54 2009/07/21 15:03:37 kristaps Exp $ */
+/* $Id: mdoc_term.c,v 1.55 2009/07/21 15:35:30 kristaps Exp $ */
/*
* Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
*
}
/*
- * XXX - not documented: a `-column' does not ever assert
- * vertical space within the list.
+ * XXX - not documented: a `-column' does not ever assert vspace
+ * within the list.
*/
if (arg_hasattr(MDOC_Column, bl))
if (node->prev && MDOC_It == node->prev->tok)
return;
+ /*
+ * XXX - not documented: a `-diag' without a body does not
+ * assert a vspace prior to the next element.
+ */
+ if (arg_hasattr(MDOC_Diag, bl))
+ if (node->prev && MDOC_It == node->prev->tok) {
+ assert(node->prev->body);
+ if (NULL == node->prev->body->child)
+ return;
+ }
+
term_vspace(p);
}