From bb215c0308a2f94278f5be2fbc1b8c28d16550de Mon Sep 17 00:00:00 2001
From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Sat, 12 Dec 2015 01:25:10 +0900
Subject: [PATCH] Issue 4701/1: Fix `-dgs-load-fonts' option with
 non-Emmentaler music font

Using CFF-font test instead of internal-font test,
non-Emmentaler CFF-font can be embedded.
---
 scm/framework-ps.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 60d7bb3fc0..b45a69d615 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -272,7 +272,7 @@
             (if (mac-font? bare-file-name)
                 (handle-mac-font name bare-file-name)
                 (cond
-                 ((internal-font? file-name)
+                 ((and font (cff-font? font))
                   (ps-load-file (ly:find-file
                                  (format #f "~a.otf" file-name))))
                  ((string? bare-file-name)
-- 
2.39.2