From 84b147aa9d550cbe549d68b00143201f4b68dddc Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 14 Feb 2011 23:30:00 +0100 Subject: beta 2011.02.14 23:30 --- tex/context/base/typo-cln.lua | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'tex/context/base/typo-cln.lua') diff --git a/tex/context/base/typo-cln.lua b/tex/context/base/typo-cln.lua index 09e8744ea..2327ef6be 100644 --- a/tex/context/base/typo-cln.lua +++ b/tex/context/base/typo-cln.lua @@ -32,7 +32,7 @@ local traverse_id = node.traverse_id local glyph_code = nodecodes.glyph local uccodes = characters.uccodes -local a_cleaner = attributes.private("cleaner") +local a_cleaner = attributes.private("cleaner") local resetter = { -- this will become an entry in char-def [utfbyte(".")] = true @@ -53,11 +53,15 @@ local function process(namespace,attribute,head) local a = has_attribute(n,attribute) if a == 1 then -- currently only one cleaner so no need to be fancy local upper = uccodes[char] - n.char = upper - inline = true - done = true - if trace_autocase then - report_autocase("") + if type(upper) == "table" then + -- some day, not much change that \SS ends up here + else + n.char = upper + inline = true + done = true + if trace_autocase then + report_autocase("") + end end end end -- cgit v1.2.3