X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=954dae2b5fc85b3e8a0acee7cc0656c922d1ece6;hb=72b40d872ba61f7542b97600d8169528e5e9357c;hp=355094e3a6dc1ce91a76b0bb896501b9d871d50c;hpb=8fb7a5d320bee6046020ee45de1893ea38cbe15d;p=lilypond.git

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 355094e3a6..954dae2b5f 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
 
@@ -320,9 +320,9 @@ back to the lilypond source statement.")
 %% predefined fretboards
 
 predefinedFretboardsOff =
-  \set FretBoards.predefinedDiagramTable = ##f
+  \set predefinedDiagramTable = ##f
 predefinedFretboardsOn =
-  \set FretBoards.predefinedDiagramTable = #fretboard-table
+  \set predefinedDiagramTable = #fretboard-table
 
 
 %% shape note heads