From: Neil Puttock <n.puttock@gmail.com>
Date: Tue, 1 Mar 2011 23:49:37 +0000 (+0000)
Subject: Add display method for \rightHandFinger.
X-Git-Tag: release/2.13.53-1~36^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dbafc9ace7e261b158dacaea1076bb5db8b987a2;p=lilypond.git

Add display method for \rightHandFinger.
---

diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly
index e435730ab2..7ba3317b80 100644
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -149,6 +149,7 @@ stderr of this run."
 \test "" ##[ { c \[ c \] } #]			% LigatureEvent
 \test "" ##[ \~ #]					% PesOrFlexaEvent
 \test "" ##[ { c-\bendAfter #3  } #] % BendAfterEvent
+\test "" ##[ < c-\rightHandFinger #1 > #] % StrokeFingerEvent
 
 \test "" ##[ \break #]
 \test "" ##[ \noBreak #]
diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 2440e15bea..3ecfce5aaf 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -157,6 +157,7 @@ expression."
     'SlurEvent
     'SostenutoEvent
     'StringNumberEvent
+    'StrokeFingerEvent
     'SustainEvent
     'TextScriptEvent
     'TextSpanEvent
@@ -236,6 +237,9 @@ expression."
 (define-post-event-display-method AbsoluteDynamicEvent (event parser) #f
   (format #f "\\~a" (ly:music-property event 'text)))
 
+(define-post-event-display-method StrokeFingerEvent (event parser) #t
+  (format #f "\\rightHandFinger #~a" (ly:music-property event 'digit)))
+
 (define-span-event-display-method BeamEvent (event parser) #f "[" "]")
 (define-span-event-display-method SlurEvent (event parser) #f "(" ")")
 (define-span-event-display-method CrescendoEvent (event parser) #f "\\<" "\\!")