From: Erik Sandberg <mandolaerik@gmail.com>
Date: Thu, 19 Aug 2004 13:51:20 +0000 (+0000)
Subject: Fixed bug with \setTextDecresc.
X-Git-Tag: release/2.3.13~61
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=541c77eb5e74c1ac9429ee53e4978a0ced6d19e9;p=lilypond.git

Fixed bug with \setTextDecresc.
---

diff --git a/ChangeLog b/ChangeLog
index f4bb8a25aa..98d9f3d90b 100644
--- 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 e8acaa1a0c..138314b01c 100644
--- 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 
+}