do not use tclreadline if $tcl_interactive is 0

This commit is contained in:
Stefan Schippers 2023-07-02 19:47:04 +02:00
parent 33eb3fecce
commit 9f23965096
1 changed files with 1 additions and 1 deletions

View File

@ -2828,7 +2828,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
if(tclgetboolvar("use_tclreadline") && !cli_opt_detach && !cli_opt_no_readline) {
tcleval( "if {![catch {package require tclreadline}]} "
tcleval( "if {![catch {package require tclreadline}] && $tcl_interactive} "
"{::tclreadline::readline builtincompleter 0;"
"::tclreadline::readline customcompleter completer;"
"::tclreadline::Loop }"