beta 2009.11.24 10:13

1 files changed, 12 insertions, 1 deletions

diff --git a/tex/context/base/font-pat.lua b/tex/context/base/font-pat.lua
index 65e8355c7..e720af79c 100644
--- a/tex/context/base/font-pat.lua
+++ b/tex/context/base/font-pat.lua
@@ -6,7 +6,7 @@ if not modules then modules = { } end modules ['font-pat'] = {
     license   = "see context related readme files"
 }
 
-local match, lower = string.match, string.lower
+local match, lower, find = string.match, string.lower, string.find
 
 local trace_loading = false  trackers.register("otf.loading", function(v) trace_loading = v end)
 
@@ -106,6 +106,17 @@ local function patch_domh(data,filename,threshold)
             m.DisplayOperatorMinHeight = threshold
         end
     end
+    for _, g in pairs(data.glyphs) do
+        local name = g.name
+        if find(name,"^integral$") or find(name,"^integral%.vsize") then
+            local width, italic = g.width or 0, g.italic_correction or 0
+            local newwidth = width - italic
+            if trace_loading then
+                logs.report("load otf","patching width of %s: %s (width) - %s (italic) = %s",name,width,italic,newwidth)
+            end
+            g.width = newwidth
+        end
+    end
 end
 
 patches["cambria"]  = function(data,filename) patch_domh(data,filename,2800) end