Add display method for repeated chords.

diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly
index 1a885151263b1c967ba0e20becb192dcd5e1a894..2e0aa7c23a6347450e7fbe78d84f3e881cc03b64 100644 (file)
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -1,4 +1,4 @@
-\version "2.13.19"
+\version "2.13.20"
 #(use-modules (srfi srfi-13)
               (ice-9 format))
 
@@ -41,7 +41,7 @@
              result-info "BUG")
           input output))
      (make-music 'SequentialMusic 'void #t)))))
-         
+
 test = 
 #(define-music-function (parser location result-info strings) (string? pair?)
    (test-function parser location result-info strings))
@@ -76,6 +76,7 @@ stderr of this run."
 \test "" ##[ R1.*2/3 #]                % MultiMeasureRestMusicGroup, MultiMeasureRestEvent
 \test "" ##[ \skip 2.*3/4 #]           % SkipMusic
 \test "" ##[ < c\1 e\3 >4.*3/4-. #]    % EventChord, NoteEvent, StringNumberEvent, ArticulationEvent
+\test "NOT A BUG" ##[ { < c e g c' > q8-. } #] % RepeatedChord
 
 %% tags
 \test "" ##[ { \tag #'foo { c4 d } } #]

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index e0df840e89717ed8f55de76a48a236a3b5854f13..53bddaac9359616232bfa2943c4241bec3029b19 100644 (file)
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -563,6 +563,9 @@ Otherwise, return #f."
 (define-display-method SkipEvent (rest parser)
   "s")
 
+(define-display-method RepeatedChord (chord parser)
+  (music->lily-string (ly:music-property chord 'element) parser))
+
 (define-display-method MarkEvent (mark parser)
   (let ((label (ly:music-property mark 'label)))
     (if (null? label)