]> git.donarmstrong.com Git - lilypond.git/commitdiff
Fix #981.
authorNeil Puttock <n.puttock@gmail.com>
Wed, 20 Jan 2010 22:09:14 +0000 (22:09 +0000)
committerNeil Puttock <n.puttock@gmail.com>
Wed, 20 Jan 2010 22:09:59 +0000 (22:09 +0000)
* clear default outside-staff-padding in \fermataMarkup

ly/property-init.ly

index 355094e3a6dc1ce91a76b0bb896501b9d871d50c..788cabb96c9412019e4541c71d8d98c7e39fe6dd 100644 (file)
@@ -172,14 +172,14 @@ endincipit = \context Staff {
 
 fermataMarkup =
 #(make-music 'MultiMeasureTextEvent
-   'tweaks (list
-             ; Set the 'text based on the 'direction
-             (cons 'text (lambda (grob)
-               (if (eq? (ly:grob-property grob 'direction) DOWN)
-                (markup #:musicglyph "scripts.dfermata")
-                (markup #:musicglyph "scripts.ufermata"))))
-             (cons 'outside-staff-priority 40)))
-
+             'tweaks (list
+                      ;; Set the 'text based on the 'direction
+                      (cons 'text (lambda (grob)
+                                    (if (eq? (ly:grob-property grob 'direction) DOWN)
+                                        (markup #:musicglyph "scripts.dfermata")
+                                        (markup #:musicglyph "scripts.ufermata"))))
+                      (cons 'outside-staff-priority 40)
+                      (cons 'outside-staff-padding 0)))
 
 %% font sizes