release: 1.3.51

[lilypond.git] / lily / collision.cc

diff --git a/lily/collision.cc b/lily/collision.cc
index 32ee0d69f685e985e038cfd6fde8e51ba3f30d39..e3eb69a4032a86700a18efc7adf3962f9cf1dc22 100644 (file)
--- a/lily/collision.cc
+++ b/lily/collision.cc
@@ -28,6 +28,15 @@ Collision::add_column (Note_column* ncol_l)
 
 void
 Collision::before_line_breaking ()
+{
+  do_shifts();
+}
+
+/*
+  TODO: make callback of this.
+ */
+void
+Collision::do_shifts()
 {
   SCM autos (automatic_shift ());
   SCM hand (forced_shift ());
@@ -55,8 +64,7 @@ Collision::before_line_breaking ()
 /** This complicated routine moves note columns around horizontally to
   ensure that notes don't clash.
 
-  This should be done better, probably.
-
+  This should be put into Scheme.  
   */
 SCM
 Collision::automatic_shift ()