* lily/font-metric.cc (get_encoded_index): New function.

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

diff --git a/scm/document-music.scm b/scm/document-music.scm
index 9b14484a30dd699e62ef523bd93f044fb0c772eb..b1ab6613c49e5933da0673e56f04df8f8775a35b 100644 (file)
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -1,3 +1,9 @@
+;;;; 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 (music-props-doc)
   (make <texi-node>
@@ -31,11 +37,6 @@
   music-descriptions)
 
 
-(define (hash-table->alist t)
-  "Convert table t to list"
-  (apply append
-        (vector->list t)
-  ))
 
 (define (strip-description x)
     (cons (symbol->string (car x))
@@ -57,9 +58,10 @@
      "\n\nAccepted by: "
      (human-listify
       (map ref-ify
-      (map ly:translator-name
-          (filter
-           (lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list))))
+          (map symbol->string
+               (map ly:translator-name
+                    (filter
+                     (lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list)))))
      "\n\n"
      )))
 
@@ -88,13 +90,13 @@
      "\n\nAccepted by: "
      (human-listify
       (map ref-ify
-      (map ly:translator-name
-          (filter
-           (lambda (x) (engraver-accepts-music-types? types x)) all-engravers-list))))
+          (map symbol->string (map ly:translator-name
+               (filter
+                (lambda (x) (engraver-accepts-music-types? types x)) all-engravers-list)))))
      "\n\nProperties: \n"
      (description-list->texi
       (map
-       (lambda (x) (document-property x 'music props))
+       (lambda (x) (property->texi 'music  x props))
        (map car props)))
      
      )