diff options
author | Hans Hagen <pragma@wxs.nl> | 2011-02-14 23:30:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2011-02-14 23:30:00 +0100 |
commit | 84b147aa9d550cbe549d68b00143201f4b68dddc (patch) | |
tree | 954a89b1f7292865ef2a4e5acf174b990b1cc76e /tex/context/base/typo-cln.lua | |
parent | 23b7a07b6c3a4803a78d04ff6be462d503059d16 (diff) | |
download | context-84b147aa9d550cbe549d68b00143201f4b68dddc.tar.gz |
beta 2011.02.14 23:30
Diffstat (limited to 'tex/context/base/typo-cln.lua')
-rw-r--r-- | tex/context/base/typo-cln.lua | 16 |
1 files changed, 10 insertions, 6 deletions
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 |