From db313ad3bc0e00e323b9f8f07852070b79d15096 Mon Sep 17 00:00:00 2001 From: Masamichi Hosoda Date: Fri, 28 Oct 2016 23:15:56 +0900 Subject: [PATCH] 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. --- scm/framework-ps.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 '())) -- 2.39.2