X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fevent-listener.ly;h=b7b8ca086acc2fa467c93390b5c6c79033062804;hb=0b544cfb7332615ef809b71b57ab656741311ae1;hp=72a3e2407d78d34ede21317c54b2c3410c2141cf;hpb=1265d01b03ae4cbf1913f51a063cda8dc2842cf0;p=lilypond.git

diff --git a/ly/event-listener.ly b/ly/event-listener.ly
index 72a3e2407d..b7b8ca086a 100644
--- a/ly/event-listener.ly
+++ b/ly/event-listener.ly
@@ -1,6 +1,6 @@
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
-%%%% Copyright (C) 2011--2012 Graham Percival <graham@percival-music.ca>
+%%%% Copyright (C) 2011--2014 Graham Percival <graham@percival-music.ca>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
@@ -32,7 +32,7 @@
 
 
 
-\version "2.15.31"
+\version "2.16.0"
 
 %%%% Helper functions
 
@@ -66,7 +66,7 @@ program using the output of this function to interpret grace notes
 however they want (half duration, quarter duration?  before beat,
 after beat?  etc.)."
    (if
-       (eq? 0 (ly:moment-grace-numerator moment))
+       (zero? (ly:moment-grace-numerator moment))
        (ly:format "~a" (format-moment moment))
        ;; grace notes have a negative numerator, so no "-" necessary
        (ly:format
@@ -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)))
   }
 }