From: Joe Neeman <joeneeman@gmail.com>
Date: Thu, 28 Sep 2006 22:40:05 +0000 (+0000)
Subject: * lily/page-breaking.cc (make_pages): honour the first-page-number
X-Git-Tag: cvs/HEAD~53
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=92154b9f6a54ba6376621cb54e8dcd396519f969;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index 055e51f097..0497dd03c0 100644
--- 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 fee3fa26d9..e552c667b1 100644
--- 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]);