]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/new-dynamic-engraver.cc
Doc-it: chapter 1 completed
[lilypond.git] / lily / new-dynamic-engraver.cc
index 1388235b1bcbec277bb50214f183165966a24038..cd7db644a66f409ebdc46f3ee151a76f870fc010 100644 (file)
@@ -242,7 +242,7 @@ string
 New_dynamic_engraver::get_spanner_type (Stream_event *ev)
 {
   string type;
-  SCM start_sym = ev->get_property ("class");
+  SCM start_sym = scm_car (ev->get_property ("class"));
 
   if (start_sym == ly_symbol2scm ("decrescendo-event"))
     type = "decrescendo";
@@ -272,7 +272,6 @@ New_dynamic_engraver::acknowledge_note_column (Grob_info info)
         {
           script_->set_parent (x_parent, X_AXIS);
           Self_alignment_interface::set_center_parent (script_, X_AXIS);
-          Self_alignment_interface::avoid_x_collisions (script_);
         }
       if (stem)
         Pointer_group_interface::add_grob (script_, ly_symbol2scm ("potential-X-colliding-grobs"), stem);