From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 15 Jun 2005 00:43:19 +0000 (+0000)
Subject: (write-preamble): use ly:system.
X-Git-Tag: release/2.5.31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ed84cd71a52e5020f199c829c0fe980e3cd2e0bf;p=lilypond.git

(write-preamble): use ly:system.
(write-preamble): verbosity.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 6ba4744975..c0318379ef 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -288,7 +288,8 @@
 
       (for-each
        (lambda (f)
-	 (if (string-match (string-append name "\\.") f)
+	 (if (and (not embed)
+		  (string-match (string-append name "\\.") f))
 	     (set! embed
 		   (font-file-as-ps-string name (path-join dir-name f))))