From: David Kastrup <dak@gnu.org>
Date: Sun, 10 Feb 2013 15:05:17 +0000 (+0100)
Subject: Let \rightHandFinger accept arbitrary markup as text
X-Git-Tag: release/2.17.13-1~10^2~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=11b4a30d80557bea2d60dbb5977eb41840705403;p=lilypond.git

Let \rightHandFinger accept arbitrary markup as text
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index c063b9585d..6694c4ae06 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1061,13 +1061,12 @@ for time signatures of @var{time-signature}.")
    (revert-time-signature-setting time-signature))
 
 rightHandFinger =
-#(define-event-function (parser location finger) (number-or-string?)
+#(define-event-function (parser location finger) (number-or-markup?)
    (_i "Apply @var{finger} as a fingering indication.")
 
    (make-music
             'StrokeFingerEvent
-            'origin location
-            (if (string? finger) 'text 'digit)
+            (if (number? finger) 'digit 'text)
             finger))
 
 scaleDurations =