* scm/markup.scm:

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index e27cf4115a014bf8bf3cf6ca74af66d9ac1aee88..1e0deba2050b356d4d5498b9ea0dc8cab47d129e 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -362,11 +362,12 @@
 
 (define-public (convert-to-png book name)
   (let* ((defs (ly:paper-book-paper book))
-        (resolution (ly:output-def-lookup defs 'pngresolution)))
+        (resolution (ly:output-def-lookup defs 'pngresolution))
+        (papersizename (ly:output-def-lookup defs 'papersizename)))
 
     (postscript->png (if (number? resolution) resolution
-
                         (ly:get-option 'resolution))
+                    (if (string? papersizename) papersizename "a4")
                     name)))
 
 (define-public (convert-to-dvi book name)