Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -N -r1.66 -r1.67 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 19 Oct 2018 08:54:52 -0000 1.66 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 19 Oct 2018 08:55:36 -0000 1.67 @@ -1160,7 +1160,7 @@ # escaped for Tcl commands expecting a pattern (e.g. "info procs") # regsub -all {([?*])} $proc_name {\\\1} proc_name_pattern - + if {[info commands ::xo::api] ne "" && [regexp {^(.*) (inst)?proc (.*)$} $proc_name match obj prefix method]} { if {[regexp {^(.*) (.*)$} $obj match thread obj]} { @@ -1510,7 +1510,7 @@ } ad_proc -private length_spaces {data} { - @return Number of spaces until next subexpression. + @return Number of spaces until next subexpression. } { regexp -indices {\s+} $data match return [expr {[lindex $match 1]+1}]