* lily/page-breaking.cc (make_pages): honour the first-page-number

property

diff --git a/ChangeLog b/ChangeLog
index 055e51f097d3cd49463e4affd7a09f033f2c6aa3..0497dd03c071deacdfbf9b6b0e4dd88368fba8fd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-29  Joe Neeman  <joeneeman@gmail.com>
+
+       * lily/page-breaking.cc (make_pages): honour the first-page-number
+       property
+
 2006-09-27  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
        * VERSION (PACKAGE_NAME): bump version.

diff --git a/lily/page-breaking.cc b/lily/page-breaking.cc
index fee3fa26d914ebd52cad0654302619b160108996..e552c667b1a6456d00082e0fbd014915c6ef5d22 100644 (file)
--- a/lily/page-breaking.cc
+++ b/lily/page-breaking.cc
@@ -189,11 +189,12 @@ Page_breaking::make_pages (vector<vsize> lines_per_page, SCM systems)
   SCM book = book_->self_scm ();
   bool ragged_all = to_boolean (book_->paper_->c_variable ("ragged-bottom"));
   bool ragged_last = to_boolean (book_->paper_->c_variable ("ragged-last-bottom"));
+  int first_page_number = robust_scm2int (book_->paper_->c_variable ("first-page-number"), 1);
   SCM ret = SCM_EOL;
 
   for (vsize i = 0; i < lines_per_page.size (); i++)
     {
-      SCM page_num = scm_from_int (i + 1);
+      SCM page_num = scm_from_int (i + first_page_number);
       SCM last = scm_from_bool (i == lines_per_page.size () - 1);
       SCM ragged = scm_from_bool (ragged_all || (to_boolean (last) && ragged_last));
       SCM line_count = scm_from_int (lines_per_page[i]);