diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-30 16:18:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-30 16:18:54 (GMT) |
| commit | 88233497abccd1215abfc8e09aeda7bf4fea2931 (patch) | |
| tree | 416834e67e82acb232acd019b528d660f9e4dc09 /generic/tclCmdIL.c | |
| parent | ca83d59e105a63a11629179fdbe98eac702c23fc (diff) | |
| parent | 0efada5548249fb9f61dcd3a5eea4ceb381e3e52 (diff) | |
| download | tcl-88233497abccd1215abfc8e09aeda7bf4fea2931.zip tcl-88233497abccd1215abfc8e09aeda7bf4fea2931.tar.gz tcl-88233497abccd1215abfc8e09aeda7bf4fea2931.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 47076ec..b41d312 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2945,7 +2945,7 @@ Tcl_LsearchObjCmd( double patDouble, objDouble; SortInfo sortInfo; Tcl_Obj *patObj, **listv, *listPtr, *startPtr, *itemPtr; - SortStrCmpFn_t strCmpFn = strcmp; + SortStrCmpFn_t strCmpFn = TclUtfCmp; Tcl_RegExp regexp = NULL; static const char *const options[] = { "-all", "-ascii", "-bisect", "-decreasing", "-dictionary", @@ -4263,7 +4263,7 @@ SortCompare( int order = 0; if (infoPtr->sortMode == SORTMODE_ASCII) { - order = strcmp(elemPtr1->collationKey.strValuePtr, + order = TclUtfCmp(elemPtr1->collationKey.strValuePtr, elemPtr2->collationKey.strValuePtr); } else if (infoPtr->sortMode == SORTMODE_ASCII_NC) { order = TclUtfCasecmp(elemPtr1->collationKey.strValuePtr, |