From: David Kastrup <dak@gnu.org>
Date: Sun, 28 Jul 2013 11:20:13 +0000 (+0200)
Subject: Let \fermataMarkup use \fermata markup command
X-Git-Tag: release/2.17.24-1~16^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=754b4e7e2736db09eae1d52b843d45a9db0903d6;p=lilypond.git

Let \fermataMarkup use \fermata markup command
---

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 94be429743..5222b232d8 100644
--- 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