From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 20 Oct 2006 17:00:15 +0000 (+0000)
Subject: * scm/framework-ps.scm (dump-stencil-as-EPS): thinko.
X-Git-Tag: release/2.10.0-2~130
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=14400e500a140b2559225057e285b37fc264f21c;p=lilypond.git

* scm/framework-ps.scm (dump-stencil-as-EPS): thinko.

* scm/framework-ps.scm (dump-stencil-as-EPS): use eps-box-padding,
a number.
---

diff --git a/ChangeLog b/ChangeLog
index 62c4b1ae93..8813f45d6c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-10-20  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* scm/framework-ps.scm (dump-stencil-as-EPS): thinko.
+
 	* lily/ttf.cc (print_trailer): if all else fails: use
 	glyphIndexXXXX as glyph name.
 
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index aa0696bbc3..f06424d72c 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -487,7 +487,7 @@
   (let*
       ((xext (ly:stencil-extent dump-me X))
        (yext (ly:stencil-extent dump-me Y))
-       (left-overshoot (number? (ly:get-option 'eps-box-padding)))
+       (left-overshoot (ly:get-option 'eps-box-padding))
        (bbox
 	(map
 	 (lambda (x)
@@ -502,7 +502,7 @@
 	   ;;
 	   (list
 	    
-	    (if left-overshoot
+	    (if (number? left-overshoot)
 		(min left-overshoot (car xext))
 		(car xext))
 	    (car yext) (cdr xext) (cdr yext)))))