X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fincluded%2Fdisplay-predefined-string-tunings.ly;h=d917dd3d6406c11b519c49ded985907ec2a39a5a;hb=f8e03b152b436d6034dd17e71335fc6221497571;hp=ee26e88c8613f04a5e7df277eca41041798da917;hpb=5e44b5f4dba63d3649331e317286be089955edde;p=lilypond.git

diff --git a/Documentation/included/display-predefined-string-tunings.ly b/Documentation/included/display-predefined-string-tunings.ly
index ee26e88c86..d917dd3d64 100644
--- a/Documentation/included/display-predefined-string-tunings.ly
+++ b/Documentation/included/display-predefined-string-tunings.ly
@@ -1,4 +1,4 @@
-\version "2.13.46"
+\version "2.14.0"
 
 #(define (filter-instrument instrument-name tuning-alist)
    (filter (lambda (entry)
@@ -7,30 +7,18 @@
            tuning-alist))
 
 #(define (chord-display tuning-alist-entry)
-   (let* ((ch-mus (cdr tuning-alist-entry))
-          (tuning-symbol (car tuning-alist-entry))
-          (ev-chord (car (extract-named-music
-                           ch-mus
-                           'EventChord)))
-          (elts (ly:music-property ev-chord 'elements)))
-     (music-map (lambda (m)
-                  (begin
-                    (if (not (null? (ly:music-property m 'duration)))
-                        (ly:music-set-property!
-                          m
-                          'duration
-                          (ly:make-duration 0 0 1 1)))
-                    m))
-                ev-chord)
-     (let ((elts (ly:music-property ev-chord 'elements))
-           (script (make-music 'TextScriptEvent
-                               'direction 1
-                               'text (symbol->string tuning-symbol))))
-       (ly:music-set-property!
-         ev-chord
-         'elements
-         (cons script elts)))
-     ev-chord))
+   (let* ((tuning-symbol (car tuning-alist-entry))
+	  (pitches (cdr tuning-alist-entry)))
+     (make-music 'EventChord
+		 'elements
+		 (cons (make-music 'TextScriptEvent
+				   'direction 1
+				   'text (symbol->string tuning-symbol))
+		       (map (lambda (pitch)
+			      (make-music 'NoteEvent
+					  'duration (ly:make-duration 0 0 1 1)
+					  'pitch pitch))
+			    pitches)))))
 
 displayInstrumentDefaultTunings =
 #(define-music-function (parser location instrument) (string?)