From: hanwen <hanwen>
Date: Tue, 18 Oct 2005 23:08:12 +0000 (+0000)
Subject: (add_score_title): put Paper_score title into
X-Git-Tag: release/2.7.16^2~66
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=197f16180614fabdea6b8c5b5f5c030471fdd2fb;p=lilypond.git

(add_score_title): put Paper_score title into
systems_ list.
---

diff --git a/ChangeLog b/ChangeLog
index fa054fa29e..c7abb5197f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-10-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* lily/paper-book.cc (add_score_title): put Paper_score title into
+	systems_ list.
+
 	* scm/translation-functions.scm (format-new-bass-figure): also
 	allow plus in combination with _
 
diff --git a/THANKS b/THANKS
index fc9b0ad770..9b67e30677 100644
--- a/THANKS
+++ b/THANKS
@@ -17,6 +17,7 @@ Heikki Junes
 Joe Neeman
 Sven Axelsson
 Yoshinobu Ishizaki
+Nicolas Sceaux
 
 
 SPONSORS
diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 4cd47232a0..5e274e98b6 100644
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -246,6 +246,7 @@ Paper_book::add_score_title (SCM header)
       */
       SCM props = paper_->lookup_variable (ly_symbol2scm ("score-title-properties"));
       Paper_system *ps = new Paper_system (title, props);
+      systems_ = scm_cons (ps->self_scm (), systems_);
       ps->unprotect ();
       set_system_penalty (ps, header);
     }