Issue 4899/1: Let method_finder also find listeners

[lilypond.git] / lily / include / translator.hh

diff --git a/lily/include/translator.hh b/lily/include/translator.hh
index dd0659bf50866ec4a9e03e86565deffc0299f7dd..0adc835c09f02fa1b0bee4b8c671b1427df97e1d 100644 (file)
--- a/lily/include/translator.hh
+++ b/lily/include/translator.hh
@@ -43,6 +43,11 @@
 #define DECLARE_TRANSLATOR_CALLBACKS(NAME)                              \
   template <void (NAME::*mf)()>                                         \
   static SCM method_finder () { return method_find_base<NAME, mf> (); } \
+  template <void (NAME::*mf)(Stream_event *)>                           \
+  static SCM method_finder ()                                           \
+  {                                                                     \
+    return Callback_wrapper::make_smob<trampoline<NAME, mf> > ();       \
+  }                                                                     \
   /* end #define */
 
 /*