diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/auto.tcl | 9 |
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 {} {}] + } + } } } |