X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fgerman-chords-init.ly;h=020d1a94639787e6443f4064baefdd3bc5d11d8d;hb=36079063504b59027cdd84e36a1fc9e2bfc4fc76;hp=cb741eba1442e72b071ca5876ba3e9e6ce9a7f3c;hpb=1539b48e9bd7cd7698e602dc3d3dbe74a6567a49;p=lilypond.git

diff --git a/ly/german-chords-init.ly b/ly/german-chords-init.ly
index cb741eba14..020d1a9463 100644
--- a/ly/german-chords-init.ly
+++ b/ly/german-chords-init.ly
@@ -1,10 +1,10 @@
-\version "1.3.148"
+\version "1.5.49"
 
-%  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))
      )