From 66e8082e956551a38c9ea585a0593b89cb52dc59 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 24 Oct 2012 18:47:01 +0200
Subject: [PATCH] regtest for issue 2917, \keepWithTag and \removeWithTag with
 multiple tags

---
 input/regression/tag-multiple.ly | 49 ++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 input/regression/tag-multiple.ly

diff --git a/input/regression/tag-multiple.ly b/input/regression/tag-multiple.ly
new file mode 100644
index 0000000000..d9d62a0e0d
--- /dev/null
+++ b/input/regression/tag-multiple.ly
@@ -0,0 +1,49 @@
+\version "2.17.6"
+\header {
+
+  texidoc = "The @code{\\removeWithTag} and @code{\\keepWithTag}
+commands can name multiple tags to remove or to keep."
+
+}
+
+\layout { ragged-right= ##t }
+
+music =
+<<
+  \tag #'flood \new Voice { \voiceOne \repeat unfold 16 { c'''8 cis'''8 } }
+  \tag #'highball \new Voice { \voiceThree \repeat unfold 8 { a'4( as') } }
+  \tag #'buffoon \new Voice { \voiceFour \repeat unfold 2 { f1~ f } }
+>>
+
+demo =
+#(define-music-function (parser location fun syms m)
+  (ly:music-function? symbol-list? ly:music?)
+  #{
+    \new Staff
+    <<
+      { \mark #(string-join (map symbol->string syms) "&") \skip 1*4 }
+      $fun #syms #m
+    >>
+  #})
+
+#(set-global-staff-size 16)
+
+\markuplist {
+  \fill-line { \center-column \fontsize #5 \bold { "\\keepWithTag" } }
+  \vspace #1
+}
+\demo #keepWithTag #'(none) \music
+\demo #keepWithTag #'(flood highball buffoon) \music
+\demo #keepWithTag #'(flood buffoon) \music
+\demo #keepWithTag #'(buffoon) \music
+
+\markup \vspace #2
+
+\markuplist {
+  \fill-line { \center-column \fontsize #5 \bold { "\\removeWithTag" } }
+  \vspace #1
+}
+\demo #removeWithTag #'(none) \music
+\demo #removeWithTag #'(flood highball buffoon) \music
+\demo #removeWithTag #'(flood buffoon) \music
+\demo #removeWithTag #'(buffoon) \music
-- 
2.39.2