+MAKE_SCHEME_CALLBACK (Clef,brew_molecule,1)
+SCM
+Clef::brew_molecule (SCM smob)
+{
+ Grob * sc = unsmob_grob (smob);
+ SCM glyph = sc->get_grob_property ("glyph-name");
+ if (gh_string_p (glyph))
+ {
+ return Font_interface::get_default_font (sc)->find_by_name (String (ly_scm2string (glyph))).smobbed_copy ();
+ }
+ else
+ {
+ return SCM_EOL;
+ }
+}