diff options
| author | Hans Hagen <pragma@wxs.nl> | 2011-02-11 12:50:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2011-02-11 12:50:00 +0100 |
| commit | f344a831f7da0d57427ebf38ef0861d1a3933ba1 (patch) | |
| tree | 2b13cf5a0f3357ae919db0d34603f1fff8841332 /tex/context/base/sort-lan.lua | |
| parent | c1277fe938900d76727978e9140fbf6bea3e13bb (diff) | |
| download | context-f344a831f7da0d57427ebf38ef0861d1a3933ba1.tar.gz | |
beta 2011.02.11 12:50
Diffstat (limited to 'tex/context/base/sort-lan.lua')
| -rw-r--r-- | tex/context/base/sort-lan.lua | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/tex/context/base/sort-lan.lua b/tex/context/base/sort-lan.lua index 44b92d2b0..0c3ece223 100644 --- a/tex/context/base/sort-lan.lua +++ b/tex/context/base/sort-lan.lua @@ -860,14 +860,11 @@ definitions["et"] = { --- Korean -local first = languages.firstcharacters.korean - -function firstofsplit(entries,split) - first = first or languages.firstcharacters.korean - local entry = split and split[1] or "" - local entry = utfchar(first(utfbyte(entry))) - local tag = entry - return entry, tag +local firstcharacter = languages.firstcharacters.korean + +function firstofsplit(first) + first = utfchar(firstcharacter(utfbyte(first))) + return first, first -- entry, tag end definitions["kr"] = { |