diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-03-12 18:36:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-03-12 18:36:21 (GMT) |
| commit | c3b5733a114e89004055c6ba60b9449cda6ca5e7 (patch) | |
| tree | 3d1cc0dbfddfc1c5dc3d6e482317f23086ca1b47 | |
| parent | f36f347a2d2dafb9694dfb7576a62417da6b4462 (diff) | |
| download | tcl-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.tcl | 10 |
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} "•" \ - {\*(qo} "ô" \ + "\\*(qo" "ô" \ ] + # 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 |