From dcf3a9a909d52e5b92a6685a94f5d8629b48ea40 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Sat, 27 Dec 2008 09:25:04 +0100 Subject: [PATCH] Avoid newline before `%%EndFont'. --- scm/framework-ps.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2