beta 2011.08.18 16:00

1 files changed, 10 insertions, 1 deletions

diff --git a/tex/context/base/font-ctx.lua b/tex/context/base/font-ctx.lua
index 1d7580d84..7b5b5fd10 100644
--- a/tex/context/base/font-ctx.lua
+++ b/tex/context/base/font-ctx.lua
@@ -109,12 +109,14 @@ setmetatableindex(fontdata, function(t,k) return nulldata end)
 local chardata      = allocate() -- chardata
 local parameters    = allocate()
 local csnames       = allocate() -- namedata
-local quaddata      = allocate() -- quaddata
+local quaddata      = allocate()
+local markdata      = allocate()
 local xheightdata   = allocate() -- xheightdata
 
 hashes.characters   = chardata
 hashes.parameters   = parameters
 hashes.quads        = quaddata
+hashes.marks        = markdata
 hashes.xheights     = xheightdata
 hashes.csnames      = csnames
 
@@ -137,6 +139,13 @@ setmetatableindex(quaddata, function(t,k)
     return quad
 end)
 
+setmetatableindex(markdata, function(t,k)
+    local resources = fontdata[k].resources or { }
+    local marks = resources.marks or { }
+    t[k] = marks
+    return marks
+end)
+
 setmetatableindex(xheightdata, function(t,k)
     local parameters = parameters[k]
     local xheight = parameters and parameters.xheight or 0