Add docstrings to functions in music-functions-init.ly; from Kieren.

[lilypond.git] / ly / predefined-fretboards-init.ly

diff --git a/ly/predefined-fretboards-init.ly b/ly/predefined-fretboards-init.ly
index b4e8ec75f0181b427e253dfb18afc09a6d00e10c..d0f861a40237736e5cb065512dcf669178dc74f0 100644 (file)
--- a/ly/predefined-fretboards-init.ly
+++ b/ly/predefined-fretboards-init.ly
@@ -21,8 +21,8 @@
 addChordShape =
 #(define-music-function (parser location key-symbol tuning shape-definition)
    (symbol? pair? string-or-pair?)
-   "Add chord shape @code{shape-definition} to the @code{chord-shape-table}
-hash with the key @code{(cons key-symbol tuning)}."
+   (_i "Add chord shape @var{shape-definition} to the @var{chord-shape-table}
+hash with the key @var{(cons key-symbol tuning)}.")
    (hash-set! chord-shape-table
                (cons key-symbol tuning)
                shape-definition)
@@ -37,9 +37,8 @@ hash with the key @code{(cons key-symbol tuning)}."
 storePredefinedDiagram =
 #(define-music-function (parser location chord tuning diagram-definition)
   (ly:music? pair? string-or-pair?)
-  "Add predefined fret diagram defined by @code{diagram-definition}
-for the chord pitches @code{chord} and
-the stringTuning @code{tuning}."
+  (_i "Add predefined fret diagram defined by @var{diagram-definition}
+  for the chord pitches @var{chord} and the stringTuning @var{tuning}.")
   (let* ((pitches (event-chord-pitches 
                     (car (extract-named-music chord 'EventChord))))
          (hash-key (cons tuning pitches))
@@ -50,4 +49,3 @@ the stringTuning @code{tuning}."
              hash-key 
              verbose-definition))
   (make-music 'SequentialMusic 'void #t))
-