New upstream version 2.19.80

[lilypond.git] / scm / scheme-engravers.scm

diff --git a/scm/scheme-engravers.scm b/scm/scheme-engravers.scm
index b2966d79e61281e985f8af35d4ca475ef074a2b8..07b25851083e030dfceb6d18222cf49c7d87a8ac 100644 (file)
--- 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.")))