* scm/define-grobs.scm: uniform naming for definitions and output

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

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 95e3cb02f033e148712c12f9b0c39ede53ff73f8..3dbc47da3ceff2d3b2a963d66abc90cc6f99634a 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -171,8 +171,9 @@
   (let*
       (
        (name (cdr (assoc 'type-name context-desc)))
-       (desc-handle (assoc (string->symbol name) context-description-alist))
-       (desc (if (pair? desc-handle)  (cdr desc-handle) ""))
+       (desc-handle (assoc 'description context-desc))
+       (desc (if (and  (pair? desc-handle) (string? (cdr desc-handle)))
+                (cdr desc-handle) "(not documented)"))
        
        (accepts (cdr (assoc 'accepts context-desc)))
        (consists (append