Imported Upstream version 2.16.0

[lilypond.git] / scm / autochange.scm

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 54f5e96250ce90e376a9113856ac28f419e1a3b2..14252e4b1db607a22c3df8fb1f6306a1e2b12742 100644 (file)
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -11,7 +11,7 @@
               (evs (map car (cdar event-list)))
               (now (car now-tun))
               (notes (filter (lambda (x)
-                               (equal? (ly:event-property  x 'class) 'note-event))
+                               (ly:in-event-class? x 'note-event))
                              evs))
               (pitch (if (pair? notes)
                          (ly:event-property (car notes) 'pitch)