From 6d7cbf123ae37267f91f51c5e65ff36870bf5e73 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 14 Oct 2011 22:47:00 +0200
Subject: beta 2011.10.14 22:47

---
 tex/context/base/font-ctx.lua | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tex/context/base/font-ctx.lua')

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
-- 
cgit v1.2.3