From: Graham Percival <graham@percival-music.ca>
Date: Fri, 23 Mar 2012 23:47:25 +0000 (+0000)
Subject: event-listener.ly: add glissando
X-Git-Tag: release/2.15.35-1~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5c0b029a7aba0dbed2c46d77bcc32c0dca54df49;p=lilypond.git

event-listener.ly: add glissando
---

diff --git a/input/regression/event-listener-output.ly b/input/regression/event-listener-output.ly
index 38c0960936..b49524fa79 100644
--- 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 72a3e2407d..899d0825a3 100644
--- 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)))
   }
 }