From 4f41bd0f42b4b2019c0eea984a28cda3dc796a0d Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Mon, 11 Oct 2004 11:18:32 +0000
Subject: [PATCH] *** empty log message ***

---
 scm/framework-tex.scm | 13 ++++---------
 scm/paper.scm         | 10 ++++++++++
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 38c085a48e..8e27a74be0 100644
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -260,15 +260,11 @@
 
 
 (define-public (convert-to-pdf book name)
-  (let*
-      ((defs (ly:paper-book-paper book))
-       (size (ly:output-def-lookup defs 'papersize)))
+  (let* ((defs (ly:paper-book-paper book))
+	 (size (ly:output-def-lookup defs 'papersize)))
 
     (postscript->pdf (if (string? size) size "a4")
-		     (string-append
-		      (basename name ".tex")
-		      ".ps")
-		     )))
+		     (string-append (basename name ".tex") ".ps"))))
 
 (define-public (convert-to-png book name)
   (let*
@@ -277,8 +273,7 @@
 
     (postscript->png
      (if (number? resolution) resolution 90)
-     (string-append (basename name ".tex") ".ps")
-     )))
+     (string-append (basename name ".tex") ".ps"))))
 
 (define-public (convert-to-ps book name)
   (let* ((paper (ly:paper-book-paper book))
diff --git a/scm/paper.scm b/scm/paper.scm
index 9e96e59443..d1233f3e5b 100644
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -112,8 +112,18 @@
       (if landscape?
 	  (set! entry (swap entry)))
       (set-paper-dimensions module (car entry) (cdr entry))
+
+      
       (module-define! module 'papersize name)
+      
+      ;; FIXME: if this name-play is on purpose, please document.  Why
+      ;; is it not used troughout?  Should this be removed, or
+      ;; should 'papersize be removed?
+
+      ;; setting \paper{ papersize = "a6" } gives funny results.
+      
       (module-define! module 'papersizename name)
+
       (if landscape?
 	  (module-define! module 'landscape #t)))
      (else
-- 
2.39.2