X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=5ea57cc7fc570e56d643082ae86ebf1bc0733c53;hb=ba3045ce76cd37a4e11fd775fa04ce4b7586ad77;hp=e63cb262e8ee4def523bf8fce9207e2098d7c524;hpb=cc18fd6f82df460cc31695c4c31f47f45b7e434e;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index e63cb262e8..5ea57cc7fc 100644
--- 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)