From: Pedro Kroger <kroeger@pedrokroeger.net>
Date: Thu, 26 May 2005 01:25:37 +0000 (+0000)
Subject: added printpagenumber
X-Git-Tag: release/2.5.26~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e66c42324b8f89bf409327eb0ec893df711e782f;p=lilypond.git

added printpagenumber
---

diff --git a/ChangeLog b/ChangeLog
index 098ac4d879..a11aa2d0d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-25  Pedro Kroger  <kroeger@pedrokroeger.net>
+
+	* scm/titling.scm (marked-up-headfoot): doesn't print pagenumbers
+	if printpagenumber is false.
+
 2005-05-26  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* lily/font-config.cc (init_fontconfig): comment out FontConfig
diff --git a/scm/titling.scm b/scm/titling.scm
index 428c07d5cd..cf1fae1316 100644
--- a/scm/titling.scm
+++ b/scm/titling.scm
@@ -48,7 +48,9 @@ page:last?, page:page-number-string and page:page-number
 			(else "")))
 		 (cons 'page:last? last?)
 		 (cons 'page:page-number-string
-		       (number->string page-number))
+           (if (ly:output-def-lookup layout 'printpagenumber)
+               (number->string page-number)
+               ""))
 		 (cons 'page:page-number page-number)))
 	       (props (append
 		       (list pgnum-alist)