release: 1.5.14

[lilypond.git] / scm / engraver-documentation-lib.scm

diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 6183686e0c52e7fac071290ac8a59cccea85b6a9..e19bce865b795b4f831fdf9d4afdbd32fd761de8 100644 (file)
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -28,7 +28,7 @@
         (name (Translator::name engraver))
         (name-sym (string->symbol name))
         (desc (cdr (assoc 'description (Translator::description engraver))))
-        (grobs (cdr (assoc 'grobs-created (Translator::description engraver))))
+        (grobs (engraver-grobs engraver))
         )
 
     (string-append
@@ -141,14 +141,17 @@
         (apply string-append 
                (map document-engraver-by-name consists))))))
 
-(define (engraver-grobs  name)
+(define (engraver-grobs  grav)
   (let* (
-        (eg (find-engraver-by-name name all-engravers-list))
-      )
+        (eg (if (string? grav)
+                (find-engraver-by-name grav all-engravers-list)
+                grav))
+            
+            )
 
     (if (eq? eg #f)
        '()
-       (cdr (assoc 'grobs-created (Translator::description eg)))
+       (map symbol->string (cdr (assoc 'grobs-created (Translator::description eg))))
        )
   ))