From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 27 Apr 2006 13:33:28 +0000 (+0000)
Subject: (output-framework): remove PageMedia
X-Git-Tag: release/2.9.3~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0d4c5c8604cce5041a530e8ed32e351215b59a05;p=lilypond.git

(output-framework): remove PageMedia
---

diff --git a/ChangeLog b/ChangeLog
index 7ff8af9149..e93c17588d 100644
--- 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 a2d7fa822a..ec7fbef6be 100644
--- 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)