Undocumented behaviour in groff: `Bl -column' implies `-compact'.

mandoc now allows fewer columns than the -width specifies.

1 files changed, 13 insertions, 4 deletions

diff --git a/mdoc_validate.c b/mdoc_validate.c
index 2c7dba22..2f1fa122 100644
--- a/mdoc_validate.c
+++ b/mdoc_validate.c
@@ -1028,11 +1028,20 @@ post_it(POST_ARGS)
 		c = mdoc->last->child;
 		for (i = 0; c && MDOC_HEAD == c->type; c = c->next)
 			i++;
-		if (i == cols)
+
+		if (i < cols) {
+			if ( ! mdoc_vwarn(mdoc, mdoc->last->line, 
+					mdoc->last->pos, "column "
+					"mismatch: have %d, want %d", 
+					i, cols))
+				return(0);
 			break;
-		return(mdoc_verr(mdoc, mdoc->last->line, mdoc->last->pos,
-				"column mismatch (have %d, want %d)", 
-				i, cols));
+		} else if (i == cols)
+			break;
+
+		return(mdoc_verr(mdoc, mdoc->last->line, 
+				mdoc->last->pos, "column mismatch: "
+				"have %d, want %d", i, cols));
 	default:
 		break;
 	}