(print): always start from right edge of

[lilypond.git] / lily / piano-pedal-performer.cc

diff --git a/lily/piano-pedal-performer.cc b/lily/piano-pedal-performer.cc
index 84f540f323b01b37b85cec059be1ae3da28be043..1dbdf10dcd69b21299679a335ec469ddc05cde69 100644 (file)
--- a/lily/piano-pedal-performer.cc
+++ b/lily/piano-pedal-performer.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "performer.hh"
@@ -24,7 +24,7 @@ class Piano_pedal_performer : public Performer
   };
 
 public:
-  TRANSLATOR_DECLARATIONS(Piano_pedal_performer);
+  TRANSLATOR_DECLARATIONS (Piano_pedal_performer);
   ~Piano_pedal_performer ();
   
 protected:
@@ -130,10 +130,10 @@ Piano_pedal_performer::try_music (Music* r)
       for (Pedal_info*p = info_alist_; p->name_; p ++)
        {
          String nm = p->name_ + String ("Event");
-         if (gh_equal_p (r->get_mus_property ("name") ,
-                         scm_makfrom0str (nm.to_str0())))
+         if (ly_c_equal_p (r->get_property ("name") ,
+                         scm_str2symbol (nm.to_str0())))
            {
-             Direction d = to_dir (r->get_mus_property ("span-direction"));
+             Direction d = to_dir (r->get_property ("span-direction"));
              p->req_l_drul_[d] = r;
              return true;
            }