diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 08:13:31 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:56 +1000 |
| commit | e8bfa491fa726c034a99ff7fc4fc64b990d45e12 (patch) | |
| tree | 59a1bc194f3becfb7d9b2d9d18c3949972488033 /rlprompt.tcl | |
| parent | 6cd1b1be48ee1713db03480336d6a53c714ce61a (diff) | |
| download | jimtcl-e8bfa491fa726c034a99ff7fc4fc64b990d45e12.zip jimtcl-e8bfa491fa726c034a99ff7fc4fc64b990d45e12.tar.gz jimtcl-e8bfa491fa726c034a99ff7fc4fc64b990d45e12.tar.bz2 | |
Allow exit from .jimrc
Only show error on JIM_ERR from .jimrc
Also fixes to rlprompt.tcl so it can be used from .jimrc
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'rlprompt.tcl')
| -rw-r--r-- | rlprompt.tcl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/rlprompt.tcl b/rlprompt.tcl index 1d8860e..cdd78d4 100644 --- a/rlprompt.tcl +++ b/rlprompt.tcl @@ -9,6 +9,7 @@ # rlprompt.shell # } # } +package require readline proc rlprompt.shell {} { puts "Readline shell loaded" @@ -16,11 +17,7 @@ proc rlprompt.shell {} { set prompt ". " set buf "" while 1 { - try -exit { - set line [readline.readline $prompt] - } on exit dummy { - break - } + set line [readline.readline $prompt] if {[string length $line] == 0} { continue |