From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Fri, 28 Oct 2016 14:14:32 +0000 (+0900)
Subject: Issue 4992/3: Add never-embed-font-list for Type 1 (PFA and PFB) fonts
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=507310b9197dba51c57a3a2de280c90d4f65d840;p=lilypond.git

Issue 4992/3: Add never-embed-font-list for Type 1 (PFA and PFB) fonts

When you use `-dgs-never-embed-fonts` option,
Ghostscript never embed Type 1 (PFA and PFB) fonts for PDF file output.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 248b3ee0ac..a6465a02ee 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -402,7 +402,9 @@
       (cond
        ((eq? font-format (string->symbol "Type 1"))
         ;; Type 1 (PFA and PFB) fonts
-        (ly:type1->pfa file-name))
+        (begin (set! never-embed-font-list
+                     (append never-embed-font-list (list name)))
+               (ly:type1->pfa file-name)))
        ((eq? font-format 'TrueType)
         ;; TrueType fonts (TTF) and TrueType Collection (TTC)
         (ly:ttf->pfa file-name font-index))