X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fscheme-engravers.scm;fp=scm%2Fscheme-engravers.scm;h=07b25851083e030dfceb6d18222cf49c7d87a8ac;hb=eeb159920f0c8a69d229e3d34d413589c84f228d;hp=b2966d79e61281e985f8af35d4ca475ef074a2b8;hpb=dfc9fb4d1b7bc13418214fa3df6d61a9714c1de4;p=lilypond.git

diff --git a/scm/scheme-engravers.scm b/scm/scheme-engravers.scm
index b2966d79e6..07b2585108 100644
--- a/scm/scheme-engravers.scm
+++ b/scm/scheme-engravers.scm
@@ -201,3 +201,15 @@ if there were one voice."
           (set! mmrests (cons curr-mmrests mmrests))))
       ((finalize translator)
         (for-each merge-mmrests mmrests)))))
+
+(ly:register-translator
+ Merge_rests_engraver 'Merge_rests_engraver
+ '((grobs-created . ())
+   (events-accepted . ())
+   (properties-read . (suspendRestMerging))
+   (properties-written . ())
+   (description . "\
+Engraver to merge rests in multiple voices on the same staff.  This works by
+gathering all rests at a time step.  If they are all of the same length and
+there are at least two they are moved to the correct location as if there were
+one voice.")))