-#(define (add-script m x)
- (if (equal? (ly-music-name m) "Request_chord")
- (ly-set-mus-property m 'elements
- (cons (make-script x) (ly-get-mus-property m 'elements)))
+#(define (add-text-script m x)
+ (if (equal? (ly:music-property m 'name) 'EventChord)
+ (set! (ly:music-property m 'elements)
+ (cons (make-text-script x)
+ (ly:music-property m 'elements)))
+ (let ((es (ly:music-property m 'elements))
+ (e (ly:music-property m 'element)))
+ (map (lambda (y) (add-text-script y x)) es)
+ (if (ly:music? e)
+ (add-text-script e x))))
+ m)