- SCM long_text = get_property ("instrument");
- SCM short_text = get_property ("instr");
-
- if (! (scm_is_string (long_text)
- || scm_is_string (short_text)))
- {
- long_text = get_property ("vocalName");
- short_text = get_property ("vocNam");
- }
-
- if (scm_is_string (long_text)
- || scm_is_string (short_text))
- {
- text_spanner_ = make_spanner ("InstrumentName", SCM_EOL);
- text_spanner_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
- text_spanner_->set_property ("text", short_text);
- text_spanner_->set_property ("long-text", long_text);
- }