From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Fri, 28 Oct 2016 14:15:56 +0000 (+0900)
Subject: Issue 4992/4: Add never-embed-font-list for OpenType/CFF (OTF, OTC) fonts
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=db313ad3bc0e00e323b9f8f07852070b79d15096;p=lilypond.git

Issue 4992/4: Add never-embed-font-list for OpenType/CFF (OTF, OTC) fonts

When you use `-dgs-never-embed-fonts` option,
Ghostscript never embed OpenType/CFF (OTF and OTC) fonts
for PDF file output.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a6465a02ee..8bafb758f0 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -243,9 +243,12 @@
          (footer "\n%%EndData
 %%EndResource
 %%EndResource\n"))
-    (string-append header
-                   binary-data
-                   footer)))
+    (begin
+      (set! never-embed-font-list
+            (append never-embed-font-list (list font-set-name)))
+      (string-append header
+                     binary-data
+                     footer))))
 
 (define check-conflict-and-embed-cff
   (let ((font-list '()))