]> git.donarmstrong.com Git - lilypond.git/commitdiff
Issue 3550: Don't let make-voice-props-{override,revert} touch MultiMeasureRest.staff...
authorDavid Kastrup <dak@gnu.org>
Wed, 11 Sep 2013 16:29:30 +0000 (18:29 +0200)
committerDavid Kastrup <dak@gnu.org>
Thu, 12 Sep 2013 13:34:31 +0000 (15:34 +0200)
That's an oversight from issue 3307 and completes the work of
commit 19503a9141bd5afb833036f4d36b6062055b6f79.

scm/music-functions.scm

index d714deec8c886123abff1072a46916580d0ffd4c..092cf84e4b46a5e2c2f19d7fdc6617dd4da2f543 100644 (file)
@@ -543,8 +543,7 @@ in @var{grob}."
          direction-polyphonic-grobs)
     (list
      (make-property-set 'graceSettings general-grace-settings)
-     (make-grob-property-override 'NoteColumn 'horizontal-shift (quotient n 2))
-     (make-grob-property-override 'MultiMeasureRest 'staff-position (if (odd? n) -4 4))))))
+     (make-grob-property-override 'NoteColumn 'horizontal-shift (quotient n 2))))))
 
 (define-safe-public (make-voice-props-revert)
   (make-sequential-music
@@ -552,8 +551,7 @@ in @var{grob}."
     (map (lambda (x) (make-grob-property-revert x 'direction))
          direction-polyphonic-grobs)
     (list (make-property-unset 'graceSettings)
-          (make-grob-property-revert 'NoteColumn 'horizontal-shift)
-          (make-grob-property-revert 'MultiMeasureRest 'staff-position)))))
+          (make-grob-property-revert 'NoteColumn 'horizontal-shift)))))
 
 
 (define-safe-public (context-spec-music m context #:optional id)