* scm/font.scm: remove old markup legacy

[lilypond.git] / lily / breathing-sign.cc

diff --git a/lily/breathing-sign.cc b/lily/breathing-sign.cc
index a1743c8c7386f869dcad4f9fc583ec6437e8a91a..e78b5a50161b73a132a01dcf628334219dae964c 100644 (file)
--- a/lily/breathing-sign.cc
+++ b/lily/breathing-sign.cc
@@ -24,35 +24,11 @@
 #include "font-interface.hh"
 
 /*
- * TODO: thickness should be a grob property (unit:
- * stafflinethickness) rather than hardwired to (staff_space / 6).
+  TODO: thickness should be a grob property (unit: stafflinethickness)
+ rather than hardwired to (staff_space / 6).
  */
 
-/*
-  WTF: what does Breathing_sign have to do with text?!
-
-  --hwn
- */
-MAKE_SCHEME_CALLBACK (Breathing_sign,brew_molecule,1);
-SCM 
-Breathing_sign::brew_molecule (SCM smob)
-{
-  Grob *me = unsmob_grob (smob);
-  SCM text = me->get_grob_property ("text");
-  if (text == SCM_EOL)
-    return divisio_minima (smob);
-  SCM properties = Font_interface::font_alist_chain (me);
-  Molecule out = Text_item::interpret_new_markup (smob, properties, text);
-  SCM space_scm = me->get_grob_property ("word-space");
-  if (gh_number_p (space_scm))
-    {
-      Molecule mol;
-      mol.set_empty (false);
-      out.add_at_edge (X_AXIS, RIGHT, mol, gh_scm2double (space_scm) *
-                      Staff_symbol_referencer::staff_space (me), 0);
-    }
-  return out.smobbed_copy ();
-}
+  
 
 /*
   Simplistic caesura.