X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fincluded%2Fdisplay-predefined-string-tunings.ly;h=d917dd3d6406c11b519c49ded985907ec2a39a5a;hb=23ec49df6ea90e610158a4fe1c35d1adea0c0450;hp=6216fbe12331f5b1d4c2e3e9d1e01762a46607bf;hpb=2f320e9722ec20d6f13ec567d007763cc912c5da;p=lilypond.git

diff --git a/Documentation/included/display-predefined-string-tunings.ly b/Documentation/included/display-predefined-string-tunings.ly
index 6216fbe123..d917dd3d64 100644
--- a/Documentation/included/display-predefined-string-tunings.ly
+++ b/Documentation/included/display-predefined-string-tunings.ly
@@ -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?)