]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/include/translator-group.hh
* lily/spacing-spanner.cc (calc_common_shortest_duration): use
[lilypond.git] / lily / include / translator-group.hh
index 1c8f91ce454370eeb92377949dec337b986d74f6..2552fb4186fbf4067865b039413cef60e690e7c7 100644 (file)
@@ -47,6 +47,8 @@ private:
   Translator_group_void_method
   precomputed_self_method_bindings_[TRANSLATOR_METHOD_PRECOMPUTE_COUNT];
 
+  SCM protected_events_;
+
   DECLARE_LISTENER (create_child_translator);
   DECLARE_LISTENER (eat_event);
 
@@ -63,6 +65,8 @@ public:
   virtual void initialize ();
   virtual void finalize ();
 
+  void protect_event (SCM ev);
+
   void stop_translation_timestep ();
   void start_translation_timestep ();