release: 1.3.120

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index 3a21afe015a28d44d7418b67d1da1cb754381f65..425a3b8809f411a9dc2c78fb1e0931f906efe2ab 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -37,8 +37,9 @@
 void
 Slur::set_interface (Grob*me)
 {
-  me->set_grob_property ("attachment", gh_cons (SCM_BOOL_F, SCM_BOOL_F));
-  me->set_interface (ly_symbol2scm ("slur-interface"));
+  /* Ugh, junked this function, but if we don't do this, we somehow
+     won't be able to write to it */
+  me->set_grob_property ("attachment", me->get_grob_property ("attachment"));
 }
 
 void
@@ -500,7 +501,7 @@ Slur::set_spacing_rods (SCM smob)
 /*
   ugh ?
  */
-MAKE_SCHEME_CALLBACK(Slur,height,2);
+MAKE_SCHEME_CALLBACK (Slur, height, 2);
 SCM
 Slur::height (SCM smob, SCM ax)
 {