From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 6 Jan 2007 19:50:06 +0000 (+0100)
Subject: don't output-empty-score-list unless \book is encountered.
X-Git-Tag: release/2.11.10-1~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3594b670a87ccb49018113088f9b75b7eae5bedc;p=lilypond.git

don't output-empty-score-list unless \book is encountered.
---

diff --git a/ly/lilypond-book-preamble.ly b/ly/lilypond-book-preamble.ly
index 063c69680b..a7bea92f15 100644
--- a/ly/lilypond-book-preamble.ly
+++ b/ly/lilypond-book-preamble.ly
@@ -7,23 +7,20 @@
   print-book-with-defaults-as-systems )
 
 #(define toplevel-book-handler
-
   (lambda ( . rest)
   (set! output-empty-score-list #f)
   (apply print-book-with-defaults rest)))
 
 #(define toplevel-music-handler
   (lambda ( . rest)
-   (set! output-empty-score-list #f)
    (apply collect-music-for-book rest)))
 
 #(define toplevel-score-handler
   (lambda ( . rest)
-   (set! output-empty-score-list #f)
    (apply collect-scores-for-book rest)))
+
 #(define toplevel-text-handler
   (lambda ( . rest)
-   (set! output-empty-score-list #f)
    (apply collect-scores-for-book rest)))
 
 #(set! output-empty-score-list #t)