X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-documentation-lib.scm;h=3ed112e9d6ff9d653162ccb07fb55a7b22b533a4;hb=492f3643bd2a86956201c3e0c93bb1b65bcdea4e;hp=645c56c92b1ccb203090465f3b9f8c91ea1d287f;hpb=667d9bdb6227dd10819599c6d069a5eeb67eedd7;p=lilypond.git

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 645c56c92b..3ed112e9d6 100644
--- 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
   )
   )