X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fspanners-init.ly;h=28c4574019a118a068e14ddb6ebf83a45abb7b79;hb=bac26647e4febc81786565b02468f122c5a26b11;hp=e86ea4ea748e4c5669c4ac80ddc495f25ef99c22;hpb=d4695990e1da37b5552f25305b65cabe660a167c;p=lilypond.git

diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly
index e86ea4ea74..28c4574019 100644
--- a/ly/spanners-init.ly
+++ b/ly/spanners-init.ly
@@ -21,30 +21,27 @@ stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
 % STOP: junkme!
 cresc =  {
   #(ly:export (make-event-chord (list cr)))
-  \set crescendoText = \markup { \italic "cresc." }
-  \set crescendoSpanner = #'text
+  \once \set crescendoText = \markup { \italic "cresc." }
+  \once \set crescendoSpanner = #'text
 }
 
 
 dim =  {
   #(ly:export (make-event-chord (list decr)))
-
-  \set decrescendoText = \markup { \italic "dim." }
-  \set decrescendoSpanner = #'text
+  \once \set decrescendoText = \markup { \italic "dim." }
+  \once \set decrescendoSpanner = #'text
 }
 
 enddim =  {
   #(ly:export (make-event-chord (list enddecr)))
-  \unset decrescendoText 
-  \unset decrescendoSpanner 
+%  \unset decrescendoText 
+%  \unset decrescendoSpanner 
 }
 
-% ah, this is handy: maybe drop resetting of properties in
-% dynamic-engraver ?
 endcresc =  {
   #(ly:export (make-event-chord (list endcr)))
-  \unset crescendoText 
-  \unset crescendoSpanner 
+%  \unset crescendoText 
+%  \unset crescendoSpanner 
 }
 
 %%%%%%%%%%%%%%%%