From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 13 Jan 2009 14:10:43 +0000 (-0700)
Subject: Add docstring to def-grace-function
X-Git-Tag: release/2.12.2-1~22^2~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1d57d1c5b1605638097e08ef585813581aa71436;p=lilypond.git

Add docstring to def-grace-function
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index f9599af572..d6de35852d 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -720,8 +720,10 @@ SkipEvent. Useful for extracting parts from crowded scores"
 
 
 
-(defmacro-public def-grace-function (start stop)
+(defmacro-public def-grace-function (start stop . docstring)
+  "Helper macro for defining grace music"
   `(define-music-function (parser location music) (ly:music?)
+     ,@docstring
      (make-music 'GraceMusic
 		 'origin location
 		 'element (make-music 'SequentialMusic