diff options
| author | welch <welch> | 1999-08-13 19:00:37 (GMT) |
|---|---|---|
| committer | welch <welch> | 1999-08-13 19:00:37 (GMT) |
| commit | 9f97a0a02a4ee62615ed9671d5e88017abde1ff3 (patch) | |
| tree | dfad4d581a502366e192cb96c43691ebc126c463 /tools | |
| parent | 2c5ff5f3696ff247b1ab7086e45fdb3e027670df (diff) | |
| download | tcl-9f97a0a02a4ee62615ed9671d5e88017abde1ff3.zip tcl-9f97a0a02a4ee62615ed9671d5e88017abde1ff3.tar.gz tcl-9f97a0a02a4ee62615ed9671d5e88017abde1ff3.tar.bz2 | |
Updated to handle more special backslash sequences found
in re_syntax.n
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/tcl8.1-tk8.1-man-html.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/tcl8.1-tk8.1-man-html.tcl b/tools/tcl8.1-tk8.1-man-html.tcl index 3fbfeff..cb51f34 100644 --- a/tools/tcl8.1-tk8.1-man-html.tcl +++ b/tools/tcl8.1-tk8.1-man-html.tcl @@ -208,11 +208,12 @@ proc process-text {text} { regsub -all \" $text {\"} text; regsub -all {<} $text {\<} text; regsub -all {>} $text {\>} text; + regsub -all {\\o'o\^'} $text {\ô} text; # o-circumflex in re_syntax.n regsub -all {\\-\\\|\\-} $text -- text; # two hyphens regsub -all -- {\\-\\\^\\-} $text -- text; # two hyphens regsub -all {\\-} $text - text; # a hyphen regsub -all {\\0} $text { } text; # a space - # regsub -all {\\\|} $text | text; # a very thin space + regsub -all {\\\|} $text {\ } text; # a very thin space regsub -all {\\e} $text {\\} text; # reverse solidus, ie backslash regsub -all {\\\(\+-} $text {\±} text; # plus or minus sign regsub -all {\\fP} $text {\\fR} text; # a funky font in expr.n |