xinit.c: test for tcl_interactive existence before testing value
This commit is contained in:
parent
c7bf1300c1
commit
c544c5bd6e
|
|
@ -3004,7 +3004,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
|
|||
|
||||
|
||||
if(tclgetboolvar("use_tclreadline") && !cli_opt_detach && !cli_opt_no_readline) {
|
||||
tcleval( "if {![catch {package require tclreadline}] && $tcl_interactive} "
|
||||
tcleval( "if {![catch {package require tclreadline}] && [info exists tcl_interactive] && $tcl_interactive} "
|
||||
"{"
|
||||
"::tclreadline::readline builtincompleter 0; "
|
||||
"::tclreadline::readline customcompleter completer; "
|
||||
|
|
|
|||
Loading…
Reference in New Issue