From: Neil Puttock 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