> One of the options is to traverse all music expressions recursively,
> and set the music property #'quoted-events to '() if it is defined
>
> untested code:
>
> killCues =
> #(def-music-function
> (location music) (ly:music?)
> (music-map (lambda (mus)
>
> (set! (ly:music-property mus 'quoted-events '())
> (set! (ly:music-property mus 'quoted-context-id '())
> (set! (ly:music-property mus 'quoted-context-type '())
>
>
> )) music))
Mhhm, this is indeed untested... I can't make it work :-) The number
of parentheses doesn't fit, and I couldn't find a combination which
doesn't give a Scheme error.
Am I correct that it is to be used like this?
\killCues
\new Voice {
R1*20
\cueDuring #"clarinet" #1 { R1 }
g4 g2.
}
Werner
_______________________________________________
lilypond-devel mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
