Issue 4311: Make multimeasure rests obey tweaks

[lilypond.git] / scm / define-music-callbacks.scm

diff --git a/scm/define-music-callbacks.scm b/scm/define-music-callbacks.scm
index 7e65125cb62c647510bb3bc149f74d4fe240c37c..34fa7b1a173ac29c93ab6e22240065bd5ecba58b 100644 (file)
--- a/scm/define-music-callbacks.scm
+++ b/scm/define-music-callbacks.scm
@@ -23,14 +23,11 @@
 (define (mm-rest-child-list music)
   "Generate events for multimeasure rests,
 to be used by the sequential-iterator"
-  (let ((location (ly:music-property music 'origin))
-        (duration (ly:music-property music 'duration)))
+  (let ((location (ly:music-property music 'location)))
     (list (make-music 'BarCheck
                       'origin location)
-          (make-event-chord (cons (make-music 'MultiMeasureRestEvent
-                                              'origin location
-                                              'duration duration)
-                                  (ly:music-property music 'articulations)))
+          (make-music 'MultiMeasureRestEvent
+                      (ly:music-deep-copy music))
           (make-music 'BarCheck
                       'origin location))))