diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
| commit | 40ee63b6ff6901dea05f4cef62d51bfa188630ed (patch) | |
| tree | 51ec8a3c9ae020781cd27b8c0a4f94ddbb6fc942 /tools/tcltk-man2html-utils.tcl | |
| parent | 38670f6730f5eb4274e4abe14a00c8ccaf3f176a (diff) | |
| parent | 6f905e1f0fa598055c516aa33529d41d2fadbe4a (diff) | |
| download | tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.zip tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.gz tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.bz2 | |
merge trunk
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -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 |