event-listener.ly: add glissando

[lilypond.git] / ly / event-listener.ly

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)))
   }
 }