summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua')
-rw-r--r--Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua b/Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua
index 6c02b929167..2d3037bdc91 100644
--- a/Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua
+++ b/Master/texmf-dist/tex/context/base/mkiv/typo-sus.lua
@@ -40,6 +40,8 @@ local hlist_code = nodecodes.hlist
local vlist_code = nodecodes.vlist
local nuts = nodes.nuts
+local tonut = nodes.tonut
+local tonode = nodes.tonode
local getid = nuts.getid
local getprev = nuts.getprev
@@ -162,6 +164,7 @@ local colors = {
local found = 0
function typesetters.marksuspects(head)
+ local head = tonut(head)
local current = head
local lastdone = nil
while current do
@@ -251,7 +254,7 @@ function typesetters.marksuspects(head)
current = getnext(current)
end
end
- return head
+ return tonode(head), found > 0
end
local function showsuspects(head)
@@ -286,9 +289,9 @@ end
function typesetters.showsuspects(head)
if found > 0 then
- return showsuspects(head)
+ return tonode(showsuspects(tonut(head))), true
else
- return head
+ return head, false
end
end