diff options
| author | Masamichi Hosoda <trueroad@trueroad.jp> | 2016-06-07 22:26:06 +0900 |
|---|---|---|
| committer | Masamichi Hosoda <trueroad@trueroad.jp> | 2016-06-16 00:05:20 +0900 |
| commit | 2a058ff68e446d71f51000bce12f7c13f983ef9d (patch) | |
| tree | 411bf8cdb16da0796cb25b9a37dd2049b4317f71 /scm | |
| parent | 20566977015b8bf1979c6d6fea8fe5df0df756e4 (diff) | |
Issue 4889/2: Integrate Type1 font embedding procedures
For embedding both PFA and PFB fonts are used
the same procedure `ly:type1->pfa'.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/framework-ps.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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")) |