diff options
author | welch <welch@noemail.net> | 1999-08-13 19:00:36 (GMT) |
---|---|---|
committer | welch <welch@noemail.net> | 1999-08-13 19:00:36 (GMT) |
commit | 7f63f82f18baa934d4ef1fb475b9dfed95377353 (patch) | |
tree | dfad4d581a502366e192cb96c43691ebc126c463 /tools | |
parent | 5ee85171c3a1827ed486b321db1b8d0ae7d06091 (diff) | |
download | tcl-7f63f82f18baa934d4ef1fb475b9dfed95377353.zip tcl-7f63f82f18baa934d4ef1fb475b9dfed95377353.tar.gz tcl-7f63f82f18baa934d4ef1fb475b9dfed95377353.tar.bz2 |
Updated to handle more special backslash sequences found
in re_syntax.n
FossilOrigin-Name: 7bc8c1e80d0571219767d202c58b25e3a862dd88
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 |