From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Tue, 7 Jun 2016 13:26:06 +0000 (+0900)
Subject: Issue 4889/2: Integrate Type1 font embedding procedures
X-Git-Tag: release/2.19.44-1~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2a058ff68e446d71f51000bce12f7c13f983ef9d;p=lilypond.git

Issue 4889/2: Integrate Type1 font embedding procedures

For embedding both PFA and PFB fonts are used
the same procedure `ly:type1->pfa'.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a781055f50..9dc8414bbf 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -334,9 +334,9 @@
     (let* ((downcase-file-name (string-downcase file-name)))
       (cond
        ((and file-name (string-endswith downcase-file-name ".pfa"))
-        (embed-document file-name))
+        (ly:type1->pfa file-name))
        ((and file-name (string-endswith downcase-file-name ".pfb"))
-        (ly:pfb->pfa file-name))
+        (ly:type1->pfa file-name))
        ((and file-name (string-endswith downcase-file-name ".ttf"))
         (ly:ttf->pfa file-name))
        ((and file-name (string-endswith downcase-file-name ".ttc"))