Merge branch 'master' of git://git.sv.gnu.org/lilypond

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index e63cb262e8ee4def523bf8fce9207e2098d7c524..5ea57cc7fc570e56d643082ae86ebf1bc0733c53 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -487,11 +487,10 @@
   (let*
       ((xext (ly:stencil-extent dump-me X))
        (yext (ly:stencil-extent dump-me Y))
-       (left-overshoot (*
-                       -1
-                       (ly:get-option 'eps-box-padding)
-                       (ly:output-def-lookup paper 'mm)
-                       ))
+       (padding (ly:get-option 'eps-box-padding))
+       (left-overshoot (if (number? padding)
+                          (* -1 padding (ly:output-def-lookup paper 'mm))
+                          #f))
        (bbox
        (map
         (lambda (x)