diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-17 14:36:30 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-17 14:36:30 (GMT) |
commit | a28856a32283dc85bf813fbe92a6bd24d03a7ca0 (patch) | |
tree | e5c79436494a9f3381b56b5a8e0cb3d053c7ade6 /tools | |
parent | 60980407544983c6f254eaa2ca9fb18b3746e6cb (diff) | |
parent | f88225f6fb8117aa9462dc7975e9babf2dcf60c9 (diff) | |
download | tcl-a28856a32283dc85bf813fbe92a6bd24d03a7ca0.zip tcl-a28856a32283dc85bf813fbe92a6bd24d03a7ca0.tar.gz tcl-a28856a32283dc85bf813fbe92a6bd24d03a7ca0.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tools')
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index e207434..5b2a831 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -188,17 +188,26 @@ proc process-text {text} { {\(bu} "•" \ {\(fm} "′" \ {\(mi} "−" \ + {\(.i} "ı" \ + {\(.j} "ȷ" \ + {\(Fn} "ƒ" \ + {\(OE} "Œ" \ + {\(oe} "œ" \ + {\(IJ} "IJ" \ + {\(ij} "ij" \ + {\(<-} "<font size=\"+1\">←</font>" \ {\(->} "<font size=\"+1\">→</font>" \ {\(eu} "€" \ {\fP} {\fR} \ {\.} . \ ] # This might make a few invalid mappings, but we don't use them - foreach c {a c e i n o u y A C E I N O U Y} { + foreach c {a c e g i l n o s t u y z A C E G I L N O S T U Y Z} { foreach {prefix suffix} { - o ring / slash : uml ' acute ^ circ ` grave ~ tilde , cedil + o ring / slash : uml ' acute ^ circ ` grave ~ tilde , cedil v caron } { lappend charmap "\\\[${prefix}${c}\]" "&${c}${suffix};" + lappend charmap "\\(${prefix}${c}" "&${c}${suffix};" } } lappend charmap {\-\|\-} -- ; # two hyphens |