From: hjunes <hjunes>
Date: Wed, 28 Jan 2004 23:18:26 +0000 (+0000)
Subject:         * scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE.
X-Git-Tag: release/2.1.17^2~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=300b1fbb55ff1a463923f00bdddd5ecbbfc394f5;p=lilypond.git

    * scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE.
---

diff --git a/ChangeLog b/ChangeLog
index 37cd37b94e..4c9d0bf335 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-01-29  Heikki Junes <hjunes@cc.hut.fi>
+
+	* scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE.
+
 2004-01-28  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* Documentation/topdocs/NEWS.texi: Add note about safe mode.
diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 0248c8c3f6..b171c482fb 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -53,7 +53,7 @@
   (let* ((name (ly:pitch-notename pitch))
          (alt (ly:pitch-alteration pitch))
 	 (n-a (if (member (cons name alt) `((6 . ,FLAT) (6 . ,DOUBLE-FLAT)))
-		 (cons 7 (+ (if B-instead-of-Bb 1 0) alt))
+		 (cons 7 (+ (if B-instead-of-Bb SEMI-TONE 0) alt))
 		 (cons name alt))))
     (make-line-markup
      (list