using context’s builtin pattern for utf8 characters

1 files changed, 2 insertions, 15 deletions

diff --git a/tex/context/third/transliterator/trans_tables_iso9.lua b/tex/context/third/transliterator/trans_tables_iso9.lua
index e5fa980..4057a0e 100644
--- a/tex/context/third/transliterator/trans_tables_iso9.lua
+++ b/tex/context/third/transliterator/trans_tables_iso9.lua
@@ -251,23 +251,10 @@ translit.tables["cyrillic other uppercase ISO~9"] = translit.non_ru_upp
 
 function translit.iso9 (mode, text)
     local P, R, S, V, Cs = lpeg.P, lpeg.R, lpeg.S, lpeg.V, lpeg.Cs
-    local loc = lpeg.locale ()
-
-    -- http://lua-users.org/lists/lua-l/2009-06/msg00343.html
-    local utfchar = R("\000\127") + 
-        R("\194\223") * R("\128\191") + 
-        R("\224\240") * R("\128\191") * R("\128\191") + 
-        R("\241\244") * R("\128\191") * R("\128\191") * R("\128\191")
+    local addrules = translit.addrules
+    local utfchar = lpeg.patterns.utf8char
 
     -- Add keys of a dictionary to a ruleset.
-    function addrules (dict, rules)
-        for i, _ in pairs(dict) do
-            if rules == nil then rules = P(i)
-            else rules = rules + P(i)
-            end
-        end
-        return rules
-    end
 
     local iso9 = translit.make_add_dict{}
     iso9 = translit.ru_upp + translit.ru_low