(ps-embed-cff): no Setup section in

Prolog. No %%EOF after CFF file.

diff --git a/ChangeLog b/ChangeLog
index 72d94e1706d8b5606854724656595fddfde481ae..9c7b3d87eaa65d39928444cef6e897c253b367ba 100644 (file)
--- 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 a8e94b628bf2f6c4ff393a9790136719a432c335..3998d0f0b7c4b2aa385c72b90385afd043425f59 100644 (file)
--- 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)