Run `make grand-replace'.

[lilypond.git] / lily / grace-spacing-engraver.cc

diff --git a/lily/grace-spacing-engraver.cc b/lily/grace-spacing-engraver.cc
index 0e1f8740c54ac847f094dadc58ba9f7dcb290c3c..3778f055373703530afb9cc988e4f9a84b13a476 100644 (file)
--- a/lily/grace-spacing-engraver.cc
+++ b/lily/grace-spacing-engraver.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2006 Han-Wen <hanwen@lilypond.org>
+  (c) 2006--2008 Han-Wen <hanwen@lilypond.org>
 
 */
 
@@ -51,6 +51,11 @@ Grace_spacing_engraver::process_music ()
                                         column);
 
       column->set_object ("grace-spacing", grace_spacing_->self_scm ());
+
+      if (!grace_spacing_->get_bound (LEFT))
+       grace_spacing_->set_bound (LEFT, column);
+      else
+       grace_spacing_->set_bound (RIGHT, column);
     }
 }
 
@@ -65,7 +70,8 @@ Grace_spacing_engraver::stop_translation_timestep ()
 
 
 ADD_TRANSLATOR (Grace_spacing_engraver,
-               "Bookkeeping of shortest starting and playing notes in grace note runs.",
+               "Bookkeeping of shortest starting and playing notes in grace"
+               " note runs.",
 
                /* create */
                "GraceSpacing ",
@@ -73,4 +79,6 @@ ADD_TRANSLATOR (Grace_spacing_engraver,
                /* read */
                "currentMusicalColumn ",
                
-               /* write */ "");
+               /* write */
+               ""
+               );