(context-doc): add aliases to

[lilypond.git] / scm / clef.scm

diff --git a/scm/clef.scm b/scm/clef.scm
index 997ef4c05cfb3c3c07fcc5bcd409fcf4b9693888..a9c7ef79b34cba0be4748aabd93dfb81dad5f837 100644 (file)
--- a/scm/clef.scm
+++ b/scm/clef.scm
@@ -141,11 +141,7 @@
             )
 
          (ly:set-mus-property! seq 'elements musics)
-         (ly:set-mus-property! csp 'element seq)
-         (ly:set-mus-property! csp 'context-type "Staff")
-
-         csp
-         )
+         (context-spec-music seq 'Staff))
        (begin
          (ly:warn (format "Unknown clef type `~a'
 See scm/lily.scm for supported clefs" cl))