From 6f95e02682255e985808947461fafcc5fcc3f060 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 30 Sep 2015 22:00:37 +0200
Subject: [PATCH] Issue 4625/2: Add event_symbol function to all slur engravers

---
 lily/include/slur-proto-engraver.hh | 1 +
 lily/phrasing-slur-engraver.cc      | 8 ++++++++
 lily/slur-engraver.cc               | 8 ++++++++
 3 files changed, 17 insertions(+)

diff --git a/lily/include/slur-proto-engraver.hh b/lily/include/slur-proto-engraver.hh
index 89801dfd8a..4e9ab8ee88 100644
--- a/lily/include/slur-proto-engraver.hh
+++ b/lily/include/slur-proto-engraver.hh
@@ -42,6 +42,7 @@ protected:
   const char* grob_name_;
   const char* object_name_;
   const char* event_name_;
+  virtual SCM event_symbol () = 0;
 
   DECLARE_ACKNOWLEDGER (inline_accidental);
   DECLARE_ACKNOWLEDGER (fingering);
diff --git a/lily/phrasing-slur-engraver.cc b/lily/phrasing-slur-engraver.cc
index 3895101f45..0a571dc79e 100644
--- a/lily/phrasing-slur-engraver.cc
+++ b/lily/phrasing-slur-engraver.cc
@@ -38,6 +38,7 @@ protected:
   DECLARE_ACKNOWLEDGER (slur);
 
 public:
+  SCM event_symbol ();
   TRANSLATOR_DECLARATIONS (Phrasing_slur_engraver);
 };
 
@@ -46,6 +47,13 @@ Phrasing_slur_engraver::Phrasing_slur_engraver () :
 {
 }
 
+SCM
+Phrasing_slur_engraver::event_symbol ()
+{
+  // Need a string constant for memoization
+  return ly_symbol2scm ("phrasing-slur-event");
+}
+
 IMPLEMENT_TRANSLATOR_LISTENER (Phrasing_slur_engraver, phrasing_slur);
 void
 Phrasing_slur_engraver::listen_phrasing_slur (Stream_event *ev)
diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index 0e2260395f..ed5fef7a56 100644
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -39,6 +39,7 @@ protected:
   DECLARE_TRANSLATOR_LISTENER (slur);
 
 public:
+  SCM event_symbol ();
   TRANSLATOR_DECLARATIONS (Slur_engraver);
 };
 
@@ -47,6 +48,13 @@ Slur_engraver::Slur_engraver () :
 {
 }
 
+SCM
+Slur_engraver::event_symbol ()
+{
+  // Need a string constant for memoization
+  return ly_symbol2scm ("slur-event");
+}
+
 IMPLEMENT_TRANSLATOR_LISTENER (Slur_engraver, slur);
 void
 Slur_engraver::listen_slur (Stream_event *ev)
-- 
2.39.5