From 769f2b243f8fc582cee624d84b4ede6bf3492d76 Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Wed, 28 Jan 2004 23:18:26 +0000 Subject: [PATCH] * scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE. --- ChangeLog | 4 ++++ scm/chord-name.scm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 37cd37b94e..4c9d0bf335 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-01-29 Heikki Junes + + * scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE. + 2004-01-28 Jan Nieuwenhuizen * 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 -- 2.39.5