From be62b6b5d1a6a7d243d2f49a7d38f036e49859a8 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Thu, 27 Apr 2006 13:33:28 +0000
Subject: [PATCH] (output-framework): remove PageMedia

---
 ChangeLog            | 4 ++++
 scm/framework-ps.scm | 8 +++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

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)
 
-- 
2.39.5