Let \fermataMarkup use \fermata markup command

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 94be429743cdf2e77484ced4d3be7b6bfc10bdb4..5222b232d89de76917c55266393fb186d84f110e 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "2.17.20"
+\version "2.17.24"
 
 %% for dashed slurs, phrasing slurs, and ties
 #(define (make-simple-dash-definition dash-fraction dash-period)
@@ -219,14 +219,10 @@ 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)
-                      (cons 'outside-staff-padding 0)))
+            ;; Set the 'text based on the 'direction
+            'text (make-fermata-markup)
+             'tweaks '((outside-staff-priority . 40)
+                      (outside-staff-padding . 0)))
 
 %% font sizes