Issue 3491: Add \displayScheme command.

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

diff --git a/ly/event-listener.ly b/ly/event-listener.ly
index 72a3e2407d78d34ede21317c54b2c3410c2141cf..9e5282de89d7ca33704a58fb592a62ec17c848e0 100644 (file)
--- a/ly/event-listener.ly
+++ b/ly/event-listener.ly
@@ -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)))
   }
 }