* lily/new-quote-iterator.cc (construct_children): set

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index cd9914887a365cc86027940fa7386cb7189fa57f..6e074d0a14a70ec52b9a0cb49dbd68abf9691930 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -77,7 +77,7 @@ keepWithTag =
 %% doing
 %% def-music-function in a .scm causes crash.
 
-quoteDuring = #
+cueDuring = #
 (def-music-function
   (location what dir main-music)
   (string? ly:dir? ly:music?)
@@ -113,6 +113,16 @@ quoteDuring = #
     (set! (ly:music-property quote-music 'element) main-music)
     return-value))
 
+quoteDuring = #
+(def-music-function
+  (location what main-music)
+  (string? ly:music?)
+  (make-music 'NewQuoteMusic
+             'element main-music
+             'quoted-music-name what
+             'origin location))
+
+
 %{
 
 TODO: