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/tclTest.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/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 45b5ca3..1c35ab2 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -19,6 +19,9 @@ #ifndef USE_TCL_STUBS # define USE_TCL_STUBS #endif +#ifndef TCL_NO_DEPRECATED +# define TCL_NO_DEPRECATED +#endif #include "tclInt.h" #ifdef TCL_WITH_EXTERNAL_TOMMATH # include "tommath.h" @@ -6962,7 +6965,7 @@ TestUtfPrevCmd( } else { offset = numBytes; } - result = TclUtfPrev(bytes + offset, bytes); + result = Tcl_UtfPrev(bytes + offset, bytes); Tcl_SetObjResult(interp, Tcl_NewIntObj(result - bytes)); return TCL_OK; } |