From 0bd73a72c7ebdd9d21c478145b7d017a1c6afb01 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 15:51:27 +0100
Subject: [PATCH] Don't crash if eps-box-padding is not defined.

---
 scm/framework-ps.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

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