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 a6465a02ee764e751cb9f39bb787a30af1253e7e..8bafb758f07bd0c52186359f0b0b930629f1a3fb 100644 (file)
--- 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 '()))