X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=e914b70326435296f9968343badc6d16fa7f3b78;hb=bcfda82911036559d8fb5681efb9ba2efeddeb3d;hp=725ba480a59642102338ef6b8a4333f6264d4fe6;hpb=1c4458de37e468a5d4fe023a34a5bcb05bf24aad;p=lilypond.git

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 725ba480a5..e914b70326 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -14,7 +14,7 @@
 acciaccatura =
 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
 
-addquote =
+addQuote =
 #(define-music-function (parser location name music) (string? ly:music?)
    (_i "Add a piece of music to be quoted ")
    (add-quotable parser name music)
@@ -531,7 +531,8 @@ the `parameters' assoc list.")
    #{
       \overrideProperty #"Score.NonMusicalPaperColumn"
         #'line-break-system-details
-        #$(list (cons 'alignment-extra-space (cdr (assoc 'system-stretch parameters))))
+        #$(list (cons 'alignment-extra-space (cdr (assoc 'system-stretch parameters)))
+		(cons 'system-Y-extent (cdr (assoc 'system-Y-extent parameters))))
    #})
 
 %% Parser used to read page-layout file, and then retreive score tweaks.