added printpagenumber

diff --git a/ChangeLog b/ChangeLog
index 098ac4d879e65ffdc52c481f757307a977fb290e..a11aa2d0d8abc382af37d0e018504a73575924cb 100644 (file)
--- 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 428c07d5cdeb0e15688f17086ba3035c72c7187b..cf1fae1316ce4ec0902f0099cd03976257f6ab43 100644 (file)
--- 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)