X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fspanners-init.ly;h=8d8a69444f8815af37d8080a75fdcf6a9a34688c;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=756a55579e377935ab3b7242db358a54eb499576;hpb=cf4323bf84b6880082f8e8bafcac87a282a0da7e;p=lilypond.git

diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly
index 756a55579e..8d8a69444f 100644
--- a/ly/spanners-init.ly
+++ b/ly/spanners-init.ly
@@ -1,18 +1,15 @@
 \version "2.19.29"
 
 "\\=" =
-#(define-event-function (id event) (number-or-string? ly:event?)
+#(define-event-function (id event) (key? ly:event?)
   (_i "This sets the @code{spanner-id} property of the following
-@var{event} to the given @var{id} (numbers will be converted to a
-string).  This can be used to tell LilyPond how to connect overlapping
+@var{event} to the given @var{id} (non-negative integer or symbol).
+This can be used to tell LilyPond how to connect overlapping
 or parallel slurs or phrasing slurs within a single @code{Voice}.
 @lilypond[quote,verbatim]
 \\fixed c' { c\\=1( d\\=2( e\\=1) f\\=2) }
 @end lilypond\n")
-  (set! (ly:music-property event 'spanner-id)
-	(if (number? id)
-	    (number->string id)
-	    id))
+  (set! (ly:music-property event 'spanner-id) id)
   event)
 
 startGroup = #(make-span-event 'NoteGroupingEvent START)