Merge http://git.sv.gnu.org/r/lilypond

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

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index cf9bec54b30888aa08fc3526bcecb2a24fa8596a..fab2d771771dd4303c8420d5c95d865bc0a56af0 100644 (file)
--- 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))