=================================================================== RCS file: /cvs/mandoc/html.c,v retrieving revision 1.264 retrieving revision 1.265 diff -u -p -r1.264 -r1.265 --- mandoc/html.c 2020/03/13 15:32:28 1.264 +++ mandoc/html.c 2020/04/06 10:16:17 1.265 @@ -1,4 +1,4 @@ -/* $Id: html.c,v 1.264 2020/03/13 15:32:28 schwarze Exp $ */ +/* $Id: html.c,v 1.265 2020/04/06 10:16:17 schwarze Exp $ */ /* * Copyright (c) 2011-2015, 2017-2020 Ingo Schwarze * Copyright (c) 2008-2011, 2014 Kristaps Dzonsons @@ -362,7 +362,7 @@ html_make_id(const struct roff_node *n, int unique) return NULL; break; default: - if (n->child->type != ROFFT_TEXT) + if (n->child == NULL || n->child->type != ROFFT_TEXT) return NULL; buf = mandoc_strdup(n->child->string); break; @@ -769,13 +769,15 @@ print_otag(struct html *h, enum htmltag tag, const cha /* * Print an element with an optional "id=" attribute. - * If there is an "id=" attribute, also add a permalink: - * outside if it's a phrasing element, or inside otherwise. + * If the element has phrasing content and an "id=" attribute, + * also add a permalink: outside if it can be in phrasing context, + * inside otherwise. */ struct tag * print_otag_id(struct html *h, enum htmltag elemtype, const char *cattr, struct roff_node *n) { + struct roff_node *nch; struct tag *ret, *t; const char *id; @@ -788,8 +790,17 @@ print_otag_id(struct html *h, enum htmltag elemtype, c t = print_otag(h, elemtype, "ci", cattr, id); if (ret == NULL) { ret = t; - if (id != NULL) - print_otag(h, TAG_A, "chR", "permalink", id); + if (id != NULL && (nch = n->child) != NULL) { + /* man(7) is safe, it tags phrasing content only. */ + if (n->tok > MDOC_MAX || + htmltags[elemtype].flags & HTML_TOPHRASE) + nch = NULL; + else /* For mdoc(7), beware of nested blocks. */ + while (nch != NULL && nch->type == ROFFT_TEXT) + nch = nch->next; + if (nch == NULL) + print_otag(h, TAG_A, "chR", "permalink", id); + } } return ret; }