diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 11:52:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 11:52:09 (GMT) |
| commit | 6e657cfb83595bc0481d833b708554a44e2142fb (patch) | |
| tree | 1ca1c944beacd08dc50a55b0e6cf69a1c9d2e739 /generic/tclUtil.c | |
| parent | 57bf9fe12f8859459556da1de27dbdef24048a68 (diff) | |
| parent | 185b0d14932f4cc8503e6dd235da5bd90ebc777c (diff) | |
| download | tcl-6e657cfb83595bc0481d833b708554a44e2142fb.zip tcl-6e657cfb83595bc0481d833b708554a44e2142fb.tar.gz tcl-6e657cfb83595bc0481d833b708554a44e2142fb.tar.bz2 | |
Implement TIP #575: Switchable Tcl_UtfCharComplete()/Tcl_UtfNext()/Tcl_UtfPrev()
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 1904e2f..d5ec040 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1707,11 +1707,7 @@ TclTrimRight( const char *q = trim; int pInc = 0, bytesLeft = numTrim; - pp = TclUtfPrev(p, bytes); -#if TCL_UTF_MAX < 4 /* Needed because TclUtfPrev() cannot always jump back */ - /* sufficiently. See [d43f96c1a8] */ - pp = TclUtfPrev(pp, bytes); -#endif + pp = Tcl_UtfPrev(p, bytes); do { pp += pInc; pInc = TclUtfToUCS4(pp, &ch1); |