From d483a4150aebc3f9bb268001f5e549aa26a4911f Mon Sep 17 00:00:00 2001
From: Patrick McCarty <address@hidden>
Date: Sat, 10 Jan 2009 18:09:12 -0800
Subject: [PATCH] Docs: Add docstring support to def-grace-function

Signed-off-by: Patrick McCarty <address@hidden>
---
 scm/music-functions.scm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

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