-void
-Music::set_mus_property (const char* k, SCM v)
-{
- SCM s = ly_symbol2scm (k);
- set_mus_property (s, v);
-}
+ for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
+ {
+ SCM entry = scm_car (s);
+ SCM prop = scm_car (entry);
+ SCM val = scm_cdr (entry);
+
+ if (Pitch *p = unsmob_pitch (val))
+ {
+ Pitch transposed = p->transposed (delta);
+ scm_set_cdr_x (entry, transposed.smobbed_copy ());
+
+ if (abs (transposed.get_alteration ()) > DOUBLE_SHARP)
+ {
+ warning (_f ("transposition by %s makes alteration larger than double",
+ delta.to_string ()));
+ }
+ }
+ else if (prop == ly_symbol2scm ("element"))
+ {
+ if (Music *m = unsmob_music (val))
+ m->transpose (delta);
+ }
+ else if (prop == ly_symbol2scm ("elements"))
+ transpose_music_list (val, delta);
+ else if (prop == ly_symbol2scm ("pitch-alist") &&
+ scm_is_pair (val))
+ entry = scm_cons (prop, ly_transpose_key_alist (val, delta.smobbed_copy ()));
+ retval = scm_cons (entry, retval);
+ }