From 237343567335e54017c40545dc2e20fb3eca50fa Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 10 Apr 2015 20:36:32 +0200
Subject: [PATCH] Issue 4343: quoteDuring music should be sent to midi file

---
 ly/performer-init.ly | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index 09abc727ba..1c2f45da8b 100644
--- 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
 }
 
-- 
2.39.5