test = { \tag #'here { \tag #'here <<c''>> } }
{
- \pushToTag #'here \pushToTag #'here
- \pushToTag #'here \test g' e' c'
- \appendToTag #'here \appendToTag #'here
- \appendToTag #'here \test g' e' c'
+ \pushToTag #'here c'
+ \pushToTag #'here e'
+ \pushToTag #'here g' \test
+ \appendToTag #'here c'
+ \appendToTag #'here e'
+ \appendToTag #'here g' \test
}
@end lilypond
-Both commands get a tag, the tagged expression, and finally the material
-you want to splice in at every given tag. The commands make sure to
+Both commands get a tag, the material to splice in at every occurence of
+the tag, and the tagged expression. The commands make sure to
copy everything that they change so that the original @code{\test}
retains its meaning.
test = { \tag #'here { \tag #'here <<c''>> }}
{
- \pushToTag #'here \pushToTag #'here \pushToTag #'here \test g' e' c'
- \appendToTag #'here \appendToTag #'here \appendToTag #'here \test g' e' c'
+ \pushToTag #'here c'
+ \pushToTag #'here e'
+ \pushToTag #'here g' \test
+ \appendToTag #'here c'
+ \appendToTag #'here e'
+ \appendToTag #'here g' \test
}
+
'break-permission 'allow))))
appendToTag =
-#(define-music-function (parser location tag music more)
+#(define-music-function (parser location tag more music)
(symbol? ly:music? ly:music?)
(_i "Append @var{more} to the @code{elements} of all music
expressions in @var{music} that are tagged with @var{tag}.")
main-note))
pushToTag =
-#(define-music-function (parser location tag music more)
+#(define-music-function (parser location tag more music)
(symbol? ly:music? ly:music?)
(_i "Add @var{more} to the front of @code{elements} of all music
expressions in @var{music} that are tagged with @var{tag}.")