From 14400e500a140b2559225057e285b37fc264f21c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 20 Oct 2006 17:00:15 +0000 Subject: [PATCH] * scm/framework-ps.scm (dump-stencil-as-EPS): thinko. * scm/framework-ps.scm (dump-stencil-as-EPS): use eps-box-padding, a number. --- ChangeLog | 2 ++ scm/framework-ps.scm | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 62c4b1ae93..8813f45d6c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-10-20 Han-Wen Nienhuys + * 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))))) -- 2.39.5