From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 9 Mar 2006 22:23:53 +0000 (+0000)
Subject: (ps-embed-cff): no Setup section in
X-Git-Tag: release/2.7.39~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=51d6ad94a784e44bb33b6f462bf27cbc07d6606c;p=lilypond.git

(ps-embed-cff): no Setup section in
Prolog. No %%EOF after CFF file.
---

diff --git a/ChangeLog b/ChangeLog
index 72d94e1706..9c7b3d87ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-09  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/framework-ps.scm (ps-embed-cff): no Setup section in
+	Prolog. No %%EOF after CFF file.
+
 2006-03-08  Joe Neeman  <joeneeman@gmail.com>
 	
 	* 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)