Account for title spacing in page breaking.

[lilypond.git] / scm / ps-to-png.scm

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index cbe6d23e4bae71023f0a525a66ff1f69600ef8c4..501924116991564f41c1c8c03755148fb7ec7046 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -124,8 +124,7 @@
          (output-file (if multi-page? pngn png1))
 
          (gs-variable-options
-           ;; ps-page-count returns 0 for EPS files
-           (if (zero? page-count)
+           (if (string-suffix-ci? ".eps" ps-name)
                "-dEPSCrop"
                (format #f "-dDEVICEWIDTHPOINTS=~,2f -dDEVICEHEIGHTPOINTS=~,2f"
                        page-width page-height)))