release: 1.5.46

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index d812fca1d5816e6a6d98c9fec42d0feca539eff1..5d7e57754bcc4cd4f22a4026bbab6abec290b739 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -93,6 +93,13 @@ Music::length_mom () const
 Moment
 Music::start_mom () const
 {
+  SCM l = get_mus_property ("start-moment-function");
+  if (gh_procedure_p (l))
+    {
+      SCM res = gh_call1 (l, self_scm ());
+      return *unsmob_moment (res);
+    }
+
   Moment m ;
   return m;
 }