X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=8bafb758f07bd0c52186359f0b0b930629f1a3fb;hb=db313ad3bc0e00e323b9f8f07852070b79d15096;hp=a6465a02ee764e751cb9f39bb787a30af1253e7e;hpb=507310b9197dba51c57a3a2de280c90d4f65d840;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a6465a02ee..8bafb758f0 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -243,9 +243,12 @@
          (footer "\n%%EndData
 %%EndResource
 %%EndResource\n"))
-    (string-append header
-                   binary-data
-                   footer)))
+    (begin
+      (set! never-embed-font-list
+            (append never-embed-font-list (list font-set-name)))
+      (string-append header
+                     binary-data
+                     footer))))
 
 (define check-conflict-and-embed-cff
   (let ((font-list '()))