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 248b3ee0ac5b15e18d73b8dcfb023646439a6153..a6465a02ee764e751cb9f39bb787a30af1253e7e 100644 (file)
--- 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))