(add_score_title): put Paper_score title into

systems_ list.

diff --git a/ChangeLog b/ChangeLog
index fa054fa29e1c1262daecf3ace96e4a0e7b25c8f2..c7abb5197fbca6bb0f8b7452baf285a309120f64 100644 (file)
--- 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 fc9b0ad7704e8177f8b05cf0fba239260aa257f6..9b67e30677f1aaf09a78d88c604980c82b3ab3f4 100644 (file)
--- 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 4cd47232a0f6a7fc05acb504c2557ffa652a28c9..5e274e98b6d479178a5e3095a6a50b4483dfa3f1 100644 (file)
--- 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);
     }