- Pitch * quote_pitch = unsmob_pitch (ly_cdar (entry));
- Pitch * me_pitch = unsmob_pitch (get_outlet ()->get_property ("instrumentTransposition"));
-
- for (SCM s = ly_cdr (entry); ly_pair_p (s); s = ly_cdr (s))
+ SCM entry = scm_c_vector_ref (event_vector_, event_idx_);
+ Pitch *quote_pitch = unsmob_pitch (scm_cdar (entry));
+
+ /*
+ The pitch that sounds like central C
+ */
+ Pitch *me_pitch = unsmob_pitch (get_music ()->get_property ("quoted-transposition"));
+ if (!me_pitch)
+ me_pitch = unsmob_pitch (get_outlet ()->get_property ("instrumentTransposition"));
+ SCM cid = get_music ()->get_property ("quoted-context-id");
+ bool is_cue = scm_is_string (cid) && (ly_scm2string (cid) == "cue");
+
+ for (SCM s = scm_cdr (entry); scm_is_pair (s); s = scm_cdr (s))