diff options
Diffstat (limited to 'tex/context/base/mkiv/trac-vis.lua')
| -rw-r--r-- | tex/context/base/mkiv/trac-vis.lua | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tex/context/base/mkiv/trac-vis.lua b/tex/context/base/mkiv/trac-vis.lua index cb18d4499..bbc18df7f 100644 --- a/tex/context/base/mkiv/trac-vis.lua +++ b/tex/context/base/mkiv/trac-vis.lua @@ -991,12 +991,12 @@ local ruledkern do local k_cache_v = caches["vkern"] local k_cache_h = caches["hkern"] - ruledkern = function(head,current,vertical) + ruledkern = function(head,current,vertical,mk) local kern = getkern(current) local cache = vertical and k_cache_v or k_cache_h local info = cache[kern] if not info then - local amount = formatters["%s:%0.3f"](vertical and "VK" or "HK",kern*pt_factor) + local amount = formatters["%s:%0.3f"](vertical and "VK" or (mk and "MK") or "HK",kern*pt_factor) if kern > 0 then info = sometext(amount,l_kern,c_positive) elseif kern < 0 then @@ -1108,6 +1108,7 @@ do local math_code = nodecodes.math local hlist_code = nodecodes.hlist local vlist_code = nodecodes.vlist + local marginkern_code = nodecodes.marginkern local kerncodes = nodes.kerncodes local fontkern_code = kerncodes.fontkern @@ -1325,6 +1326,10 @@ do if trace_math then head, current = math(head,current) end + elseif id == marginkern_code then + if trace_kern then + head, current = ruledkern(head,current,vertical,true) + end end goto next ::list:: |