beta 2013.09.11 15:37

1 files changed, 2 insertions, 8 deletions

diff --git a/tex/context/base/typo-cln.lua b/tex/context/base/typo-cln.lua
index b4b682bff..2aa05b6d1 100644
--- a/tex/context/base/typo-cln.lua
+++ b/tex/context/base/typo-cln.lua
@@ -46,14 +46,14 @@ local resetter = { -- this will become an entry in char-def
 -- the other hand we might want to apply casing afterwards. So,
 -- cleaning comes first.
 
-local function process(namespace,attribute,head)
+function cleaners.handler(head)
     local inline, done = false, false
     for n in traverse_id(glyph_code,head) do
         local char = n.char
         if resetter[char] then
             inline = false
         elseif not inline then
-            local a = n[attribute]
+            local a = n[a_cleaner]
             if a == 1 then -- currently only one cleaner so no need to be fancy
                 local upper = uccodes[char]
                 if type(upper) == "table" then
@@ -91,12 +91,6 @@ function cleaners.set(n)
     end
 end
 
-cleaners.handler = nodes.installattributehandler {
-    name      = "cleaner",
-    namespace = cleaners,
-    processor = process,
-}
-
 -- interface
 
 commands.setcharactercleaning = cleaners.set