X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdynamic-scripts-init.ly;h=fdbc03fb01b08793b0818ec17e9ffb2c4d68e873;hb=f74485aafac3d2435e99a84fd4de8a70031d343f;hp=b5c7bd2370a77feb9c6472c78c10e972fdcf3ba8;hpb=899a5926b98860f3d5db399616d9211927fbfa3c;p=lilypond.git

diff --git a/ly/dynamic-scripts-init.ly b/ly/dynamic-scripts-init.ly
index b5c7bd2370..fdbc03fb01 100644
--- a/ly/dynamic-scripts-init.ly
+++ b/ly/dynamic-scripts-init.ly
@@ -1,22 +1,22 @@
-\version "1.7.3"
+\version "2.10.0"
 
 %
 % declare the standard dynamic identifiers.
 %
 
 #(define (make-dynamic-script str)
-  (let* ((m (make-music-by-name  'AbsoluteDynamicEvent)))
-  (ly:set-mus-property! m 'text str)
-  m
-  ))
-ppppp = #(make-dynamic-script "pppp")
+   (make-music 'AbsoluteDynamicEvent
+              'text str))
+ppppp = #(make-dynamic-script "ppppp")
 pppp = #(make-dynamic-script "pppp")
 ppp = #(make-dynamic-script "ppp")
 pp = #(make-dynamic-script "pp")
 p = #(make-dynamic-script "p")
 mp = #(make-dynamic-script "mp")
 mf = #(make-dynamic-script "mf")
-f = #(make-dynamic-script "f")
+
+%% f is pitch.
+"f" = #(make-dynamic-script "f")
 ff = #(make-dynamic-script "ff")
 fff = #(make-dynamic-script "fff")
 ffff = #(make-dynamic-script "ffff")