diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-25 11:53:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-25 11:53:11 (GMT) |
| commit | 0fce9600ee90c152b14295a28da571c3a4db622b (patch) | |
| tree | 02f0d74e4805e8df0a4a0cee31f740af55aa3bff /generic/tclExecute.c | |
| parent | 52819473a2f3c699983cec389ca6430a42dff612 (diff) | |
| download | tcl-0fce9600ee90c152b14295a28da571c3a4db622b.zip tcl-0fce9600ee90c152b14295a28da571c3a4db622b.tar.gz tcl-0fce9600ee90c152b14295a28da571c3a4db622b.tar.bz2 | |
Finish implementation of "string nextchar|nextword|prevchar|prevword". Not thourougly test yet, but seems OK at first sight.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index cc366e7..c80e12b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5292,7 +5292,7 @@ TEBCresume( } else if (TclIsPureByteArray(valuePtr)) { objResultPtr = Tcl_NewByteArrayObj( Tcl_GetByteArrayFromObj(valuePtr, NULL)+index, 1); - } else if (valuePtr->bytes && length == valuePtr->length) { + } else if (valuePtr->bytes && length == valuePtr->length && !(valuePtr->bytes[index] & 0x80)) { objResultPtr = Tcl_NewStringObj((const char *) valuePtr->bytes+index, 1); } else { |