From: fred <fred> Date: Wed, 27 Mar 2002 02:03:12 +0000 (+0000) Subject: lilypond-1.5.14 X-Git-Tag: release/1.5.59~453 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d865391f847c05ef1dfa3e1fc1b028b77b56d35;p=lilypond.git lilypond-1.5.14 --- diff --git a/ly/german-chords-init.ly b/ly/german-chords-init.ly index cb741eba14..644b6efe3c 100644 --- a/ly/german-chords-init.ly +++ b/ly/german-chords-init.ly @@ -1,10 +1,10 @@ -\version "1.3.148" +\version "1.5.12" -% german-chords.ly: +% german-chords-init.ly: % german/norwegian/danish? % To get Bb instead of B, use -% \include "german-chords.ly" +% \include "german-chords-init.ly" % #(set! german-Bb #t) #(define german-Bb #f) @@ -14,7 +14,8 @@ (list 7 (+ (if german-Bb 0 1) (caddr pitch))) (cdr pitch) ))) - (cons + (list + 'columns (list-ref '("C" "D" "E" "F" "G" "A" "H" "B") (car dopitch)) (accidental->text-super (cadr dopitch)) )