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.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 60d7bb3fc04caf32994f3d55b48f24879fb63848..b45a69d61504dc6a21457c08ffa388bc48caa0b9 100644 (file)
--- 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)