From 541c77eb5e74c1ac9429ee53e4978a0ced6d19e9 Mon Sep 17 00:00:00 2001
From: Erik Sandberg <mandolaerik@gmail.com>
Date: Thu, 19 Aug 2004 13:51:20 +0000
Subject: [PATCH] Fixed bug with \setTextDecresc.

---
 ChangeLog           |  4 ++++
 ly/spanners-init.ly | 16 ++++++++++++----
 2 files changed, 16 insertions(+), 4 deletions(-)

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 
+}
 
 
 
-- 
2.39.2