From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Jan 2007 15:45:42 +0000 (+0100)
Subject: run clip-systems in EPS mode too.
X-Git-Tag: release/2.11.15-1~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f605c1bfb0803efce1fad4472820360b7d40e0bd;p=lilypond.git

run clip-systems in EPS mode too.
---

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index cf9bec54b3..fab2d77177 100644
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -146,6 +146,9 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment."
 
 (define-public (output-framework basename book scopes fields)
   (output-scopes scopes fields basename)
+  (if (ly:get-option 'clip-systems)
+      (clip-system-EPSes basename book))
+
   (dump-stencils-as-EPSes
    (map page-stencil (ly:paper-book-pages book)) book basename))
   
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a277acb741..28579ebc96 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -603,7 +603,7 @@
     ))
 
 
-(define (clip-system-EPSes basename paper-book)
+(define-public (clip-system-EPSes basename paper-book)
   (define do-pdf (member  "pdf" (ly:output-formats)))
 
   (define (clip-score-systems basename systems)