summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-09-26 20:50:34 +0000
committerKarl Berry <karl@freefriends.org>2018-09-26 20:50:34 +0000
commit78334b0d4607b242273f9d0cde94f6a6fba51832 (patch)
tree5b604ee30bb611eeeae95ed4218b4e7fd6eb00b8 /Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua
parent3a0140d05a7e481750ec23a30ed5cf3cdef61eb7 (diff)
luaotfload (26sep18)
git-svn-id: svn://tug.org/texlive/trunk@48771 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua')
-rw-r--r--Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua27
1 files changed, 16 insertions, 11 deletions
diff --git a/Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua b/Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua
index fd64c90a4b8..104047ba8ba 100644
--- a/Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua
+++ b/Master/texmf-dist/tex/luatex/luaotfload/luaotfload-letterspace.lua
@@ -1,7 +1,7 @@
if not modules then modules = { } end modules ['letterspace'] = {
- version = "2.8",
+ version = "2.9",
comment = "companion to luaotfload-main.lua",
- author = "Hans Hagen, PRAGMA-ADE, Hasselt NL; adapted by Philipp Gesang",
+ author = "Hans Hagen, PRAGMA-ADE, Hasselt NL; adapted by Philipp Gesang, Ulrike Fischer",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
@@ -70,7 +70,7 @@ local copy_node = nodedirect.copy
local new_node = nodedirect.new
local nodepool = nodedirect.pool
-local new_kern = nodepool.kern
+-- local new_kern = nodepool.kern -- UF removed 2017-07-14
local nodecodes = nodes.nodecodes
@@ -236,16 +236,21 @@ end
--- character kerning functionality
---=================================================================---
+-- UF changed 2017-07-14
+local nodedirectnew = node.direct.new
+
local kern_injector = function (fillup, kern)
- if fillup then
- local g = new_glue(kern)
- local s = getfield(g, "spec")
- setfield(s, "stretch", kern)
- setfield(s, "stretch_order", 1)
- return g
- end
- return new_kern(kern)
+ if fillup then
+ local g = nodedirectnew("glue")
+ setfield(g, "stretch", kern)
+ setfield(g, "stretch_order", 1)
+ return g
+ end
+ local g = nodedirectnew("kern")
+ setfield(g,"kern",kern)
+ return g
end
+-- /UF
local kernable_skip = function (n)
local st = getsubtype (n)