X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-display-methods.scm;h=ad1dbf3de7a236fc485044f4fc70bbf70480d7cc;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=d884cc36c902cafee810a69300f4eaac5a752ebf;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index d884cc36c9..ad1dbf3de7 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -143,7 +143,7 @@
 (define post-event? (make-music-type-predicate	
 		     'StringNumberEvent
 		     'ArticulationEvent
-		     'FingeringEvent
+		     'FingerEvent
 		     'TextScriptEvent
 		     'MultiMeasureTextEvent
 		     'HyphenEvent
@@ -220,7 +220,7 @@
       ((portato) "_")
       (else (format #f "\\~a" articulation)))))
 
-(define-post-event-display-method FingeringEvent (event) #t
+(define-post-event-display-method FingerEvent (event) #t
   (ly:music-property event 'digit))
 
 (define-post-event-display-method TextScriptEvent (event) #t
@@ -481,14 +481,11 @@ Otherwise, return #f."
 		  ;; command_element
 		  (format #f "~{~a ~}" (map-in-order music->lily-string elements))))))))
 
-(define-display-method MultiMeasureRestMusic (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)