patch for ly/titling-init.ly

[Graham Percival]

To fix a spacing issues between the arranger and opus, I'd like to 
commit
this patch to ly/titling-init.ly :

Index: ly/titling-init.ly
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ly/titling-init.ly,v
retrieving revision 1.20
diff -u -u -r1.20 titling-init.ly
--- ly/titling-init.ly  17 Jul 2005 02:01:39 -0000      1.20
+++ ly/titling-init.ly  16 Aug 2005 04:27:06 -0000
@@ -59,7 +59,7 @@
 }

 scoreTitleMarkup = \markup { \column {
-  \on-the-fly #print-all-headers \bookTitleMarkup
+  \on-the-fly #print-all-headers { \bookTitleMarkup \hspace #1 }
   \fill-line {
     \fromproperty #'header:piece
     \fromproperty #'header:opus




This example demonstrates why it's useful; the arranger and opus files
(or in other words, the bookTitleMarkup and scoreTitleMarkup) fields
are too close when using printallheaders.  When you don't use
printallheaders, the betweensystempadding setting applies to
book/score TitleMarkup, resulting in too much space.

\header{
composer="comp"
arranger="arr"
opus="opus"
}
\paper{
betweensystempadding = 4\cm
printallheaders=##t
bookTitleMarkup={}
}
{ c'1 \break c'1 \break c'1 }