From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 4 Mar 2010 21:43:11 +0000 (+0000)
Subject: Add display method for \bendAfter.
X-Git-Tag: release/2.13.16-1~59
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3d7e3bc9f4cf84c237f05d5db7a78a8b2c154227;p=lilypond.git

Add display method for \bendAfter.
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 469c65408a..0434ce8e59 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -141,6 +141,7 @@
     'ArticulationEvent
     'BeamEvent
     'BeamForbidEvent
+    'BendAfterEvent
     'CrescendoEvent
     'DecrescendoEvent
     'EpisemaEvent
@@ -225,6 +226,9 @@
 (define-post-event-display-method MultiMeasureTextEvent (event parser) #t
   (markup->lily-string (ly:music-property event 'text)))
 
+(define-post-event-display-method BendAfterEvent (event parser) #t
+  (format #f "\\bendAfter #~a" (ly:music-property event 'delta-step)))
+
 (define-post-event-display-method HarmonicEvent (event parser) #f "\\harmonic")
 (define-post-event-display-method GlissandoEvent (event parser) #t "\\glissando")
 (define-post-event-display-method ArpeggioEvent (event parser) #t "\\arpeggio")