* ly/gregorian-init.ly: Simplify definition of \episemInitium and

[lilypond.git] / lily / piano-pedal-engraver.cc

diff --git a/lily/piano-pedal-engraver.cc b/lily/piano-pedal-engraver.cc
index 90844c6d24ef7ad396a5c00d68bac56efc8be705..c8a44bd4e402854cb567839cdbd3807e490c7e97 100644 (file)
--- a/lily/piano-pedal-engraver.cc
+++ b/lily/piano-pedal-engraver.cc
@@ -225,26 +225,26 @@ Piano_pedal_engraver::acknowledge_note_column (Grob_info info)
 
 IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, sostenuto);
 void
-Piano_pedal_engraver::listen_sostenuto (Stream_event *r)
+Piano_pedal_engraver::listen_sostenuto (Stream_event *ev)
 {
-  Direction d = to_dir (r->get_property ("span-direction"));
-  info_list_[SOSTENUTO].event_drul_[d] = r;
+  Direction d = to_dir (ev->get_property ("span-direction"));
+  ASSIGN_EVENT_ONCE (info_list_[SOSTENUTO].event_drul_[d], ev);
 }
 
 IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, sustain);
 void
-Piano_pedal_engraver::listen_sustain (Stream_event *r)
+Piano_pedal_engraver::listen_sustain (Stream_event *ev)
 {
-  Direction d = to_dir (r->get_property ("span-direction"));
-  info_list_[SUSTAIN].event_drul_[d] = r;
+  Direction d = to_dir (ev->get_property ("span-direction"));
+  ASSIGN_EVENT_ONCE (info_list_[SUSTAIN].event_drul_[d], ev);
 }
 
 IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, una_corda);
 void
-Piano_pedal_engraver::listen_una_corda (Stream_event *r)
+Piano_pedal_engraver::listen_una_corda (Stream_event *ev)
 {
-  Direction d = to_dir (r->get_property ("span-direction"));
-  info_list_[UNA_CORDA].event_drul_[d] = r;
+  Direction d = to_dir (ev->get_property ("span-direction"));
+  ASSIGN_EVENT_ONCE (info_list_[UNA_CORDA].event_drul_[d], ev);
 }
 
 void