''

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

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 645c56c92b1ccb203090465f3b9f8c91ea1d287f..3ed112e9d6ff9d653162ccb07fb55a7b22b533a4 100644 (file)
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -95,7 +95,7 @@
      (let* ((grob name)
            (engravers (filter-list
                        (lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
-           (engraver-names (map Translator::name engravers))
+           (engraver-names (map ly-translator-name engravers))
            )
 
        (string-append
@@ -108,7 +108,7 @@
 
 
 (define (engraver-makes-grob? name-symbol grav)
-  (memq name-symbol (assoc 'grobs-created (Translator::description grav)))
+  (memq name-symbol (assoc 'grobs-created (ly-translator-description grav)))
   )
 
 (define (document-all-grobs name)
@@ -209,10 +209,7 @@
        (texi (description-list->texi descs))
        )
     
-    (string-append
-     (node name)
-     (texi-section 1 name #f)
-     texi)
+     texi
   )
   )