summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-03-12 18:36:21 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-03-12 18:36:21 (GMT)
commitc3b5733a114e89004055c6ba60b9449cda6ca5e7 (patch)
tree3d1cc0dbfddfc1c5dc3d6e482317f23086ca1b47
parentf36f347a2d2dafb9694dfb7576a62417da6b4462 (diff)
downloadtcl-c3b5733a114e89004055c6ba60b9449cda6ca5e7.zip
tcl-c3b5733a114e89004055c6ba60b9449cda6ca5e7.tar.gz
tcl-c3b5733a114e89004055c6ba60b9449cda6ca5e7.tar.bz2
Add mappings for groff-style character naming, used in experimental branches of Tk.
-rw-r--r--tools/tcltk-man2html-utils.tcl10
1 files changed, 9 insertions, 1 deletions
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