From: fred Date: Tue, 26 Mar 2002 22:42:13 +0000 (+0000) Subject: lilypond-1.3.0 X-Git-Tag: release/1.5.59~2041 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=05c8a37f99f1068e8b835f787db12e9f5642d51b;p=lilypond.git lilypond-1.3.0 --- diff --git a/lily/paper-score.cc b/lily/paper-score.cc index ef983e8053..d8cba19d43 100644 --- a/lily/paper-score.cc +++ b/lily/paper-score.cc @@ -50,6 +50,9 @@ Paper_score::typeset_element (Score_element * elem_p) SCM_CDR(element_smob_list_) = gh_cons (elem_p->self_scm_, SCM_CDR (element_smob_list_)); + elem_p->set_elt_property (ly_symbol ("full-name"), + gh_str02scm((char*)elem_p->name())); + scm_unprotect_object (elem_p->self_scm_); }