From: David Kastrup <dak@gnu.org>
Date: Sun, 10 Feb 2013 15:06:06 +0000 (+0100)
Subject: Add explicit \finger command for normal fingering events
X-Git-Tag: release/2.17.13-1~10^2~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bc73e107f6c99e9f32f2c2c6c9b3a2fc852dd82d;p=lilypond.git

Add explicit \finger command for normal fingering events
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 6694c4ae06..061e696d08 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -379,6 +379,15 @@ featherDurations=
 
      argument))
 
+finger =
+#(define-event-function (parser location finger) (number-or-markup?)
+   (_i "Apply @var{finger} as a fingering indication.")
+
+   (make-music
+            'FingeringEvent
+            (if (number? finger) 'digit 'text)
+            finger))
+
 footnote =
 #(define-music-function (parser location mark offset footnote item)
    ((markup?) number-pair? markup? symbol-list-or-music?)