From: Joe Neeman <joeneeman@gmail.com>
Date: Sun, 10 Feb 2008 17:02:47 +0000 (+0100)
Subject: Finish fixing 571.
X-Git-Tag: release/2.11.40-1~3^2~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=02c0ae5243230b7b2aeba704ac2583a813adaac1;p=lilypond.git

Finish fixing 571.
Enlarge the ideal space for grace notes.
---

diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc
index 53d6ef278b..512bfe4166 100644
--- a/lily/spacing-spanner.cc
+++ b/lily/spacing-spanner.cc
@@ -337,7 +337,16 @@ Spacing_spanner::musical_column_spacing (Grob *me,
 	    This is probably a waste of time in the case of polyphonic
 	    music.  */
 	  if (Note_spacing::has_interface (wish))
-	    springs.push_back (Note_spacing::get_spacing (wish, right_col, base_note_space, options->increment_));
+	    {
+	      Real inc = options->increment_;
+	      if (Grob *gsp = unsmob_grob (left_col->get_object ("grace-spacing")))
+		{
+		  Spacing_options grace_opts;
+		  grace_opts.init_from_grob (gsp);
+		  inc = grace_opts.increment_;
+		}
+	      springs.push_back (Note_spacing::get_spacing (wish, right_col, base_note_space, inc));
+	    }
 	}
 
       if (springs.empty ())