* scm/lily.scm (define-scheme-options): add clip-systems option.

[lilypond.git] / lily / paper-column-engraver.cc

diff --git a/lily/paper-column-engraver.cc b/lily/paper-column-engraver.cc
index af67b67fe21d2a727a7328cec659c92aaa7ae189..1bc0c6b0e506f3a22f891029576f75fa9dc71c40 100644 (file)
--- a/lily/paper-column-engraver.cc
+++ b/lily/paper-column-engraver.cc
@@ -202,6 +202,17 @@ Paper_column_engraver::stop_translation_timestep ()
 
   first_ = false;
   break_events_.clear ();
+
+
+  SCM mpos = get_property ("measurePosition");
+  if (unsmob_moment (mpos))
+    {
+      SCM where = scm_cons (get_property ("internalBarNumber"),
+                           mpos);
+
+      command_column_->set_property ("rhythmic-location", where);
+      musical_column_->set_property ("rhythmic-location", where);
+    }
 }
 
 void