X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fclef.cc;h=b58bef99871b15efeccf97dffba8095aa203fc3f;hb=b8a84e9fbdbb30e224d05afb73233760c3dacc4d;hp=f942023c214bfce36464a4a4874c73bb5384fc3a;hpb=a6bd229f7fe1dc4a03478e14ccc0c0c66b225061;p=lilypond.git diff --git a/lily/clef.cc b/lily/clef.cc index f942023c21..b58bef9987 100644 --- a/lily/clef.cc +++ b/lily/clef.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1997--2010 Han-Wen Nienhuys + Copyright (C) 1997--2012 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -36,11 +36,11 @@ Clef::calc_glyph_name (SCM smob) string str = ly_scm2string (glyph); if (to_boolean (s->get_property ("non-default")) - && s->break_status_dir () != RIGHT - && !to_boolean (s->get_property ("full-size-change"))) - { - str += "_change"; - } + && s->break_status_dir () != RIGHT + && !to_boolean (s->get_property ("full-size-change"))) + { + str += "_change"; + } return ly_string2scm (str); } @@ -63,16 +63,17 @@ Clef::print (SCM smob) Stencil out = fm->find_by_name (glyph); if (out.is_empty ()) me->warning (_f ("clef `%s' not found", glyph.c_str ())); + return out.smobbed_copy (); } ADD_INTERFACE (Clef, - "A clef sign.", - - /* properties */ - "full-size-change " - "glyph " - "glyph-name " - "non-default " - ); + "A clef sign.", + + /* properties */ + "full-size-change " + "glyph " + "glyph-name " + "non-default " + );