Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	25 Jul 2018 21:46:50 -0000	1.20
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	3 Sep 2024 15:37:35 -0000	1.21
@@ -20,7 +20,7 @@
 
 ad_proc -private doc::util::dbl_colon_fix { text } {
 
-  regsub -all {::} $text {__} text
+  regsub -all -- {::} $text {__} text
   return $text
 }
 
@@ -42,7 +42,7 @@
     return [string compare -nocase [lindex $element1 1] [lindex $element2 1]]
 }
 
-ad_proc -private doc::sort_@see { list_ref directive_comments } {
+ad_proc -private doc::sort_see { list_ref directive_comments } {
     procedure to deal with @see comments
 } {
     upvar $list_ref see_list
@@ -172,25 +172,25 @@
     @return same text but with a space behind each quote; double quotes
     that are already trailed by a space are unaffected
 } {
-    regsub -all {"} $text {" } text
-    regsub -all {"  } $text {" } text
+    regsub -all -- {"} $text {" } text
+    regsub -all -- {"  } $text {" } text
     return $text
 }
 
 ad_proc -private doc::util::bracket_space {text} {
     puts a space after all closing curly brackets, does not
     add a space when brackets are already followed by a space
 } {
-    regsub -all {(\})} $text {\1 } text
-    regsub -all {(\})  } $text {\1 } text
+    regsub -all -- {(\})} $text {\1 } text
+    regsub -all -- {(\})  } $text {\1 } text
     return $text
 }
 
 ad_proc -private doc::util::escape_square_brackets {text} {
     escapes out all square brackets
 } {
-    regsub -all {(\[)} $text {\\\1} text
-    regsub -all {(\])} $text {\\\1} text
+    regsub -all -- {(\[)} $text {\\\1} text
+    regsub -all -- {(\])} $text {\\\1} text
     return $text
 }
 
@@ -209,8 +209,8 @@
     @param text
     @return text
 } {
-    regsub -all {"} $text {\"} text
-    regsub -all {(\n)\s*#\s*} $text {\1 } text
+    regsub -all \" $text {\"} text
+    regsub -all -- {(\n)\s*#\s*} $text {\1 } text
     regsub {(\A)\s*#\s*} $text {\1 } text
     return $text
 }
@@ -335,7 +335,7 @@
             }
 
             see {
-                doc::sort_@see proc_$directive_type $directive_comments
+                doc::sort_see proc_$directive_type $directive_comments
             }
         }
     }
@@ -401,7 +401,7 @@
             }
 
             see {
-                doc::sort_@see namespace_$directive_type $directive_comments
+                doc::sort_see namespace_$directive_type $directive_comments
                 set has_comments 1
             }
 
@@ -412,15 +412,15 @@
         }
     }
 
-    # the variable has_comments is set to 1 if it appears
-    # as though descriptive comments were written to describe the namespace --
-    # as would be expected if the namespace were being described
-    # for the first time; otherwise
-    # it is set to 0;  the problem i'm trying to resolve here is multiple uses
-    # of the @namespace directive and determining which occurrence of the
-    # directive is followed by comments
-    # by comments we want to parse into our static files
-
+    #
+    # The variable "has_comments" is set to 1 if it appears as though
+    # descriptive comments were written to describe the namespace --
+    # as would be expected if the namespace were being described for
+    # the first time; otherwise it is set to 0; the problem i'm trying
+    # to resolve here is multiple uses of the @namespace directive and
+    # determining which occurrence of the directive is followed by
+    # comments by comments we want to parse into our static files.
+    #
     # namespace_index tells us where to insert the info, or is -1 if
     # the namespace has already been described
     set namespace_index [template::util::alphabetized_index $namespace_list $namespace_name]