Change the argument order of \pushToTag and \appendToTag to something making better...

diff --git a/Documentation/notation/input.itely b/Documentation/notation/input.itely
index e418d96fb4076221e79b344cd1962f2800fce41c..ed138160455d7566a29cb5cc3aa879d9dd95d7f1 100644 (file)
--- a/Documentation/notation/input.itely
+++ b/Documentation/notation/input.itely
@@ -1545,15 +1545,17 @@ safe bets:
 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.
 

diff --git a/input/regression/push-to-tag.ly b/input/regression/push-to-tag.ly
index 2cb4d43f3febe027e7e7d41228b2b31bd3180079..610f11c5d80741d2411b18bdce15ac85cee8d9fe 100644 (file)
--- a/input/regression/push-to-tag.ly
+++ b/input/regression/push-to-tag.ly
@@ -16,6 +16,11 @@ equivalent of
 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
 }
+

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index e0b36696bab23c20eefaede5e1c1e634baa87faa..e5f46832a75ec7f4e32f4b0f605e491ec8867235 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -86,7 +86,7 @@ markups), or inside a score.")
                                           '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}.")
@@ -846,7 +846,7 @@ print @var{secondary-note} as a stemless note head in parentheses.")
      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}.")