Merge branch 'master' of git://git.savannah.gnu.org/lilypond.git

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

diff --git a/ly/event-listener.ly b/ly/event-listener.ly
index 7ba28602e6e30b7737619e90ecc3d7dd4255df01..f8d547ef7cbeb2106a5d014d465d80eec4314bab 100644 (file)
--- a/ly/event-listener.ly
+++ b/ly/event-listener.ly
@@ -151,6 +151,10 @@ optionally outputs to the console as well."
    (print-line engraver
                "breathe"))
 
+#(define (format-tie engraver event)
+   (print-line engraver
+               "tie"))
+
 #(define (format-articulation engraver event)
    (print-line engraver
                "script"
@@ -215,6 +219,7 @@ optionally outputs to the console as well."
                      (cons 'crescendo-event format-cresc)
                      (cons 'decrescendo-event format-decresc)
                      (cons 'text-span-event format-textspan)
+                     (cons 'tie-event format-tie)
                      )))
   }
 }