X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Flilypond-book-preamble.ly;h=a7bea92f1566be1148302a18d39b08fb26e6adb3;hb=91c6fc1cb6950a316336a242c6e971e099df8c80;hp=91fde7c84b874f2796bf80742981864335deae0a;hpb=b213e71b6a003307d2112d014e4a14d6158a4964;p=lilypond.git

diff --git a/ly/lilypond-book-preamble.ly b/ly/lilypond-book-preamble.ly
index 91fde7c84b..a7bea92f15 100644
--- a/ly/lilypond-book-preamble.ly
+++ b/ly/lilypond-book-preamble.ly
@@ -6,6 +6,26 @@
 #(define default-toplevel-book-handler
   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)
+   (apply collect-music-for-book rest)))
+
+#(define toplevel-score-handler
+  (lambda ( . rest)
+   (apply collect-scores-for-book rest)))
+
+#(define toplevel-text-handler
+  (lambda ( . rest)
+   (apply collect-scores-for-book rest)))
+
+#(set! output-empty-score-list #t)
+
+
 #(ly:set-option (quote no-point-and-click))
 #(define inside-lilypond-book #t)
 #(define version-seen #t)