* scripts/lilypond-book.py (main): use -deps-box-padding=-3

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 9207b181fb0ea5ef49f35c5beb500f4fe6572d73..aa0696bbc3ab1158815e3f1b690c18f87348c305 100644 (file)
--- 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 -3)
+       (left-overshoot (number? (ly:get-option 'eps-box-padding)))
        (bbox
        (map
         (lambda (x)
@@ -502,7 +502,7 @@
           ;;
           (list
            
-           (if (ly:get-option 'pad-eps-boxes) 
+           (if left-overshoot
                (min left-overshoot (car xext))
                (car xext))
            (car yext) (cdr xext) (cdr yext)))))