diff options
Diffstat (limited to 'tex/context/base/node-res.lua')
| -rw-r--r-- | tex/context/base/node-res.lua | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tex/context/base/node-res.lua b/tex/context/base/node-res.lua index 7f737ea70..9e17155f2 100644 --- a/tex/context/base/node-res.lua +++ b/tex/context/base/node-res.lua @@ -28,6 +28,7 @@ local pool = nodes.pool local whatsitcodes = nodes.whatsitcodes local skipcodes = nodes.skipcodes +local kerncodes = nodes.kerncodes local nodecodes = nodes.nodecodes local glyph_code = nodecodes.glyph @@ -75,7 +76,8 @@ function pool.usage() end local disc = register_node(new_node("disc")) -local kern = register_node(new_node("kern",1)) +local kern = register_node(new_node("kern",kerncodes.userkern)) +local fontkern = register_node(new_node("kern",kerncodes.fontkern)) local penalty = register_node(new_node("penalty")) local glue = register_node(new_node("glue")) -- glue.spec = nil local glue_spec = register_node(new_node("glue_spec")) @@ -126,6 +128,12 @@ function pool.kern(k) return n end +function pool.fontkern(k) + local n = copy_node(fontkern) + n.kern = k + return n +end + function pool.gluespec(width,stretch,shrink,stretch_order,shrink_order) local s = copy_node(glue_spec) if width then s.width = width end |