event-listener.ly: add glissando

diff --git a/input/regression/event-listener-output.ly b/input/regression/event-listener-output.ly
index 38c096093605cd4bf9ac0d97b6f809158211b5b9..b49524fa794a59ced9a685a12b1e1d11bb9f1f71 100644 (file)
--- a/input/regression/event-listener-output.ly
+++ b/input/regression/event-listener-output.ly
@@ -38,7 +38,7 @@ vlnone = \new Staff {
   a4\f d fis8-. a-. r4
   d16(\downbow cis b a) g4 \breathe e8\p( g) fis4 |
 
-  e4\< g8 fis g4-_\mp\>
+  e4\< \glissando g8 fis g4-_\mp\>
     \st "III"
     b8-_\startTextSpan a-_\stopTextSpan
     b4\p\<( d8 cis) d4(-. fis8-.^"II" e-.^"II")

diff --git a/ly/event-listener.ly b/ly/event-listener.ly
index 72a3e2407d78d34ede21317c54b2c3410c2141cf..899d0825a3c9531a188a2079c355b24587edf253 100644 (file)
--- a/ly/event-listener.ly
+++ b/ly/event-listener.ly
@@ -151,6 +151,10 @@ as an engraver for convenience."
    (print-line engraver
                "breathe"))
 
+#(define (format-glissando engraver event)
+   (print-line engraver
+               "gliss"))
+
 #(define (format-tie engraver event)
    (print-line engraver
                "tie"))
@@ -218,6 +222,7 @@ as an engraver for convenience."
               (crescendo-event . format-cresc)
               (decrescendo-event . format-decresc)
               (text-span-event . format-textspan)
+              (glissando-event . format-glissando)
               (tie-event . format-tie)))
   }
 }