Differences From Artifact [af0eac68f5]:

• File win/tclWinConsole.c — part of check-in [dc35011c84] at 2022-08-22 03:50:43 on branch core-8-branch — Add two missing locks. Enable read-ahead if read fileevent registered even for blocking console. Account for focus-in events in console buffer. (user: apnadkarni size: 77340) [more...]

To Artifact [fc0de8a362]:

• File win/tclWinConsole.c — part of check-in [fce329536d] at 2022-10-26 09:36:30 on branch core-8-branch — TIP #646: Change -eofchar handling (Tcl 8.7 part) (user: jan.nijtmans size: 77340) [more...]

2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209

    /*
     * Consoles have default translation of auto and ^Z eof char, which means
     * that a ^Z will be accepted as EOF when reading.
     */

    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-translation", "auto");
    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-eofchar", "\032 {}");
    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-encoding", "utf-16");
    return chanInfoPtr->channel;
}

/*
 *----------------------------------------------------------------------
 *

|

2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209

    /*
     * Consoles have default translation of auto and ^Z eof char, which means
     * that a ^Z will be accepted as EOF when reading.
     */

    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-translation", "auto");
    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-eofchar", "\x1A {}");
    Tcl_SetChannelOption(NULL, chanInfoPtr->channel, "-encoding", "utf-16");
    return chanInfoPtr->channel;
}

/*
 *----------------------------------------------------------------------
 *