2102614 Add ensemble indexing support to [auto_mkindex]. Thanks Brian Griffin.

1 files changed, 9 insertions, 0 deletions

diff --git a/library/auto.tcl b/library/auto.tcl
index e86257e..0848bb1 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -605,6 +605,15 @@ auto_mkindex_parser::command namespace {op args} {
             }
             catch {$parser eval "_%@namespace import $args"}
         }
+	ensemble {
+	    variable parser
+	    variable contextStack
+	    if {[lindex $args 0] eq "create"} {
+		set name ::[join [lreverse $contextStack] ::]
+		# create artifical proc to force an entry in the tclIndex
+		$parser eval [list ::proc $name {} {}]
+	    }
+	}
     }
 }