Merge remote branch 'origin/master' into release/unstable

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

diff --git a/lily/include/spanner.hh b/lily/include/spanner.hh
index 40b3473dcaef4046886decbc27e2852db8d9d707..f618e9c58ef3f8ef1fb8cbfe701518df2a204754 100644 (file)
--- a/lily/include/spanner.hh
+++ b/lily/include/spanner.hh
@@ -52,6 +52,13 @@ public:
   DECLARE_SCHEME_CALLBACK (bounds_width, (SCM));
   DECLARE_SCHEME_CALLBACK (kill_zero_spanned_time, (SCM));
 
+  static Spanner *unsmob (SCM s) {
+    return dynamic_cast <Spanner *> (Grob::unsmob (s));
+  }
+  static bool is_smob (SCM s) {
+    return Grob::is_smob (s) && unsmob (s);
+  }
+
   vector<Spanner *> broken_intos_;
 
   vsize get_break_index () const;