diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-09-15 11:53:03 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-09-15 12:11:33 +1000 |
| commit | 93af9c4cfbf383f5cf146a95711008dcb052b278 (patch) | |
| tree | dd85e44cbbc1f46b29b20e1fcd29e0a058b68ab0 /examples/jtclsh.tcl | |
| parent | 0d3a4d11d6242e482df3896f0b28ca9bbc8f538a (diff) | |
| download | jimtcl-93af9c4cfbf383f5cf146a95711008dcb052b278.zip jimtcl-93af9c4cfbf383f5cf146a95711008dcb052b278.tar.gz jimtcl-93af9c4cfbf383f5cf146a95711008dcb052b278.tar.bz2 | |
history: Add autocompletion support
With 'history completion <cmd>'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/jtclsh.tcl')
| -rw-r--r-- | examples/jtclsh.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/jtclsh.tcl b/examples/jtclsh.tcl index b384717..772b327 100644 --- a/examples/jtclsh.tcl +++ b/examples/jtclsh.tcl @@ -8,6 +8,8 @@ package require history set histfile [env HOME]/.jtclsh history load $histfile +# Use the standard Tcl autocompletion +history completion tcl::autocomplete set prefix "" while {1} { # Read a complete line (script) |