From c3b5733a114e89004055c6ba60b9449cda6ca5e7 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sun, 12 Mar 2017 18:36:21 +0000
Subject: Add mappings for groff-style character naming, used in experimental
 branches of Tk.

---
 tools/tcltk-man2html-utils.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index 9052049..c887edd 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -155,8 +155,16 @@ proc process-text {text} {
 	    {\fP}	{\fR} \
 	    {\.}	. \
 	    {\(bu}	"&#8226;" \
-	    {\*(qo}	"&ocirc;" \
+	    "\\*(qo"	"&ocirc;" \
 	    ]
+    # This might make a few invalid mappings, but we don't use them
+    foreach c {a e i o u y A E I O U Y} {
+	foreach {prefix suffix} {
+	    o circ / slash : uml ' acute ^ circ ` grave
+	} {
+	    lappend charmap "\\\[${prefix}${c}\]" "&${c}${suffix};"
+	}
+    }
     lappend charmap {\-\|\-} --        ; # two hyphens
     lappend charmap {\-} -             ; # a hyphen
 
-- 
cgit v0.12