+ Score_element * s = unsmob_element (sm);
+
+ SCM style = s->get_elt_property ("style");
+ String st = gh_string_p (style) ? ly_scm2string (style) : "";
+ SCM txt = s-> get_elt_property ("text");
+ String t = gh_string_p (txt) ? ly_scm2string (txt) : "";
+
+ Molecule mol = s->paper_l ()->lookup_l(0)->text (st, t, s->paper_l ());
+
+ SCM space = s->get_elt_property ("word-space");
+ if (gh_number_p (space))
+ {
+ Molecule m;
+ m.set_empty (false);
+ mol.add_at_edge (X_AXIS, RIGHT, m, gh_scm2double (space)*
+ Staff_symbol_referencer::staff_space (s));
+ }
+ return mol.create_scheme ();