(big_rest): multi measure rest was

[lilypond.git] / scm / drums.scm

diff --git a/scm/drums.scm b/scm/drums.scm
index 6c8838c5dca9d6289a637ff2ae17ea0176ed78a7..8c1a7efc8b2c6f514a0c792907e1ebc4a00d525b 100644 (file)
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -172,7 +172,7 @@
 ;; adds the articulation script x to m if x is not #f.
 (define (add-articulation-script m x)
   (if x
-   (if (and x (equal? (ly:music-name m) "Request_chord"))
+   (if (and x (equal? (ly:music-name m) "Event_chord"))
      (ly:set-mus-property! m 'elements
        (cons (make-articulation-script x) (ly:get-mus-property m 'elements))
      )
@@ -267,7 +267,7 @@
 ;; converts a midi-pitched (ly/drumpitch.ly) file to paper output.
 (define-public ((drums->paper kit) music)
   (begin
-   (if (equal? (ly:music-name music) "Request_chord")
+   (if (equal? (ly:music-name music) "Event_chord")
     (set! music (make-drum-head kit music))
     (let* ((es (ly:get-mus-property music 'elements))
            (e (ly:get-mus-property music 'element))