*** empty log message ***

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

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index a138bbc3997441cade3ba0ee8e9703d51363d8a6..2eac4bfae1fde4e053c8374d22fc48bf2855ce8d 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -74,8 +74,8 @@
 
      (if in-which-contexts
         (let*
-            ((paper-alist (ly:output-description $defaultpaper))
-             (context-description-alist (map cdr paper-alist))
+            ((layout-alist (ly:output-description $defaultlayout))
+             (context-description-alist (map cdr layout-alist))
              (contexts
               (apply append
                      (map
@@ -115,7 +115,6 @@
     ))
 
 ;; Second level, part of Context description
-
 (define name->engraver-table (make-vector 61 '()))
 (map
  (lambda (x)
@@ -262,11 +261,11 @@
 
 (define (all-contexts-doc)
   (let* (
-        (paper-alist
-         (sort (ly:output-description $defaultpaper)
+        (layout-alist
+         (sort (ly:output-description $defaultlayout)
                (lambda (x y) (symbol<? (car x) (car y)))))
-        (names (sort (map symbol->string (map car paper-alist)) string<?))
-        (contexts (map cdr paper-alist))
+        (names (sort (map symbol->string (map car layout-alist)) string<?))
+        (contexts (map cdr layout-alist))
         )
 
     (make <texi-node>
@@ -288,6 +287,7 @@
   (make <texi-node>
     #:name "Engravers"
     #:desc "All separate engravers"
+    #:text "See @usermanref{Modifying context plug-ins}."
     #:children
     (map engraver-doc all-engravers-list)))