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))