Issue 4343: quoteDuring music should be sent to midi file

diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index 09abc727ba7da9dfdf392cbd396af1d68e4de3e7..1c2f45da8bd3728ad91dc562f70675869fed911d 100644 (file)
--- a/ly/performer-init.ly
+++ b/ly/performer-init.ly
@@ -283,6 +283,14 @@
   dynamicAbsoluteVolumeFunction = #default-dynamic-absolute-volume
   instrumentEqualizer = #default-instrument-equalizer
   drumPitchTable = #(alist->hash-table midiDrumPitches)
+
+  %% \quoteDuring is supposed to quote everything but we don't admit
+  %% cue events by default in order not to get multiple midi
+  %% renditions in an orchestral score.
+
+  quotedEventTypes = #'(StreamEvent)
+  quotedCueEventTypes = #'()
+
   timing = ##t
 }