X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fquote.ly;h=4d61ee608bad45bff62d905748239239c22df684;hb=fdc410ddf1a25df4a7a1cdf8af05d20f1d003a1d;hp=a1f4daf1912c7718f84cc81581a1bf2572b5d891;hpb=05589d7829055f2688c5ec376a085364c86e5d84;p=lilypond.git

diff --git a/input/regression/quote.ly b/input/regression/quote.ly
index a1f4daf191..4d61ee608b 100644
--- a/input/regression/quote.ly
+++ b/input/regression/quote.ly
@@ -1,17 +1,41 @@
 \header
 {
 
-    texidoc = "With @code{\quote}, fragments of previously entered
-music may be quoted. " 
+    texidoc = "With @code{\\quote}, fragments of previously entered
+music may be quoted. @code{quotedEventTypes} will determines what
+things are quoted. In this example, a 16th rests is not quoted, since
+@code{rest-event} is not in @code{quotedEventTypes}."
 
 }
-\version "2.1.26"
+\version "2.10.0"
+\layout {
+    ragged-right = ##t
+}
 
-\addquote bla \notes\relative c' { fis4 g a b }
 
-\score {
-    \notes \relative c'' {
-	c8 d8 \quote 2 bla es8 gis  
-    }
-}
+quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff c }
 
+\addquote quoteMe \quoteMe 
+original = \relative c'' { c8 d s2 es8 gis8 }
+
+<<
+    \new Staff {
+	\set Staff.instrumentName = "quoteMe"
+	\quoteMe
+    }
+    \new Staff {
+	\set Staff.instrumentName = "orig"
+	\original
+    }
+    \new Staff \relative c'' <<
+	\set Staff.instrumentName = "orig+quote"	
+	\set Staff.quotedEventTypes = #'(note-event articulation-event)
+	\original
+	\new Voice {
+	    s4
+	    \set fontSize = #-4
+	    \override Stem #'length-fraction = #(magstep -4)
+	    \quoteDuring #"quoteMe" { \skip 2. }
+	}
+    >>
+>>