Give -T[x]html `Bk -words' capability.

1 files changed, 18 insertions, 4 deletions

diff --git a/html.c b/html.c
index f92c37a2..b3443251 100644
--- a/html.c
+++ b/html.c
@@ -393,8 +393,15 @@ print_otag(struct html *h, enum htmltag tag,
 		t = NULL;
 
 	if ( ! (HTML_NOSPACE & h->flags))
-		if ( ! (HTML_CLRLINE & htmltags[tag].flags))
-			putchar(' ');
+		if ( ! (HTML_CLRLINE & htmltags[tag].flags)) {
+			/* Manage keeps! */
+			if ( ! (HTML_KEEP & h->flags)) {
+				if (HTML_PREKEEP & h->flags)
+					h->flags |= HTML_KEEP;
+				putchar(' ');
+			} else
+				printf(" ");
+		}
 
 	/* Print out the tag name and attributes. */
 
@@ -511,8 +518,15 @@ print_text(struct html *h, const char *word)
 			break;
 		}
 
-	if ( ! (h->flags & HTML_NOSPACE))
-		putchar(' ');
+	if ( ! (HTML_NOSPACE & h->flags)) {
+		/* Manage keeps! */
+		if ( ! (HTML_KEEP & h->flags)) {
+			if (HTML_PREKEEP & h->flags)
+				h->flags |= HTML_KEEP;
+			putchar(' ');
+		} else
+			printf(" ");
+	}
 
 	assert(word);
 	if ( ! print_encode(h, word, 0))