From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 14:51:27 +0000 (+0100)
Subject: Don't crash if eps-box-padding is not defined.
X-Git-Tag: release/2.10.6-1~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4569bcd5ab644de0fa32e15688b283e7331511b6;p=lilypond.git

Don't crash if eps-box-padding is not defined.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 3836961451..d1de182c71 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)