Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / define-music-display-methods.scm

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 2dbb0acb02200a3a516e0e023973751d012e1e5b..ad1dbf3de7a236fc485044f4fc70bbf70480d7cc 100644 (file)
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -481,14 +481,11 @@ Otherwise, return #f."
                  ;; command_element
                  (format #f "~{~a ~}" (map-in-order music->lily-string elements))))))))
 
-(define-display-method MultiMeasureRest (mmrest)
-  (let* ((dur (ly:music-property mmrest 'duration))
-        (ly (format #f "R~a~{~a ~}"
-                    (duration->lily-string dur)
-                    (map-in-order music->lily-string
-                                  (ly:music-property mmrest 'articulations)))))
-    (*previous-duration* dur)
-    ly))
+(define-display-method MultiMeasureRestMusicGroup (mmrest)
+  (format #f "~{~a ~}"
+         (map-in-order music->lily-string 
+                       (remove (make-music-type-predicate 'BarCheck)
+                               (ly:music-property mmrest 'elements)))))
 
 (define-display-method SkipMusic (skip)
   (format #f "\\skip ~a" (duration->lily-string (ly:music-property skip 'duration) #:force-duration #t)))
@@ -550,7 +547,7 @@ Otherwise, return #f."
 
 (define-display-method MetronomeChangeEvent (tempo)
   (format #f "\\tempo ~a = ~a"
-         (duration->lily-string (ly:music-property tempo 'tempo-unit) #:force-duration #t #:prev-duration #f)
+         (duration->lily-string (ly:music-property tempo 'tempo-unit) #:force-duration #f #:prev-duration #f)
          (ly:music-property tempo 'metronome-count)))
 
 (define-display-method KeyChangeEvent (key)