* scripts/lilypond-book.py (Lilypond_file_snippet.ly): don't copy

[lilypond.git] / scm / document-markup.scm

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 599015f8c352c300f16df97bff7372e4638d0bbf..7478a70dc5822a280b1e158f5e3ca69c9aa3e66d 100644 (file)
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -1,8 +1,13 @@
+;;;; document-markup.scm -- part of generated backend documentation
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (doc-markup-function func)
   (let*
-      (
-       (doc-str  (procedure-documentation func) )
+      ((doc-str  (procedure-documentation func) )
        (f-name (symbol->string (procedure-name  func)))
        (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
        (sig (object-property func 'markup-signature))
@@ -25,7 +30,7 @@
    "\n\n@item @code{\\" c-name "} " signature-str
    
    "\n@findex " f-name "\n"
-   "\n@cindex " c-name "\n"
+   "\n@cindex @code{" c-name "}\n"
    
    (if (string? doc-str)
        doc-str