From: Neil Puttock <n.puttock@gmail.com>
Date: Wed, 20 Jan 2010 22:09:14 +0000 (+0000)
Subject: Fix #981.
X-Git-Tag: release/2.13.12-1~87
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=12aa18be77eda8fbe5cd46b26f064c2b2990323c;p=lilypond.git

Fix #981.

* clear default outside-staff-padding in \fermataMarkup
---

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 355094e3a6..788cabb96c 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -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