diff options
Diffstat (limited to 'win/tclWinConsole.c')
| -rw-r--r-- | win/tclWinConsole.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index 8b1b2da..3b8753b 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -1527,11 +1527,14 @@ ConsoleSetOptionProc( } else { infoPtr->flags |= CONSOLE_RESET; } - } else if (len > 0) { - return Tcl_BadChannelOption(interp, optionName, - (infoPtr->flags & CONSOLE_READ_OPS) ? "inputmode" : ""); + return TCL_OK; + } + + if (infoPtr->flags & CONSOLE_READ_OPS) { + return Tcl_BadChannelOption(interp, optionName, "inputmode"); + } else { + return Tcl_BadChannelOption(interp, optionName, ""); } - return TCL_OK; } /* |