===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mandoc/mdoc_validate.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -c -r1.40 -r1.41
*** src/usr.bin/mandoc/mdoc_validate.c	2009/12/23 22:30:17	1.40
--- src/usr.bin/mandoc/mdoc_validate.c	2010/01/01 22:20:24	1.41
***************
*** 1,4 ****
! /*	$Id: mdoc_validate.c,v 1.40 2009/12/23 22:30:17 schwarze Exp $ */
  /*
   * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
   *
--- 1,4 ----
! /*	$Id: mdoc_validate.c,v 1.41 2010/01/01 22:20:24 schwarze Exp $ */
  /*
   * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
   *
***************
*** 1082,1092 ****
  	if (NULL == mdoc->last->child)
  		return(1);
  
  	/* LINTED */
  	for (n = mdoc->last->child; n; n = n->next) {
! 		if (MDOC_BLOCK == n->type) 
! 			if (MDOC_It == n->tok)
! 				continue;
  		return(mdoc_nerr(mdoc, n, EBADCHILD));
  	}
  
--- 1082,1099 ----
  	if (NULL == mdoc->last->child)
  		return(1);
  
+ 	/*
+ 	 * We only allow certain children of `Bl'.  This is usually on
+ 	 * `It', but apparently `Sm' occurs here and there, so we let
+ 	 * that one through, too.
+ 	 */
+ 
  	/* LINTED */
  	for (n = mdoc->last->child; n; n = n->next) {
! 		if (MDOC_BLOCK == n->type && MDOC_It == n->tok)
! 			continue;
! 		if (MDOC_Sm == n->tok)
! 			continue;
  		return(mdoc_nerr(mdoc, n, EBADCHILD));
  	}