From 9f97a0a02a4ee62615ed9671d5e88017abde1ff3 Mon Sep 17 00:00:00 2001
From: welch <welch>
Date: Fri, 13 Aug 1999 19:00:37 +0000
Subject: Updated to handle more special backslash sequences found in
 re_syntax.n

---
 tools/tcl8.1-tk8.1-man-html.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 {\&quot;} text;
     regsub -all {<} $text {\&lt;} text;
     regsub -all {>} $text {\&gt;} text;
+    regsub -all {\\o'o\^'} $text {\&ocirc;} 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 {\&nbsp;} text;	# a very thin space 
     regsub -all {\\e} $text {\&#92;} text;	# reverse solidus, ie backslash
     regsub -all {\\\(\+-} $text {\&#177;} text;	# plus or minus sign
     regsub -all {\\fP} $text {\\fR} text;	# a funky font in expr.n
-- 
cgit v0.12