===================================================================
RCS file: /cvs/docbook2mdoc/macro.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- docbook2mdoc/macro.c	2019/04/03 15:04:03	1.5
+++ docbook2mdoc/macro.c	2019/04/06 22:37:57	1.6
@@ -1,4 +1,4 @@
-/* $Id: macro.c,v 1.5 2019/04/03 15:04:03 schwarze Exp $ */
+/* $Id: macro.c,v 1.6 2019/04/06 22:37:57 schwarze Exp $ */
 /*
  * Copyright (c) 2019 Ingo Schwarze <schwarze@openbsd.org>
  *
@@ -17,6 +17,7 @@
 #include <assert.h>
 #include <ctype.h>
 #include <stdio.h>
+#include <string.h>
 
 #include "node.h"
 #include "macro.h"
@@ -39,6 +40,8 @@ macro_open(struct format *f, const char *name)
 		break;
 	case LINE_MACRO:
 		putchar(' ');
+		if (f->spc == 0)
+			fputs("Ns ", stdout);
 		break;
 	}
 	fputs(name, stdout);
@@ -61,20 +64,68 @@ macro_line(struct format *f, const char *name)
 }
 
 /*
- * If the next node is a text node starting with closing punctuation,
- * emit the closing punctuation as a trailing macro argument.
+ * At the end of a macro, decide whether the line needs to remain open
+ * because the next node follows without intervening whitespace;
+ * otherwise, close the line.
  */
 void
 macro_closepunct(struct format *f, struct pnode *pn)
 {
-	if ((pn = TAILQ_NEXT(pn, child)) != NULL &&
-	    pn->node == NODE_TEXT && pn->bsz > 0 &&
-	    (pn->b[0] == ',' || pn->b[0] == '.') &&
-	    (pn->bsz == 1 || isspace((unsigned char)pn->b[1]))) {
-		putchar(' ');
-		putchar(pn->b[0]);
-		pn->b++;
-		pn->bsz--;
+	char		*cp;
+
+	if ((pn = TAILQ_NEXT(pn, child)) != NULL && pn->spc == 0) {
+
+		/*
+		 * If a non-text node follows without intervening
+		 * whitespace, the handler of that node will decide
+		 * whether and how to suppress whitespace.  To allow
+		 * that, the macro line needs to remain open.
+		 */
+
+		if (pn->node != NODE_TEXT && pn->node != NODE_ESCAPE)
+			return;
+
+		/*
+		 * Give closing punctuation
+		 * in the form of trailing macro arguments.
+		 */
+
+		while (*pn->b != '\0' &&
+		    strchr("!),.:;?]", *pn->b) != NULL) {
+			putchar(' ');
+			putchar(*pn->b);
+			pn->b++;
+			pn->bsz--;
+		}
+
+		/*
+		 * Text follows without intervening whitespace.
+		 * Append the first word with .Ns.
+		 */
+
+		if (*pn->b != '\0' && isspace((unsigned char)*pn->b) == 0) {
+			fputs(" Ns", stdout);
+			for (cp = pn->b; *cp != '\0'; cp++)
+				if (isspace((unsigned char)*cp))
+					break;
+			*cp = '\0';
+			macro_addarg(f, pn->b, ARG_SPACE);
+			pn->bsz -= cp - pn->b;
+			pn->b = cp;
+			if (pn->bsz > 0) {
+				pn->b++;
+				pn->bsz--;
+				pn->spc = 1;
+			}
+		}
+
+		/* Skip whitespace after the first word. */
+
+		while (isspace((unsigned char)*pn->b)) {
+			pn->b++;
+			pn->bsz--;
+			pn->spc = 1;
+		}
 	}
 	macro_close(f);
 }