beta 2011.02.11 12:23

1 files changed, 17 insertions, 1 deletions

diff --git a/tex/context/base/sort-lan.lua b/tex/context/base/sort-lan.lua
index 8137bac13..44b92d2b0 100644
--- a/tex/context/base/sort-lan.lua
+++ b/tex/context/base/sort-lan.lua
@@ -10,7 +10,7 @@ if not modules then modules = { } end modules ['sort-lan'] = {
 -- Gesang. However this is a quite adapted and reformatted variant
 -- so it needs some checking.
 
-local utfchar           = utf.char
+local utfchar, utfbyte  = utf.char, utf.byte
 local sorters           = sorters
 local definitions       = sorters.definitions
 local replacementoffset = sorters.constants.replacementoffset
@@ -857,3 +857,19 @@ definitions["et"] = {
         "t", "u", "v", "w", "õ", "ä", "ö", "ü", "x", "y",
     }
 }
+
+--- 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
+end
+
+definitions["kr"] = {
+    firstofsplit = firstofsplit,
+}