Properly discard \m colour escapes. Noted by J.C. Roberts.

2 files changed, 16 insertions, 3 deletions

diff --git a/TODO b/TODO
index 3cb10f45..ac43a33a 100644
--- a/TODO
+++ b/TODO
@@ -68,9 +68,6 @@
 
 - have a blank `It' head for `Bl -tag' not puke
 
-- ignore horrendous m[] font colouring
-  reported by J.C. Roberts
-
 - prohibit `Nm' from having non-text HEAD children
   (e.g., NetBSD mDNSShared/dns-sd.1)
   (mdoc_html.c and mdoc_term.c `Nm' handlers can be slightly simplified)
diff --git a/out.c b/out.c
index d5520604..92b2c14a 100644
--- a/out.c
+++ b/out.c
@@ -233,6 +233,22 @@ a2roffdeco(enum roffdeco *d, const char **word, size_t *sz)
 			break;
 		}
 		break;
+	case ('M'):
+		/* FALLTHROUGH */
+	case ('m'):
+		switch (wp[i++]) {
+		case ('('):
+			lim = 2;
+			break;
+		case ('['):
+			term = ']';
+			break;
+		default:
+			i--;
+			lim = 1;
+			break;
+		}
+		break;
 	case ('s'):
 		if ('+' == wp[i] || '-' == wp[i])
 			i++;