===================================================================
RCS file: /cvs/mandoc/html.c,v
retrieving revision 1.97
retrieving revision 1.99
diff -u -p -r1.97 -r1.99
--- mandoc/html.c	2010/04/03 12:46:35	1.97
+++ mandoc/html.c	2010/04/12 19:45:39	1.99
@@ -1,4 +1,4 @@
-/*	$Id: html.c,v 1.97 2010/04/03 12:46:35 kristaps Exp $ */
+/*	$Id: html.c,v 1.99 2010/04/12 19:45:39 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -54,7 +54,7 @@ static	const struct htmldata htmltags[TAG_MAX] = {
 	{"h1",		0}, /* TAG_H1 */
 	{"h2",		0}, /* TAG_H2 */
 	{"span",	0}, /* TAG_SPAN */
-	{"link",	HTML_CLRLINE | HTML_NOSTACK}, /* TAG_LINK */
+	{"link",	HTML_CLRLINE | HTML_NOSTACK | HTML_AUTOCLOSE}, /* TAG_LINK */
 	{"br",		HTML_CLRLINE | HTML_NOSTACK | HTML_AUTOCLOSE}, /* TAG_BR */
 	{"a",		0}, /* TAG_A */
 	{"table",	HTML_CLRLINE}, /* TAG_TABLE */
@@ -521,10 +521,12 @@ print_text(struct html *h, const char *p)
 	if ( ! print_encode(h, p, 0))
 		h->flags &= ~HTML_NOSPACE;
 
+	/* 
+	 * Note that we don't process the pipe: the parser sees it as
+	 * punctuation, but we don't in terms of typography.
+	 */
 	if (*p && 0 == *(p + 1))
 		switch (*p) {
-		case('|'):
-			/* FALLTHROUGH */
 		case('('):
 			/* FALLTHROUGH */
 		case('['):