From: Werner Lemberg <wl@gnu.org>
Date: Sat, 27 Dec 2008 08:25:04 +0000 (+0100)
Subject: Avoid newline before `%%EndFont'.
X-Git-Tag: release/2.12.1-1~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dcf3a9a909d52e5b92a6685a94f5d8629b48ea40;p=lilypond.git

Avoid newline before `%%EndFont'.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c79c32aa98..25c14f6cc3 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -240,7 +240,7 @@
 		(set! file-name (ly:string-substitute (ly:get-option 'datadir)
 						      "" file-name))
 		(format
-		 "lilypond-datadir (~a) concatstrings (r) file .loadfont"
+		 "lilypond-datadir (~a) concatstrings (r) file .loadfont\n"
 		 file-name))
 	      (format "(~a) (r) file .loadfont\n" file-name))
 	  (format "% cannot find font file: ~a\n" file-name)))
@@ -395,7 +395,7 @@
       (for-each (lambda (f)
 		  (format port "\n%%BeginFont: ~a\n" (car f))
 		  (display (cdr f) port)
-		  (display "\n%%EndFont\n" port))
+		  (display "%%EndFont\n" port))
 		(load-fonts paper)))
   (display (setup-variables paper) port)