Adds Ponding for Urs's concert.

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 45944511359fb3fe9f0f2137feb7fe76f4188ad9..7927fe3067cc8b855743e6e5c5ad06ae5c1b18a9 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -233,7 +233,8 @@ transpose_mutable (SCM alist, Pitch delta)
           if (Music *m = unsmob_music (val))
             m->transpose (delta);
         }
-      else if (prop == ly_symbol2scm ("elements"))
+      else if (prop == ly_symbol2scm ("elements")
+              || prop == ly_symbol2scm ("articulations"))
         transpose_music_list (val, delta);
       else if (prop == ly_symbol2scm ("pitch-alist")
                && scm_is_pair (val))