diff options
author | Marius <mariausol@gmail.com> | 2011-02-11 14:20:11 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2011-02-11 14:20:11 +0200 |
commit | 6763e3954714b12c9e3cc95b557ec0cf48183fdd (patch) | |
tree | db369a51a32f4c23617cbfe423e512528ab58f16 /tex/context/base/sort-lan.lua | |
parent | ab6d8e11ebd76ab61d2b451d1c8c7be0a7ccf4bc (diff) | |
download | context-6763e3954714b12c9e3cc95b557ec0cf48183fdd.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"] = { |