(output-framework): remove PageMedia

diff --git a/ChangeLog b/ChangeLog
index 7ff8af91495424fe8e2b9d5fb271676e48bc702c..e93c17588d1e676c41d06379174033a21bca23d9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-27  Han-Wen Nienhuys  <hanwen@lilypond.org>
+
+       * scm/framework-ps.scm (output-framework): remove PageMedia
+
 2006-04-27  Graham Percival  <gpermus@gmail.com>
 
        * Documentation/user/ tweaks.itely, working.itely: new

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a2d7fa822a8e70ac1fcee21d0889df5aa5c70a32..ec7fbef6be81b19a034066ad46534fac097959f3 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -446,9 +446,11 @@
 
     (output-scopes scopes fields basename)
     (display (file-header paper page-count #t) port)
-    (display "\n%%BeginDefaults
-%%PageMedia: a4
-%%EndDefaults\n" port)
+
+    
+    ;; don't do BeginDefaults PageMedia: A4 
+    ;; not necessary and wrong
+    
 
     (write-preamble paper #t port)