From 51d6ad94a784e44bb33b6f462bf27cbc07d6606c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 9 Mar 2006 22:23:53 +0000 Subject: [PATCH] (ps-embed-cff): no Setup section in Prolog. No %%EOF after CFF file. --- ChangeLog | 5 +++++ scm/framework-ps.scm | 8 +++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 72d94e1706..9c7b3d87ea 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-03-09 Han-Wen Nienhuys + + * scm/framework-ps.scm (ps-embed-cff): no Setup section in + Prolog. No %%EOF after CFF file. + 2006-03-08 Joe Neeman * lily/constrained-breaking.cc (get_max_systems): used to return a diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index a8e94b628b..3998d0f0b7 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -196,13 +196,12 @@ " file-name (cached-file-contents file-name)))) -(define (setup paper) +(define (setup-variables paper) (string-append "\n" - "%%BeginSetup\n" (define-fonts paper) (output-variables paper) - "%%EndSetup\n")) + )) (define (cff-font? font) (let* @@ -232,7 +231,6 @@ (string-length binary-data))) (footer "\n%%EndData %%EndResource -%%EOF %%EndResource\n")) (string-append @@ -412,7 +410,7 @@ (display "\n%%EndFont\n" port)) (load-fonts paper))) - (display (setup paper) port) + (display (setup-variables paper) port) ;; adobe note 5002: should initialize variables before loading routines. (display (procset "music-drawing-routines.ps") port) -- 2.39.5