shithub: neatmkfn

Info  •  Files  •  Log  •  Branches

trfn: disallow glyphs with any white-space characters in their names

Reported by Pierre-Jean <lists@utroff.org>.

--- a/trfn.c

+++ b/trfn.c

@@ -285,8 +285,8 @@

 	if (!trfn_swid && (!strcmp(" ", uc) || !strcmp(" ", uc)))

 		trfn_swid = WX(wid);

 	/* printing troff charset */

-	if (strchr(uc, ' '))	/* space not allowed in char names */

-		strcpy(uc, "---");

+	if (isspace((unsigned char) uc[0]) || strchr(uc, ' '))

+		strcpy(uc, "---");	/* space not allowed in char names */

 	if (strcmp("---", uc))

 		trfn_lig(uc);

 	sbuf_printf(sbuf_char, "char %s\t%d", uc, WX(wid));