Fixed bug with \setTextDecresc.

diff --git a/ChangeLog b/ChangeLog
index f4bb8a25aad6e45b8a61df41c3681480cb1a1f5e..98d9f3d90bb08e5a8b5f0f2ec2ae8f6c2c7fc528 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-19  Erik Sandberg <ersa9195@student.uu.se>
+
+        * ly/spanners-init.ly: Correct meanings of setTextDecresc/Dim, added setHairpinDecresc/Dim
+
 2004-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * lily/include/lily-guile.hh: Cosmetics.

diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly
index e8acaa1a0c76a18082dbdab392d7a368de72e0d6..138314b01c9642f37485637708d385e1d095532d 100644 (file)
--- a/ly/spanners-init.ly
+++ b/ly/spanners-init.ly
@@ -54,17 +54,25 @@ setTextCresc = {
     \set crescendoSpanner = #'dashed-line
 }
 setTextDecresc = {
-    \set crescendoText = \markup { \italic "decr." }
-    \set crescendoSpanner = #'dashed-line
+    \set decrescendoText = \markup { \italic "decr." }
+    \set decrescendoSpanner = #'dashed-line
 }
 setTextDim = {
-    \set crescendoText = \markup { \italic "dim." }
-    \set crescendoSpanner = #'dashed-line
+    \set decrescendoText = \markup { \italic "dim." }
+    \set decrescendoSpanner = #'dashed-line
 }
 setHairpinCresc = {
     \unset crescendoText 
     \unset crescendoSpanner 
 }
+setHairpinDecresc = {
+    \unset decrescendoText 
+    \unset decrescendoSpanner 
+}
+setHairpinDim = {
+    \unset decrescendoText 
+    \unset decrescendoSpanner 
+}