X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fpredefined-fretboards-init.ly;h=e999c93a4d38a0792e8156c23b91dbb97ddfa298;hb=7faaa7f1155b5f01afaf7ad38fbc7c8a16d42734;hp=353c015b8c8bb4f203e957bf35aca03e560f01d5;hpb=e76cd284c11c8f80744a0913738fff4d8df41589;p=lilypond.git

diff --git a/ly/predefined-fretboards-init.ly b/ly/predefined-fretboards-init.ly
index 353c015b8c..e999c93a4d 100644
--- a/ly/predefined-fretboards-init.ly
+++ b/ly/predefined-fretboards-init.ly
@@ -23,6 +23,8 @@
 addChordShape =
 #(define-music-function (parser location key-symbol shape-string)
    (symbol? string?)
+   "Add chord shape @code{shape-string} to the @code{base-chord-shapes}
+alist with the key @code{key-symbol}."
    (set! base-chord-shapes 
            (acons key-symbol shape-string base-chord-shapes))
    (make-music 'SequentialMusic 'void #t))
@@ -38,6 +40,9 @@ addChordShape =
 storePredefinedDiagram =
 #(define-music-function (parser location chord tuning terse-definition)
   (ly:music? list? string?)
+  "Add predefined fret diagram defined by fret-diagram-terse definition
+string @code{terse-definition} for the chord pitches @code{chord} and
+the stringTuning @code{tuning}."
   (let* ((pitches (event-chord-pitches 
                     (car (extract-named-music chord 'EventChord))))
          (hash-key (cons tuning pitches)))