From 1c02c7311fd48b0de24e6bedaec42f2a48e791a6 Mon Sep 17 00:00:00 2001
From: Khaled Hosny <khaledhosny@eglug.org>
Date: Sat, 16 Jan 2010 07:32:37 +0200
Subject: Improved page resources handling

---
 otfl-font-msc.lua | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'otfl-font-msc.lua')

diff --git a/otfl-font-msc.lua b/otfl-font-msc.lua
index bb04927..6ebf31d 100644
--- a/otfl-font-msc.lua
+++ b/otfl-font-msc.lua
@@ -172,11 +172,17 @@ function luaotfload.node_colorize(head)
 end
 
 function luaotfload.colorize(head)
-   local h = luaotfload.node_colorize(head)
+   -- check if our page resources existed in the previous run
+   -- and remove it to avoid duplicating it later
    if res then
       local r = "/ExtGState<<"..res..">>"
-      local s = tex.pdfpageresources:find(r) and "" or r
-      tex.pdfpageresources = tex.pdfpageresources..s
+      tex.pdfpageresources = tex.pdfpageresources:gsub(r, "")
+   end
+   local h = luaotfload.node_colorize(head)
+   -- now append our page resources
+   if res and not res:is_empty() then
+      local r = "/ExtGState<<"..res..">>"
+      tex.pdfpageresources = tex.pdfpageresources..r
    end
    return h
 end
-- 
cgit v1.2.3