beta 2011.10.14 22:47

1 files changed, 8 insertions, 0 deletions

diff --git a/tex/context/base/font-ctx.lua b/tex/context/base/font-ctx.lua
index 0e92c8260..d47fc11d9 100644
--- a/tex/context/base/font-ctx.lua
+++ b/tex/context/base/font-ctx.lua
@@ -108,6 +108,7 @@ setmetatableindex(fontdata, function(t,k) return nulldata end)
 
 local chardata      = allocate() -- chardata
 local parameters    = allocate()
+local properties    = allocate()
 local quaddata      = allocate()
 local markdata      = allocate()
 local xheightdata   = allocate()
@@ -116,6 +117,7 @@ local italicsdata   = allocate()
 
 hashes.characters   = chardata
 hashes.parameters   = parameters
+hashes.properties   = properties
 hashes.quads        = quaddata
 hashes.marks        = markdata
 hashes.xheights     = xheightdata
@@ -134,6 +136,12 @@ setmetatableindex(parameters, function(t,k)
     return parameters
 end)
 
+setmetatableindex(properties, function(t,k)
+    local properties = fontdata[k].properties
+    t[k] = properties
+    return properties
+end)
+
 setmetatableindex(quaddata, function(t,k)
     local parameters = parameters[k]
     local quad = parameters and parameters.quad or 0