X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftitling.scm;h=23fdce87752f5415d1f6d4626c7e6df7d061219a;hb=22e08890d768ab0426115c6364c75d4e81b8ecd0;hp=fa020782585abecce0bea34f40c12a2523372c19;hpb=75eebcb49e52d296b1da3e1074e0825d2c780db4;p=lilypond.git diff --git a/scm/titling.scm b/scm/titling.scm index fa02078258..23fdce8775 100644 --- a/scm/titling.scm +++ b/scm/titling.scm @@ -2,12 +2,12 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; (c) 2004--2007 Jan Nieuwenhuizen +;;;; Han-Wen Nienhuys (define-public (layout-extract-page-properties layout) - (list (append `((linewidth . ,(ly:paper-get-number - layout 'linewidth))) + (list (append `((line-width . ,(ly:paper-get-number + layout 'line-width))) (ly:output-def-lookup layout 'text-font-defaults)))) ;;;;;;;;;;;;;;;;;;