- if (gh_list_p (c))
- {
- SCM found = scm_assoc (ly_str02scm (s.ch_C()), c);
- if (found == SCM_BOOL_F)
- return false;
-
- clef_glyph_ = gh_cadr (found);
- SCM pos = gh_caddr (found);
-
- clef_position_i_ = gh_scm2int (pos);
-
- found = scm_assoc (clef_glyph_, p);
- if (found == SCM_BOOL_F)
- return false;
-
- c0_position_i_ = clef_position_i_ + gh_scm2int (gh_cdr (found));
- }
-
- c0_position_i_ -= (int) octave_dir_ * 7;
-
- SCM basic = get_property ("basicClefItemProperties");
- current_settings_ = gh_cons (gh_cons (ly_symbol2scm ("glyph"), clef_glyph_), basic);
- current_settings_ =
- gh_cons (gh_cons (ly_symbol2scm ("c0-position"),
- gh_int2scm (c0_position_i_)),
- current_settings_);
-
- return true;
+ execute_pushpop_property (context (), basic, glyph_sym, SCM_UNDEFINED);
+ execute_pushpop_property (context (), basic, glyph_sym, glyph);